cad统计线段长度插件命令_CAD实用小插件，这是一串让你效率提升相见恨晚的代码！...

CAD是大家在工作中必不可少的软件之一，在工作中使用一些小插件可以提高工作效率，简化操作，下面就来说说收集的小插件。

在做项目中，我们经常会计算某个系统所用线缆的长度、管的长度、以及桥架长度。今天就来说说如何加载计算长度插件。首先我们打开地电脑记事本，复制以下代码进去：

(princ " **,计算线段总长度tu **" )(defun zz_err (s)

(princ " 命令中止!")

(command "ucs" "restore" "recent" ^c)

(if sset

(progn

(setq sscnt (sslength sset))

(while (> sscnt 0)

(redraw (ssname sset (setq sscnt (1- sscnt))) 4)

)

)

)

)

;;;-----------------------------------------------------

;;;计算线段总长度

;;;-----------------------------------------------------

(defun C:zz (/ CURVE TLEN SS N SUMLEN)

(vl-load-com)

(setq SUMLEN 0)

(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))

(setq N 0)

(repeat (sslength SS)

(setq CURVE (vlax-ename->vla-object (ssname SS N)))

(setq TLEN (vlax-curve-getdistatparam

CURVE

(vlax-curve-getendparam CURVE)

)

)

(setq SUMLEN (+ SUMLEN TLEN))

(setq N (1+ N))

)

(print (strcat "**总长度=" (rtos SUMLEN 2 5)))

(princ)

)

▼

将记事本文件点击菜单栏“文件”——“另存为”，将文件名改为“计算长度.lsp”，然后点击下面的保存类型：选择“所有文件”，就会生成一个新的LSP文件。

▼

这时我们打开天正电气软件以及要测量的图纸，点击菜单栏“工具”——下拉菜单“加载应用程序”，在查找范围中找到自己保存的“计算长度.lsp”的文件，选中，点击“加载”键，下面对话框会显示“已成功加载计算长度.lsp。”，点击“关闭”键。如图所示：

▼

加载完成后，在天正电气命令行输入“ZZ”，选择要计算长度的对象，就会在命令框显示出对应的长度。

注：命令“ZZ”，是可以修改的，大家在制图中，肯定会创建一些自己比较方便的命令，当“ZZ”与自己创建命令冲突时，可以打开LSP文件，将代码中标红的两处ZZ，修改为自己比较方便的命令。

注：专业智能建筑资料库，智能建筑方案馆尽在河姆渡方案馆，点击下方了解更多！