【發帖精華】總數量與總長度計算方法
+144
Stephanie
a706239
AKI-HO
leechingting
jkop
ryan0106
shackle_2005
LUCAS_LAI
sevenmascot
pchen
gtjove
黃鈺婷
lansky777
hycsyh
jackiehover
大少哥
kriegen
jbmmgoii
f537964
明月心
u9016020
小龍犽
qq711222
john351486
rockao
vicki1021
陳明田
ctest
Beck
mmee6070
eve5321608
sidney
gimmy1tw
林小毛
jk0924
orson
anna6477
營養不良
et1029et
MASAKOWU
nekolee0816
林盟淳
hohaho
guanbo.bruce
andylin1124
abcisabc
poiuyy
ji2342
crihy
x586042
以西杰
awww
jiawei
qaz6605
jaii35
li60830
first_love
天蠍
jc157
quaintw
櫻子
cheyuan1983
lovemeok0768
jess198109
amdhome
hkjyiuop
蔣秉澔
jc3439577
EVONNE
t8641253
奶茶
lineason
wcl05275
vickyyang
regina
prettycat
willie.chen0522
jassica123
nan1599
sai
太陽的光跡
鑽石級宅男
lingo_st
水淬
祥
key0420
kshuangt
jenniferaptg
ycy1111
fuju
惡魔紫
小香
adslwang
mai22118
仲林
GRACE0724
老水牛
x1ben
chan9148
jhou0219
tarpon
benray
虹
iccs
Andy.Lin
Tanya
DIGE
pizg
sammi0322
glassshoes2003
ryan_monitor
Sam Yan
tpmonies
228811
花枝餃
cfone1228
tttCADttt
god2008ss
howard73
mayberock11
JerryJr
cathy21
verlth
DARDAR
zerockrx
popoyu68
明~
muska172
andyhang88
kong0982
twingo18
bruce79
litung
W-LIN
jmeey1971
aurtoria
Reicy
Tiger&蘋果爸
白金之星
byrabbit2
阿希
leoneriol
judyyai
beyond
148 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第6頁(共8頁)
第6頁(共8頁) • 1, 2, 3, 4, 5, 6, 7, 8
【發帖精華】總數量與總長度計算方法
主題回顧 :
跪求各位CAD高手大大
小弟非AutoCAD專長。
但因從事水電消防工程工作的關係~
需計算出整棟大樓所有管線種類長度與器具的數量~
傳統的作法~就是照水電消防配線圖一個一個點...
不然就是用線一條一條的量…再加總算出總長度...
可否請教有AutoCAD專長或是工程界的高手先進教教小弟我
如何運用AutoCAD計算出管線的總長度與器具的總數量?
小弟CAD不熟…求助不知有沒有好心的大大可用圖示教教小弟~
感激不盡~功德無量~謝謝!!
跪求各位CAD高手大大
小弟非AutoCAD專長。
但因從事水電消防工程工作的關係~
需計算出整棟大樓所有管線種類長度與器具的數量~
傳統的作法~就是照水電消防配線圖一個一個點...
不然就是用線一條一條的量…再加總算出總長度...
可否請教有AutoCAD專長或是工程界的高手先進教教小弟我
如何運用AutoCAD計算出管線的總長度與器具的總數量?
小弟CAD不熟…求助不知有沒有好心的大大可用圖示教教小弟~
感激不盡~功德無量~謝謝!!
Tiger&蘋果爸 在 2017-02-13, 12:14 作了第 5 次修改 (原因 : 精華文章熱烈討論)
beyond- 初級會員
- 文章總數 : 41
年齡 : 48
來自 : 新竹
職業 : 機電主任
愛好 : 釣魚,品茗,玩石
個性 : 平實
使用年資 : 四年
使用版本 : 2013
積分 : 2
經驗值 : 5879
威望值 : 17
發帖精華 : 1
注冊日期 : 2009-02-04
leechingting likes this post
回復: 【發帖精華】總數量與總長度計算方法
挖寶恢復舊技藝 ,感恩
poiuyy- 初級會員
- 文章總數 : 226
年齡 : 50
來自 : 台中
職業 : 小監
愛好 : 電影
個性 : 中庸
使用年資 : 5
使用版本 : 2010
積分 : 2
經驗值 : 4789
威望值 : 84
注冊日期 : 2014-06-24
回復: 【發帖精華】總數量與總長度計算方法
感謝大大分享
小弟正好工作有需求
感恩
小弟正好工作有需求
感恩
abcisabc- 一般會員
- 文章總數 : 9
年齡 : 38
來自 : 天龍國
職業 : 工程師
愛好 : CAD
個性 : 安靜
使用年資 : 2年
使用版本 : 2013
經驗值 : 4098
威望值 : 0
注冊日期 : 2013-10-25
回復: 【發帖精華】總數量與總長度計算方法
我也想有此程式可以試試看
andylin1124- 一般會員
- 文章總數 : 15
年齡 : 49
來自 : 新北市
職業 : 觸控面板設計師
愛好 : 打籃球
個性 : 木訥
使用年資 : 10年
使用版本 : 2008及2012
經驗值 : 4226
威望值 : 0
注冊日期 : 2013-07-15
回復: 【發帖精華】總數量與總長度計算方法
先說聲「感謝您」!
再來端詳端詳!
再來端詳端詳!
____________________________________________________________________________________
寧做不通,勿作庸庸;寧可不屑,不做愚忠;寧試刀鋒,不屑跟風;寧可裝瘋,不為不公!
回復: 【發帖精華】總數量與總長度計算方法
這麼好用的LISP怎麼可以錯過!謝謝分享唷!
hohaho- 一般會員
- 文章總數 : 21
年齡 : 59
來自 : 台北
職業 : 建築
愛好 : 電腦
個性 : 內向
使用年資 : 一年
使用版本 : 2011
經驗值 : 5279
威望值 : 35
注冊日期 : 2010-10-13
小弟以前也寫過一個類似的LISP,名為COUNTL
小弟以前也寫過一個類似的LISP,用法與阿希大大的函數名稱LONG一樣,但我的函數名稱為COUNTL,希望能對大家有幫助:
(defun C:COUNTL ()
(setq long 0)
(setq atext 0)
(setq along 0)
(setq llong 0)
(setq plong 0)
(setq olong 0)
(setq tt (ssget) ct 0)
(setq nt (sslength tt))
(repeat (sslength tt)
(setq cf (ssname tt ct))
(setq ent (cdr (assoc 1 (entget cf))))
(if (and (eq (cdr (assoc 0 (entget cf))) "TEXT")
(or (eq (substr ent 8 1) "-")(eq (substr ent 7 1) "-")(eq (substr ent 6 1) "-")(eq (substr ent 5 1) "-")(eq (substr ent 4 1) "-")(eq (substr ent 3 1) "-")(eq (substr ent 2 1) "-")(eq (substr ent 1 1) "-"))
)
(setq atext (+ atext 1))
)
(setq entiry1 (cdr (assoc 0 (entget cf))))
(if (eq entiry1 "ARC") (setq along (+ along 1)))
(if (eq entiry1 "LINE") (setq llong (+ llong 1)))
(if (eq entiry1 "POLYLINE")(setq plong (+ plong 1)))
(setq ct (1+ ct))
)
(setq olong (- nt (+ along llong plong)))
(setq ct 0)
(repeat (sslength tt)
(setq l1 0)
(setq cf (ssname tt ct))
(setq entiry1 (cdr (assoc 0 (entget cf))))
(if (eq entiry1 "LINE")
(progn
(setq p1 (cdr (assoc 10 (entget cf))))
(setq p2 (cdr (assoc 11 (entget cf))))
(setq l1 (distance p1 p2))
)
(progn
(if (eq entiry1 "ARC")
(progn
(setq r (cdr (assoc 40 (entget cf))))
(setq p1 (cdr (assoc 50 (entget cf))))
(setq p2 (cdr (assoc 51 (entget cf))))
(if (>= p1 p2)
(setq p3 (+ (- (* pi 2) p1) p2))
(setq p3 (- p2 p1))
)
(setq l1 (* r p3))
)
)
)
)
(setq long (+ long l1))
(setq ct (1+ ct))
)
(setq long (/ long 100))
(princ " 在1/100比例下且不含PLINE合計線長 ")(princ long)
(princ " [選取物件總數:")(princ nt)
(princ " ,其中 多重線:")(princ plong)
(princ " ,弧:")(princ along)
(princ " ,線:")(princ llong)
(princ " ,字:")(princ atext)
(princ " ,其他:")(princ olong)(princ "]")
(princ)
)
(defun C:COUNTL ()
(setq long 0)
(setq atext 0)
(setq along 0)
(setq llong 0)
(setq plong 0)
(setq olong 0)
(setq tt (ssget) ct 0)
(setq nt (sslength tt))
(repeat (sslength tt)
(setq cf (ssname tt ct))
(setq ent (cdr (assoc 1 (entget cf))))
(if (and (eq (cdr (assoc 0 (entget cf))) "TEXT")
(or (eq (substr ent 8 1) "-")(eq (substr ent 7 1) "-")(eq (substr ent 6 1) "-")(eq (substr ent 5 1) "-")(eq (substr ent 4 1) "-")(eq (substr ent 3 1) "-")(eq (substr ent 2 1) "-")(eq (substr ent 1 1) "-"))
)
(setq atext (+ atext 1))
)
(setq entiry1 (cdr (assoc 0 (entget cf))))
(if (eq entiry1 "ARC") (setq along (+ along 1)))
(if (eq entiry1 "LINE") (setq llong (+ llong 1)))
(if (eq entiry1 "POLYLINE")(setq plong (+ plong 1)))
(setq ct (1+ ct))
)
(setq olong (- nt (+ along llong plong)))
(setq ct 0)
(repeat (sslength tt)
(setq l1 0)
(setq cf (ssname tt ct))
(setq entiry1 (cdr (assoc 0 (entget cf))))
(if (eq entiry1 "LINE")
(progn
(setq p1 (cdr (assoc 10 (entget cf))))
(setq p2 (cdr (assoc 11 (entget cf))))
(setq l1 (distance p1 p2))
)
(progn
(if (eq entiry1 "ARC")
(progn
(setq r (cdr (assoc 40 (entget cf))))
(setq p1 (cdr (assoc 50 (entget cf))))
(setq p2 (cdr (assoc 51 (entget cf))))
(if (>= p1 p2)
(setq p3 (+ (- (* pi 2) p1) p2))
(setq p3 (- p2 p1))
)
(setq l1 (* r p3))
)
)
)
)
(setq long (+ long l1))
(setq ct (1+ ct))
)
(setq long (/ long 100))
(princ " 在1/100比例下且不含PLINE合計線長 ")(princ long)
(princ " [選取物件總數:")(princ nt)
(princ " ,其中 多重線:")(princ plong)
(princ " ,弧:")(princ along)
(princ " ,線:")(princ llong)
(princ " ,字:")(princ atext)
(princ " ,其他:")(princ olong)(princ "]")
(princ)
)
hohaho- 一般會員
- 文章總數 : 21
年齡 : 59
來自 : 台北
職業 : 建築
愛好 : 電腦
個性 : 內向
使用年資 : 一年
使用版本 : 2011
經驗值 : 5279
威望值 : 35
注冊日期 : 2010-10-13
回復: 【發帖精華】總數量與總長度計算方法
謝謝分享 這對我現在工作很有幫助
林盟淳- 一般會員
- 文章總數 : 17
年齡 : 38
來自 : 桃園市
職業 : 工地工程師
愛好 : 上網
個性 : 活潑外向
使用年資 : 新手初學
使用版本 : 2005
經驗值 : 4624
威望值 : 0
注冊日期 : 2012-06-19
回復: 【發帖精華】總數量與總長度計算方法
謝謝大大的分享 這是很多人都會遇到的問題耶
nekolee0816- 一般會員
- 文章總數 : 38
年齡 : 54
來自 : 基隆
職業 : 繪圖員
愛好 : 看小說
個性 : 靜
使用年資 : 10年
使用版本 : 2008
經驗值 : 4998
威望值 : 42
注冊日期 : 2011-10-05
回復: 【發帖精華】總數量與總長度計算方法
感謝分享!工作上也常需要計算長度,但都是用土法鍊鋼的方法,一個一個量,來研究使用看看!
MASAKOWU- 初級會員
- 文章總數 : 35
年齡 : 47
來自 : 新北市
職業 : 繪圖
愛好 : 聽音樂
個性 : 一般
使用年資 : 7年
使用版本 : 2009
積分 : 1
經驗值 : 4245
威望值 : 27
注冊日期 : 2013-10-04
回復: 【發帖精華】總數量與總長度計算方法
雖然還用不上,不過先收藏下來
感謝大大的分享~
感謝大大的分享~
et1029et- 初級會員
- 文章總數 : 356
年齡 : 44
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 5924
威望值 : 324
注冊日期 : 2013-07-02
回復: 【發帖精華】總數量與總長度計算方法
這問題我也有,下載來試看看。
營養不良- 一般會員
- 文章總數 : 16
年齡 : 48
來自 : 板橋
職業 : 營造業
愛好 : 看小說
個性 : 我是好人
使用年資 : 10年
使用版本 : 2013
經驗值 : 5018
威望值 : 0
注冊日期 : 2011-05-20
回復: 【發帖精華】總數量與總長度計算方法
感謝您分享經驗
anna6477- 初級會員
- 文章總數 : 53
年齡 : 49
來自 : 新北市板橋
職業 : 水電繪圖
愛好 : 旅遊
個性 : 樂觀善良
使用年資 : 10
使用版本 : 2012
積分 : 1
最佳解答 : 1
經驗值 : 5159
威望值 : 18
注冊日期 : 2011-06-29
回復: 【發帖精華】總數量與總長度計算方法
今天我本來打算用這個偉大的程式來增加我及同事的工作效益.......沒想到我的同事回我說:[你都這樣糊弄得喔.......]
[你都這樣糊弄得喔.......]
[你都這樣糊弄得喔.......]
[你都這樣糊弄得喔.......]
leoneriol- 榮譽顧問
- 文章總數 : 818
年齡 : 40
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 9215
威望值 : 960
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
回復: 【發帖精華】總數量與總長度計算方法
沒關係啦~每個人專業不同~leoneriol 寫到:今天我本來打算用這個偉大的程式來增加我及同事的工作效益.......沒想到我的同事回我說:[你都這樣糊弄得喔.......][你都這樣糊弄得喔.......]
[你都這樣糊弄得喔.......]
[你都這樣糊弄得喔.......]
因為我們都是專業大笨蛋
[討論]寫LISP像是笨蛋一樣...
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
回復: 【發帖精華】總數量與總長度計算方法
最近突然覺醒.....覺得應該要學學蘋果爸,把自己寫的東西包裝起來,變成一個自己的作品.......ㄎㄎ......不過也是困難重重.....XD
leoneriol- 榮譽顧問
- 文章總數 : 818
年齡 : 40
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 9215
威望值 : 960
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
回復: 【發帖精華】總數量與總長度計算方法
總數量與總長度的計算,想不到還可以寫這樣的程式應用,感謝您的分享!
orson- 初級會員
- 文章總數 : 67
年齡 : 52
來自 : 台灣台北
職業 : 室內設計
愛好 : 釣魚,上網
個性 : 中庸,開朗
使用年資 : 6
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 2
經驗值 : 5924
威望值 : 78
注冊日期 : 2009-08-14
回復: 【發帖精華】總數量與總長度計算方法
謝謝大大的分享!!!感恩分享!!
jk0924- 一般會員
- 文章總數 : 48
年齡 : 50
來自 : 台灣台北
職業 : 土木工程
愛好 : 聽音樂,打球
個性 : 隨和
使用年資 : 認真專注
使用版本 : 2006
經驗值 : 4200
威望值 : 0
注冊日期 : 2013-12-15
回復: 【發帖精華】總數量與總長度計算方法
非常實用的工具,各位大大的分享討論,有助增加工作上的執行效率,感謝大家。
林小毛- 一般會員
- 文章總數 : 30
年齡 : 43
來自 : 高雄市
職業 : 工程師
愛好 : 旅遊、看電影、喝咖啡
個性 : 認真負責
使用年資 : 11年
使用版本 : 2006 2010 2012
經驗值 : 5519
威望值 : 12
注冊日期 : 2010-04-01
回復: 【發帖精華】總數量與總長度計算方法
我也是畫水電施工圖的,偶爾也會需要幫忙作估算,有這LSP就太方便了,感謝大大的分享!
gimmy1tw- 一般會員
- 文章總數 : 6
年齡 : 41
來自 : 台北
職業 : 機電繪圖工程師
愛好 : CAD、REVIT
個性 : 誠實和善
使用年資 : 7年
使用版本 : 2008,2012
經驗值 : 4171
威望值 : 0
注冊日期 : 2013-07-29
回復: 【發帖精華】總數量與總長度計算方法
感謝大大分享,下載起來學習
sidney- 一般會員
- 文章總數 : 16
年齡 : 53
來自 : TAIPEI
職業 : 工
愛好 : MUSIC,APP修改
個性 : 善良
使用年資 : 5
使用版本 : 2008
經驗值 : 3769
威望值 : 0
注冊日期 : 2014-10-24
回復: 【發帖精華】總數量與總長度計算方法
又多學一招了
想當年我也是傻傻的一個一個加總
想當年我也是傻傻的一個一個加總
eve5321608- 一般會員
- 文章總數 : 25
年齡 : 32
來自 : 新竹
職業 : 室內設計
愛好 : 3D渲染
個性 : 內向
使用年資 : 四年
使用版本 : 2010
經驗值 : 3796
威望值 : 6
注冊日期 : 2014-10-30
回復: 【發帖精華】總數量與總長度計算方法
謝謝阿希的分享~試用看看中~
mmee6070- 一般會員
- 文章總數 : 14
年齡 : 30
來自 : 鶯歌
職業 : 待業
愛好 : 安靜
個性 : 隨性
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4273
威望值 : 0
注冊日期 : 2013-05-20
回復: 【發帖精華】總數量與總長度計算方法
我希望也能嘗試一下!
Beck- 一般會員
- 文章總數 : 70
年齡 : 60
來自 : 新竹
職業 : 配管系統設計
愛好 : 郊遊
個性 : 和善
使用年資 : 28 年
使用版本 : 2017/2019
經驗值 : 5218
威望值 : 78
注冊日期 : 2011-08-16
回復: 【發帖精華】總數量與總長度計算方法
非常感謝您分享,真非常謝謝您~感恩
ctest- 一般會員
- 文章總數 : 60
年齡 : 55
來自 : 中壢
職業 : 待業
愛好 : watch
個性 : 溫和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 5098
威望值 : 12
注冊日期 : 2011-09-19
回復: 【發帖精華】總數量與總長度計算方法
程式還在不在.看一看.可以下嗎
陳明田- 一般會員
- 文章總數 : 51
年齡 : 60
來自 : 苗栗
職業 : 工
愛好 : 大自然
個性 : 善良
使用年資 : 帥
使用版本 : 2018
經驗值 : 5277
威望值 : 33
注冊日期 : 2011-02-11
第6頁(共8頁) • 1, 2, 3, 4, 5, 6, 7, 8
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第6頁(共8頁)
這個論壇的權限:
您 無法 在這個版面回復文章