顧問教學
加入贊助
聯絡我們
【發帖精華】總數量與總長度計算方法
+141
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
145 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第6頁(共8頁)
第6頁(共8頁) • 
1, 2, 3, 4, 5, 6, 7, 8 
【發帖精華】總數量與總長度計算方法
由 beyond 2009-06-27, 01:48
主題回顧 :
跪求各位CAD高手大大
小弟非AutoCAD專長。
但因從事水電消防工程工作的關係～
需計算出整棟大樓所有管線種類長度與器具的數量～
傳統的作法～就是照水電消防配線圖一個一個點...
不然就是用線一條一條的量…再加總算出總長度...
可否請教有AutoCAD專長或是工程界的高手先進教教小弟我
如何運用AutoCAD計算出管線的總長度與器具的總數量？
小弟CAD不熟…求助不知有沒有好心的大大可用圖示教教小弟～
感激不盡～功德無量～謝謝！！
跪求各位CAD高手大大
小弟非AutoCAD專長。
但因從事水電消防工程工作的關係～
需計算出整棟大樓所有管線種類長度與器具的數量～
傳統的作法～就是照水電消防配線圖一個一個點...
不然就是用線一條一條的量…再加總算出總長度...
可否請教有AutoCAD專長或是工程界的高手先進教教小弟我
如何運用AutoCAD計算出管線的總長度與器具的總數量？
小弟CAD不熟…求助不知有沒有好心的大大可用圖示教教小弟～
感激不盡～功德無量～謝謝！！
恭喜您的主題獲選為精華文章！ < 積分+1、威望+3 >Tiger&蘋果爸 在 2017-02-13, 12:14 作了第 5 次修改 (原因 : 精華文章熱烈討論)
beyond- 初級會員
- 文章總數 : 41
年齡 : 47
來自 : 新竹
職業 : 機電主任
愛好 : 釣魚，品茗，玩石
個性 : 平實
使用年資 : 四年
使用版本 : 2013
積分 : 2
經驗值 : 5669
威望值 : 20
發帖精華 : 1
注冊日期 : 2009-02-04
leechingting likes this post
回復： 【發帖精華】總數量與總長度計算方法
由 poiuyy 2014-11-05, 21:08
挖寶恢復舊技藝 ，感恩
____________________________________________________________________________________
poiuyy- 初級會員
- 文章總數 : 226
年齡 : 49
來自 : 台中
職業 : 小監
愛好 : 電影
個性 : 中庸
使用年資 : 5
使用版本 : 2010
積分 : 2
經驗值 : 4576
威望值 : 84
注冊日期 : 2014-06-24
abcisabc- 一般會員
- 文章總數 : 9
年齡 : 37
來自 : 天龍國
職業 : 工程師
愛好 : CAD
個性 : 安靜
使用年資 : 2年
使用版本 : 2013
經驗值 : 3885
威望值 : 0
注冊日期 : 2013-10-25
andylin1124- 一般會員
- 文章總數 : 15
年齡 : 48
來自 : 新北市
職業 : 觸控面板設計師
愛好 : 打籃球
個性 : 木訥
使用年資 : 10年
使用版本 : 2008及2012
經驗值 : 4013
威望值 : 0
注冊日期 : 2013-07-15
回復： 【發帖精華】總數量與總長度計算方法
由 guanbo.bruce 2014-11-05, 21:46
先說聲「感謝您」！
再來端詳端詳！
再來端詳端詳！
____________________________________________________________________________________
寧做不通，勿作庸庸；寧可不屑，不做愚忠；寧試刀鋒，不屑跟風；寧可裝瘋，不為不公！
guanbo.bruce- 初級會員
- 文章總數 : 50
年齡 : 54
來自 : Taipei
職業 : Engineer
愛好 : 建築、藝術、閱讀、象棋、游泳、3C與塗鴉。
個性 : 很熱誠、頗自省、好好奇、蠻懶散。
使用年資 : 24
使用版本 : 2015
積分 : 3
經驗值 : 5054
威望值 : 222
注冊日期 : 2011-08-11
-
hohaho- 一般會員
- 文章總數 : 21
年齡 : 58
來自 : 台北
職業 : 建築
愛好 : 電腦
個性 : 內向
使用年資 : 一年
使用版本 : 2011
經驗值 : 5066
威望值 : 35
注冊日期 : 2010-10-13
小弟以前也寫過一個類似的LISP，名為COUNTL
由 hohaho 2014-11-05, 22:15
小弟以前也寫過一個類似的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
年齡 : 58
來自 : 台北
職業 : 建築
愛好 : 電腦
個性 : 內向
使用年資 : 一年
使用版本 : 2011
經驗值 : 5066
威望值 : 35
注冊日期 : 2010-10-13
回復： 【發帖精華】總數量與總長度計算方法
由 林盟淳 2014-11-06, 08:33
謝謝分享 這對我現在工作很有幫助
____________________________________________________________________________________
林盟淳- 一般會員
- 文章總數 : 17
年齡 : 38
來自 : 桃園市
職業 : 工地工程師
愛好 : 上網
個性 : 活潑外向
使用年資 : 新手初學
使用版本 : 2005
經驗值 : 4411
威望值 : 0
注冊日期 : 2012-06-19
nekolee0816- 一般會員
- 文章總數 : 38
年齡 : 53
來自 : 基隆
職業 : 繪圖員
愛好 : 看小說
個性 : 靜
使用年資 : 10年
使用版本 : 2008
經驗值 : 4785
威望值 : 42
注冊日期 : 2011-10-05
MASAKOWU- 初級會員
- 文章總數 : 31
年齡 : 47
來自 : 新北市
職業 : 繪圖
愛好 : 聽音樂
個性 : 一般
使用年資 : 7年
使用版本 : 2009
積分 : 1
經驗值 : 4018
威望值 : 27
注冊日期 : 2013-10-04
回復： 【發帖精華】總數量與總長度計算方法
由 et1029et 2014-11-06, 11:59
雖然還用不上，不過先收藏下來
感謝大大的分享~
感謝大大的分享~
____________________________________________________________________________________
et1029et- 初級會員
- 文章總數 : 356
年齡 : 43
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 5711
威望值 : 324
注冊日期 : 2013-07-02
營養不良- 一般會員
- 文章總數 : 15
年齡 : 47
來自 : 板橋
職業 : 營造業
愛好 : 看小說
個性 : 我是好人
使用年資 : 10年
使用版本 : 2013
經驗值 : 4800
威望值 : 0
注冊日期 : 2011-05-20
回復： 【發帖精華】總數量與總長度計算方法
由 anna6477 2014-11-06, 16:14
感謝您分享經驗
____________________________________________________________________________________
anna6477- 初級會員
- 文章總數 : 49
年齡 : 48
來自 : 新北市板橋
職業 : 水電繪圖
愛好 : 旅遊
個性 : 樂觀善良
使用年資 : 10
使用版本 : 2012
積分 : 1
最佳解答 : 1
經驗值 : 4924
威望值 : 12
注冊日期 : 2011-06-29
回復： 【發帖精華】總數量與總長度計算方法
由 leoneriol 2014-11-06, 16:35
今天我本來打算用這個偉大的程式來增加我及同事的工作效益.......沒想到我的同事回我說:[你都這樣糊弄得喔.......]
[你都這樣糊弄得喔.......]
[你都這樣糊弄得喔.......]
[你都這樣糊弄得喔.......]
____________________________________________________________________________________
丑角之日
堅持~!才會有價值~!
leoneriol- 榮譽顧問
- 文章總數 : 818
年齡 : 40
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 9004
威望值 : 962
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
回復： 【發帖精華】總數量與總長度計算方法
由 Tiger&蘋果爸 2014-11-06, 17:58
沒關係啦～每個人專業不同～leoneriol 寫到:今天我本來打算用這個偉大的程式來增加我及同事的工作效益.......沒想到我的同事回我說:[你都這樣糊弄得喔.......][你都這樣糊弄得喔.......]
[你都這樣糊弄得喔.......]
[你都這樣糊弄得喔.......]
因為我們都是專業大笨蛋
[討論]寫LISP像是笨蛋一樣...
____________________________________________________________________________________
👉[優惠]慶祝AutoCAD顧問十六週年の感謝有你(點我)👈
Tiger&蘋果爸- 系統管理員
- 文章總數 : 21130
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88750
威望值 : 16961
注冊日期 : 2008-04-23
-
回復： 【發帖精華】總數量與總長度計算方法
由 leoneriol 2014-11-06, 19:37
最近突然覺醒.....覺得應該要學學蘋果爸,把自己寫的東西包裝起來,變成一個自己的作品.......ㄎㄎ......不過也是困難重重.....XD
____________________________________________________________________________________
丑角之日
堅持~!才會有價值~!
leoneriol- 榮譽顧問
- 文章總數 : 818
年齡 : 40
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 9004
威望值 : 962
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
orson- 初級會員
- 文章總數 : 67
年齡 : 51
來自 : 台灣台北
職業 : 室內設計
愛好 : 釣魚,上網
個性 : 中庸,開朗
使用年資 : 6
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 2
經驗值 : 5711
威望值 : 78
注冊日期 : 2009-08-14
回復： 【發帖精華】總數量與總長度計算方法
由 jk0924 2014-11-07, 16:24
謝謝大大的分享!!!感恩分享!!
____________________________________________________________________________________
jk0924- 一般會員
- 文章總數 : 47
年齡 : 49
來自 : 台灣台北
職業 : 土木工程
愛好 : 聽音樂,打球
個性 : 隨和
使用年資 : 認真專注
使用版本 : 2006
經驗值 : 3984
威望值 : 0
注冊日期 : 2013-12-15
林小毛- 一般會員
- 文章總數 : 30
年齡 : 43
來自 : 高雄市
職業 : 工程師
愛好 : 旅遊、看電影、喝咖啡
個性 : 認真負責
使用年資 : 11年
使用版本 : 2006 2010 2012
經驗值 : 5306
威望值 : 12
注冊日期 : 2010-04-01
gimmy1tw- 一般會員
- 文章總數 : 6
年齡 : 41
來自 : 台北
職業 : 機電繪圖工程師
愛好 : CAD、REVIT
個性 : 誠實和善
使用年資 : 7年
使用版本 : 2008,2012
經驗值 : 3958
威望值 : 0
注冊日期 : 2013-07-29
sidney- 一般會員
- 文章總數 : 16
年齡 : 52
來自 : TAIPEI
職業 : 工
愛好 : MUSIC,APP修改
個性 : 善良
使用年資 : 5
使用版本 : 2008
經驗值 : 3556
威望值 : 0
注冊日期 : 2014-10-24
eve5321608- 一般會員
- 文章總數 : 23
年齡 : 32
來自 : 新竹
職業 : 室內設計
愛好 : 3D渲染
個性 : 內向
使用年資 : 四年
使用版本 : 2010
經驗值 : 3573
威望值 : 6
注冊日期 : 2014-10-30
mmee6070- 一般會員
- 文章總數 : 14
年齡 : 30
來自 : 鶯歌
職業 : 待業
愛好 : 安靜
個性 : 隨性
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4060
威望值 : 0
注冊日期 : 2013-05-20
回復： 【發帖精華】總數量與總長度計算方法
由 Beck 2014-11-19, 20:22
我希望也能嘗試一下!
____________________________________________________________________________________
Beck- 一般會員
- 文章總數 : 70
年齡 : 59
來自 : 新竹
職業 : 配管系統設計
愛好 : 郊遊
個性 : 和善
使用年資 : 28 年
使用版本 : 2017/2019
經驗值 : 5005
威望值 : 78
注冊日期 : 2011-08-16
ctest- 一般會員
- 文章總數 : 59
年齡 : 54
來自 : 中壢
職業 : 待業
愛好 : watch
個性 : 溫和
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4880
威望值 : 12
注冊日期 : 2011-09-19
回復： 【發帖精華】總數量與總長度計算方法
由 陳明田 2014-11-20, 22:42
程式還在不在.看一看.可以下嗎
____________________________________________________________________________________
陳明田- 一般會員
- 文章總數 : 51
年齡 : 59
來自 : 苗栗
職業 : 工
愛好 : 大自然
個性 : 善良
使用年資 : 帥
使用版本 : 2018
經驗值 : 5064
威望值 : 33
注冊日期 : 2011-02-11
第6頁(共8頁) • 1, 2, 3, 4, 5, 6, 7, 8
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第6頁(共8頁)
這個論壇的權限：
您 無法 在這個版面回復文章