批量統(tǒng)計(jì)CAD圖紙里面所有直線的總長(zhǎng)。在CAD軟件中并沒(méi)有這個(gè)功能，我們可以寫一段腳本，然后導(dǎo)入到CAD進(jìn)行統(tǒng)計(jì)。
腳本如下：
;;;-----------------------------------------------------
;;;計(jì)算線加總長(zhǎng)度
;;;-----------------------------------------------------
(defun C:51zxw (/ 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 "總長(zhǎng)度: " (rtos SUMLEN 2 5)))
(princ)
)
不會(huì)寫腳本的學(xué)員可以下載一下文件，
解壓后將lsp文件拖到cad執(zhí)行51zxw這個(gè)命令即可.
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。