cass如何统计多根线条总长

CAD中需要计算多条多段线、直线总长度的时候，在命令栏中复制如下面命令，然后输入LL 快捷命令，然后选取所要计算的多条多段线之后确定或回车即可。

长度会在CAD底部窗口显示。

计算多条线长度宏：

(defun c:LL ()

(setvar "cmdecho" 1)

(setq en (ssget (list '(0 . "spline，arc，line，ellipse，LWPOLYLINE"))))

(setq i 0)

(setq ll 0)

(repeat (sslength en)

(setq ss (ssname en i))

(setq endata (entget ss))

(command "lengthen" ss "")

(setq dd (getvar "perimeter"))

(setq ll (+ dd ll))

(setq i (1+ i))

)

(princ "所选线条总长为：")(princ ll)(princ)

)

复制所有红色内容粘贴到命令栏