代码如下,具体怎么用这个代码。简单操作如下。首先复制下面的代码,然后将其保存为。lsp文件。
像这样保存文件名。
然后我们将保存这个文件。
然后我们打开CAD,然后点击第一卷加载应用,然后截图如下。
加载应用程序屏幕截图
然后我们将它保存在loader文件夹中,然后我们选择刚刚保存的程序文件,然后单击该程序,然后单击Load。
加载程序
然后下一卷显示加载成功就是正确的配置,然后进行下一步。
加载成功的屏幕截图
在命令输入框中输入AVE,然后
在命令框中输入AVE命令。
然后我们计算这六个数的平均值,选择上运算,点击你想要放这六个数平均值的位置,然后得到这六个数的平均值。不是方便快捷吗?赶紧试试吧。(注意,代码归原作者所有,我主要告诉你应用)
6个数字的平均值
(defun c:AVE(setq ss(ss get))(setq n 0 total(ss length ss))(repeat total(setq name(ss name ss n))(setq ent(ent get name))(if(=(cdr(assoc 1 ent))nil)(progn(ss del name ss)(setq total(1-total))(setq n(1+n)))(setq I 0 sum 0 u 0)(repeat(ss length ss)(setq en(ss name ss I))(setq en _ data(ent get en)) (if(and(= 57(ascii(substr entxt nn 1)))(= 46(ascii(substr entxt nn 1)))(setq n(+1n)))(setq nn(+1 nn)))(if(equal n nn)(progn(setq sum(+sum(atof entxt)))(setq u(+1 u)))(setq I(+1 I))(setq ave(/sum u))(setq pt(getpoint # 34; /n点平均放置位置: # 34;))(命令 # 34;正文 # 34;pt # 34350#34;#34;#34;ave # 34#34;))以上是我分享的方法。赶紧试试,找到了吗?我要求的值很大,在这里的演示中没有改变。你知道如何把字体变小吗?动动脑子,感谢收看今天的内容。
说我是“志同道合”或者“工科人”,有意想不到的惊喜。试试看。