用法： 在CAD的命令行中輸入Appload或點擊工具--加載應(yīng)用程序，打開加載/卸載對話框，把zz.lsp文件復(fù)制到已打開的文件夾中，選擇下載的附件文件，然后點擊內(nèi)容--加載--選中文件--點擊關(guān)閉即可，文件名是ZZ，點擊加載/關(guān)閉即可。在CAD命令行中輸入ZZ，選擇要統(tǒng)計線段長度的所有線段,結(jié)果馬上出來。

;;;-----------------------------------------------------
;;;計算線加總長度
;;;-----------------------------------------------------
(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)
)