【發帖精華】總數量與總長度計算方法

跪求各位CAD高手大大

小弟非AutoCAD專長。

但因從事水電消防工程工作的關係～

需計算出整棟大樓所有管線種類長度與器具的數量～

傳統的作法～就是照水電消防配線圖一個一個點...  

不然就是用線一條一條的量…再加總算出總長度...  

可否請教有AutoCAD專長或是工程界的高手先進教教小弟我

如何運用AutoCAD計算出管線的總長度與器具的總數量？

小弟CAD不熟…求助不知有沒有好心的大大可用圖示教教小弟～

感激不盡～功德無量～謝謝！！

恭喜您的主題獲選為精華文章！ < 積分+1、威望+3 >

[公告]關於論壇的文章價值

beyond 寫到:小弟非AutoCAD專長。

Spoiler（用來隱藏帖子內容）:

代碼:

(defun C:LONG (/ CURVE TLEN SS N SUMLEN)
(vl-load-com)
(setq SUMLEN 0)
(setq
SS (ssget
'((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))
)
)
(setq N 0)
(repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(if(/= (vla-get-objectname CURVE) "AcDbRegion")
(setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
)
)
(setq TLEN (vla-get-perimeter CURVE))
)
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
)

(print (strcat "總長度: " (rtos SUMLEN 2 5)))
(princ)
)

beyond 寫到:阿希大大你好～
我已按照您的指示存檔！
1.也將.LSP程式複製後放置到 C:\Program Files\CAutoCAD 2009\support 底下(小弟用的是2009版)

2.也載入該程式，加入啟動套件功能了。

可是小弟我試過...還是沒辦法算耶～

可否請教大大～接下來我該如何才能算出總長度呢？

不知道是否是我有什麼步驟作錯了呢？

煩請阿西大大可否詳細一點解說～

非常感謝您～ :z85:

beyond 寫到:我瞭解leoneriol 大大的意思～
就是用聚合線一個一個連起來…
在用列表找出長度再加總～
我們也是這樣～
非常感謝您分享經驗

beyond 寫到:阿希大大你好～
我終於弄懂了！！
也OK了！！
真非常謝謝您～感恩
功德無量

aurtoria 寫到:我也有載入了，我設定代號為Nu，
但是當我全關掉在開啟輸入後，卻說那是不明的指令??

beyond 寫到:
1.將程式內容存成long.lsp
2.將程式放置搜尋檔路徑下 (C:\Program Files\CAutoCAD 2009\support 這也可以)
3.工具 - 載入應用程式 (快捷AP)在畫面上半部的地方找尋檔案-載入即可
4.回到CAD , 輸入LONG 即可執行程式
PS : 如果不想每次都執行步驟3 , 可在步驟3的畫面右下角,有個公事包 ~ 將檔案放入公事包內即可
注意 ~ 放入公事包內的檔案是指 ~ "之後"每個開啟的檔案皆自動載入公事包內的程式,所以目前跟之前所開啟的圖檔還未載入程式,必須關閉圖檔再次開啟才有效  
慢慢仔細想一下看是否有步驟作錯呢？？

aurtoria 寫到:我找到問題的癥結點囉!是我設定好代號的部份打錯了> <(設定NU，我都打成MU)，因此才會出現不明指令。^^謝謝大家指導。

並補充一下我自己曾會看不懂的地方，讓以後和我有相同問題的人可以知道。
1.將程式碼拷貝放入「記事本」即可，存檔後再改副檔名為.lsp,(此時會出現：若更改檔名會造成無法使用。請按YES(是))
2.檔案圖片會變成((()))().lsp
3.你再次打開記事本確認，內文不是亂碼，就OK囉!
^^

再次感謝~這個程式真的超好用!!!太方便了~