批量统计CAD图纸里面所有直线的总长。在CAD软件中并没有这个功能，我们可以写一段脚本，然后导入到CAD进行统计。
脚本如下：
;;;-----------------------------------------------------
;;;计算线加总长度
;;;-----------------------------------------------------
(defun C:51zxw (/ 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文件拖到cad执行51zxw这个命令即可.
承担因您的行为而导致的法律责任，
本站有权保留或删除有争议评论。
参与本评论即表明您已经阅读并接受
上述条款。