【干货】CAD实用小插件，这是一串让你效率提升相见恨晚的代码！

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

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

  (princ "\n命令中止!")

  (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，修改为自己比较方便的命令。