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

最近學算結構平面數量不知道這程式是否適用.下載來研究.謝謝分享~

非常需要這種lsp,希望可以使用。

正在找尋計算線長的程序，希望能符合我的需要。謝謝分享

感謝各位無私的分享感謝各位無私的分享感謝各位無私的分享

謝謝分享，趕緊來看看學習

正在找尋計算線長的程序，希望能符合我的需要。謝謝大大分享

之前都是用最笨的方式算長度，有了這個程式後，真的有助予工作效率，感謝版大的分享~~

呵呵...我也是畫水電施工圖耶,有這LSP就太方便了，感謝大大

jbmmgoii 寫到:

嚴重違規
[公告]禁止使用灌水方式回文(回覆文章不得少於10個字)

本身也是水電工程的方面，來參考一下阿希大大提供的程式。

感謝分享,這對建築的我也很受用

這邊還有幾個可以參考參考看看

[分享]自動歸類圖層 與 線段總長計算(更新)
https://www.autocad-tw.com/t20880-topic

請教各位大大...
本帖中阿希大大的lisp
小弟使用至今年，更換CAD2017版後
完全無法使用!!
請問各位大大...我應該如何解決??

謝謝!!

beyond 寫到:請教各位大大...
本帖中阿希大大的lisp
小弟使用至今年，更換CAD2017版後
完全無法使用!!
請問各位大大...我應該如何解決??
謝謝!!

無法用有出現什麼訊息嗎？
我使用2017版本還是可以用！

感謝版大無私貢獻
以後算牆長,不用再一筆一筆加總了

蘋果爸...

(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 寫到:沒有出現任何訊息!!
沒任何動作...
麻煩蘋果爸幫幫我..
謝謝你!!

這程式沒有問題～
你是用什麼版本？
有沒有試過其他電腦？
如何執行以及出現什麼訊息呢？

報告蘋果爸~

小弟是北七
我把指令列拉高就看到了!!
一時糊塗，造成各位的困擾
深感抱歉!!
也非常感謝蘋果爸不辭辛勞
的照顧幫忙我們解決問題!!
非常感激

感謝大家的分享 不然抓管線長度真的會抓到瘋掉

超棒的，有同學問我這個我立馬想到有看過這邊文章，馬上操作就成功了，感謝無私分享~~

黃鈺婷 寫到:超棒的，有同學問我這個我立馬想到有看過這邊文章，馬上操作就成功了，感謝無私分享~~

呵呵...恭喜你挖到寶囉～
有空記得分享給需要的 "冰友"

請問我載入完成後
點了線條
給我了這樣的訊息
錯誤: ActiveX 伺服器回覆一個錯誤訊息: 載入類型程式庫/DLL 時發生錯誤

請問哪邊有問題....這lsp我有使用過都沒問題...因有重灌過...今天重新加載就不能了
我的版本是2014....謝謝...

感謝大大分享LSP真的省掉不少時間

這對我很有幫助!!謝謝前輩分享