(defun C:LL (/ 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))
)
(princ (strcat "\n***選擇 " (itoa (sslength SS)) " 條線段. 線段總長: " (rtos SUMLEN 2 3) "毫米."))
(princ)
)
------------------------------------------------------------------------------
復制橫線以上所有內容(從第壹行到最下面壹個單獨的“)”)
然後直接在CAD命令欄粘貼 然後輸入LL 選擇需要統計的線 然後確定。
或者
復制橫線以上所有內容(從第壹行到最下面壹個單獨的“)”)粘貼到新建空白文本文檔中保存,然後重命名格式改成.LSP
然後
CAD中輸入 Appload,選擇剛保存的.LSP格式文件,加載。
在CAD中輸入LL,選擇要統計線段長度的所有線段。結果馬上出來.
如果結果不顯示,請按f2.