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)

)

複製所有紅色內容粘貼到命令欄