CAD繪圖中多個(gè)線段的總長(zhǎng)度測(cè)量方法

1，打開記事本，然后將下列命令復(fù)制到記事本，保存后，將記事本名稱改為 “統(tǒng)計(jì)線段長(zhǎng)度.LSP”。

(princ "\n程序：統(tǒng)計(jì)線段長(zhǎng)度 命令：zz")

(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)))

(princ (strcat "\n共選擇 " (itoa (sslength SS)) " 條線段. 線段總長(zhǎng): " (rtos SUMLEN 2 3) " .")) (princ))

2，打開CAD，輸入APPLOAD，然后加載統(tǒng)計(jì)線段長(zhǎng)度.LSP文件。如下圖所示，顯示已“成功加載 統(tǒng)計(jì)線段長(zhǎng)度.LSP” 。這樣就可以統(tǒng)計(jì)多條線段的總長(zhǎng)度了。

3,打開CAD軟件,畫幾條線段(畫圖中,線纜方面建議使用

PLINE多段線畫圖,快捷鍵PL ,這樣方便統(tǒng)計(jì)總長(zhǎng)度).用ZZ指令,然后選擇1條或者多條需要測(cè)量的線段,按回車命令欄里就是出現(xiàn)多天線段的總長(zhǎng)度.如下圖所示:

打出指令按回車:

選擇需要測(cè)量的線段:

按回車總長(zhǎng)度統(tǒng)計(jì)出來了: