使用CAD經常會遇到統計多條線段、圓弧或多段線的總長,如果是連續的,使用List命令可以知道,但是不連續分散的就比較麻煩了,以下技巧就是針對這個問題的解決方法。
1. 下列文字複制到空白的txt文件中,保存,更名為“總長度.lsp”;
(princ "\n程序:統計線段長度 命令:te")
(defun C:TE (/ 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)))
(setq sumlen(/ sumlen 1000))
(princ (strcat "\n共選擇 " (itoa (sslength SS)) "條線段. 線段總長: "(rtos SUMLEN 2 3) "米."))
(princ) )
注意保存時将編碼格式設置為ANSI
2. CAD – 工具 – 加載應用程序,(或者輸入命令appload)找到剛建立的“總長度.lsp”文件,加載。
3. 關閉後,選中需要統計長度的線段,輸入快捷鍵“TE”即可。
此外,上述加載方法在打開新的圖紙後還需要重新加載,為了一勞永逸,在加載界面的啟動組加入該文件,如下圖,這樣就不需要重複加載了。
,
更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!
,
2023-07-19