CAD高级教程，利用代码公式计算工程里平均值，分钟内完成多数据

代码如下，具体此代码如何运用，简单操作如下，首先复制以下代码，然后另存为.lsp文件。

另存后文件名字变成这种样子

然后我们把这个文件保存好。

接着我们打开CAD，然后点击上册加载应用程序，然后截图如下。

加载应用程序截图

然后我们另存为在加载程序文件夹，然后我们选择刚才保存的程序文件，然后点击程序，再点击加载，

加载程序

然后下册显示，加载成功即是正确的配置了,然后进行下一步操作。

加载程序成功截图

在命令输入框内输入AVE即可，然后

命令框输入AVE命令

然后我们求这6个数的平均值，接上部操作选择，这6个数，点击你想放平均值的位置即可，就求得了6个数的平均值，是不是很方便、快捷，赶快试试吧。 （注，代码归原作者，本人主要是告诉大家应用）

6个数的平均

(defun c:AVE (setq ss (ssget))(setq n 0 total (sslength ss))(repeat total(setq name (ssname ss n))(setq ent (entget name))(if (= (cdr (assoc 1 ent)) nil)(progn (ssdel name ss) (setq total (1- total)))(setq n (1+ n))))(setq i 0 sum 0 u 0)(repeat (sslength ss)(setq en (ssname ss i))(setq en_data (entget en))(setq en_type (cdr (assoc 0 en_data)))(setq entxt (cdr (assoc 1 en_data)))(setq n 1 nn 1)(repeat (strlen entxt)(if (and (= 57 (ascii (substr entxt nn 1)))(= 46 (ascii (substr entxt nn 1))))(setq n (+ 1 n)))(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 "/n点取平均数放置位置："))(command "text" pt "350" "" ave ""))以上就是我分享的方法，赶快试试吧，还有你们发现没，我求的数值大，此处演示中未更改，你们知道怎么变小字体吗？动动小脑子，感谢观看今天内容。

据说私信我“志同道合”或者“工程人”有意想不到的惊喜哦，试试吧。

下一篇：怎样隐藏自己的QQ账号，让别人找不到你？
上一篇：CAD复制快捷键是什么，如何复制CAD图形？(cad的复制快捷键是什么)