[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
+81
WillChen199903
linuslo
s5512825
andy75
WayneJ
Reimi
kcn1u2t
安東尼
cadshun
Cher
winnie
kmh
DaVinci520
aweiyang
wateraustin
MANman
user63316d6143117
kim910100
andyhang88
lmt112233
白宗禮
狗狗
ALEX_YU
rickyyang
fina12
Jatsou
johnson887135
kit92064
煙雨宵宵
kaven0922
hua
wkckmjs
minture
jackiehover
et1029et
Monkey.D
klarencee
jenniferaptg
sidney
happyfat
crihy
蔣秉澔
vicki1021
hfwuming
hung
amandattl
verlth
awi
jakehuang
honech57
yu0678
shackle_2005
qq711222
safardy
daniel8742
luo.family5
蜜柑喵喵
lingo_st
wwsh3
greetingsfromtw
guanbo.bruce
EVONNE
ching1791
fuju
leoneriol
光卓
youjyh
妤璇
gill0923
阿德
pizg
Tiger&蘋果爸
shenhung
jack0615.tw
avenir
bruce79
adslwang
長陳
ginse0727
阿希
tarpon
85 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第4頁(共5頁)
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
主題回顧 :
[問題]選取圖塊計算數量後將表格繪製於圖面上並插入圖塊
q1:此程式會計算圖面所有圖塊,如何改成只有選取範圍內圖塊
q2:含屬性圖塊如不將其過濾排除,就必須分解才可插入於圖表
有沒有辦法將含屬性圖塊及其值一併繒製插入於表格內[表格須加屬性值欄位]
---------------------------------------------------------------------------------
希望未來cad版本資料萃取有自動將圖塊插入於表格的功能那就太棒了
---------------------------------------------------------------------------------
程式
[問題]選取圖塊計算數量後將表格繪製於圖面上並插入圖塊
q1:此程式會計算圖面所有圖塊,如何改成只有選取範圍內圖塊
q2:含屬性圖塊如不將其過濾排除,就必須分解才可插入於圖表
有沒有辦法將含屬性圖塊及其值一併繒製插入於表格內[表格須加屬性值欄位]
---------------------------------------------------------------------------------
希望未來cad版本資料萃取有自動將圖塊插入於表格的功能那就太棒了
![竊喜](/users/3215/23/55/09/smiles/91815.gif)
---------------------------------------------------------------------------------
程式
- 代碼:
(defun c:bombl()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq pt1 (getpoint "\n表格左上角插入點: "))
(setq ww 1200.0);表格總寬度
(setq hh 100.0);表格高度
(setq pt2 (polar pt1 0 ww));表格右上角點
(setq pt3 (polar pt2 (* pi 1.5) hh));表格右下角點
(setq pt4 (polar pt1 (* pi 1.5) hh))表格左下角點
(command "pline" pt1 pt2 pt3 pt4 "c");繪表格框線
(setq pt5 (polar pt1 0 (/ ww 4)));表格第1格右上角點
(setq pt6 (polar pt5 (* pi 1.5) hh));表格第1格右下角點
(command "line" pt5 pt6 "");繪表格第1格分隔線
(setq pt7 (polar pt5 0 (/ ww 2)));表格第2格右上角點
(setq pt8 (polar pt7 (* pi 1.5) hh));表格第2格右下角點
(command "line" pt7 pt8 "");繪表格第2格分隔線
(command "text" "m" (inters pt1 pt6 pt4 pt5) (/ hh 2) 0 "圖塊符號");表格第1格標題
(command "text" "m" (inters pt5 pt8 pt6 pt7) (/ hh 2) 0 "圖塊名稱");表格第2格標題
(command "text" "m" (inters pt7 pt3 pt8 pt2) (/ hh 2) 0 "圖塊數量");表格第3格標題
(setq blk (tblnext "block" t));取出第一個block圖元內含性質
(while blk
;(setq blk1 (assoc 70 blk));取出block屬性
;(if(/= (setq blk2 (itoa(cdr blk1))) "2");排除含屬性block
(progn
(setq blkn (assoc 2 blk));取出block名稱
(setq blk_key (substr (cdr blkn) 1 1));取出block名稱
(if (/= blk_key "*")
(progn
(setq ss (ssget "X" (list blkn)));建立過濾block選集
(if (null ss)
(setq ssn 0);歸零
(setq ssn (sslength ss));計算block選集數量
)
(setq blknn (cdr blkn));取出block名稱
(setq pt1 pt4 pt5 pt6 pt2 pt3 pt7 pt8);點1=點4 點5=點6 依此類推
(setq pt4 (polar pt1 (* pi 1.5) hh));
(setq pt6 (polar pt5 (* pi 1.5) hh));
(setq pt3 (polar pt2 (* pi 1.5) hh));
(setq pt8 (polar pt7 (* pi 1.5) hh));
(setq pt9 (polar pt1 (angle pt1 pt6) (/ (distance pt1 pt6) 2.0)));
(command "pline" pt2 pt3 pt4 pt1 "");
(command "line" pt5 pt6 "");
(command "line" pt7 pt8 "");
(command "text" "m" (inters pt5 pt8 pt6 pt7) (/ hh 2) 0 blknn);寫出block名稱
(command "text" "m" (inters pt7 pt3 pt8 pt2) (/ hh 2) 0 (itoa ssn));寫出block數量
(setq blknn (strcat "*" blknn));block名稱加星號分解
(command "insert" blknn pt9 "1" "1" "0");插入block符號
)
)
;(setq blk (tblnext "block"));old計算下一個block
);progn
;);if
(setq blk (tblnext "block"));new計算下一個block
);while
(setvar "osmode" os)
(prompt "bombl")
(prin1)
)
tarpon- 中級會員
- 文章總數 : 209
年齡 : 34
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 6177
威望值 : 263
注冊日期 : 2010-07-01
Tiger&蘋果爸, DaVinci520, ten0418, miemie120, arvin, dome香, sass720625 and like this post
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
謝謝分享,這個功能對於大面積圖面計算可以提供快整的清算圖資。
johnson887135- 一般會員
- 文章總數 : 4
年齡 : 44
來自 : 台北市
職業 : 工程師
愛好 : 攝影
個性 : 穩重
使用年資 : 10
使用版本 : 2016
經驗值 : 1731
威望值 : 0
注冊日期 : 2020-01-02
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
謝謝前輩無私的分享~
可惜連結網頁點進去已經出現404error了QQ..
可惜連結網頁點進去已經出現404error了QQ..
![愛哭](/users/3215/23/55/09/smiles/15988.gif)
Jatsou- 專屬會員
- 文章總數 : 42
年齡 : 32
來自 : 桃園市中壢區
職業 : 行政兼繪圖
愛好 : 音樂方面~
個性 : 比較少話一點
使用年資 : 3個月
使用版本 : AutoCAD2018
經驗值 : 1818
威望值 : 12
注冊日期 : 2020-04-07
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
覺得應該很有用,很需要可以對屬性圖塊的計算,請問可以再提供連結下載檔案學習嗎?
fina12- 一般會員
- 文章總數 : 5
年齡 : 49
來自 : tainan
職業 : 無
愛好 : 無
個性 : 無
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 1165
威望值 : 0
注冊日期 : 2021-07-26
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝大大無私地分享......感恩
rickyyang- 專屬會員
- 文章總數 : 196
年齡 : 45
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 17
使用版本 : AutoCAD 2023
經驗值 : 4516
威望值 : 36
注冊日期 : 2014-11-11
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
讚哦...一看就知道好東西,先收下來研究研究。
ALEX_YU- 一般會員
- 文章總數 : 29
年齡 : 47
來自 : 桃園市
職業 : 待業
愛好 : 設計
個性 : 樂天
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 1240
威望值 : 12
注冊日期 : 2021-09-03
回復:[討論]圖塊計算數量後將表格繪製於圖塊上並插入圖塊
感謝分享 再來研究看看 感謝 但載點無法下載耶
狗狗- 一般會員
- 文章總數 : 57
年齡 : 40
來自 : 台中市
職業 : 水電圖
愛好 : 畫畫
個性 : 好學
使用年資 : 幾個月
使用版本 : 2010
經驗值 : 5268
威望值 : 24
注冊日期 : 2011-02-26
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
謝大大的無私分享
白宗禮- 一般會員
- 文章總數 : 36
年齡 : 44
來自 : 台灣
職業 : 學生
個性 : 帥
經驗值 : 5758
威望值 : 0
注冊日期 : 2009-05-23
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
thx for sharing
lmt112233- 贊助會員
- 文章總數 : 107
年齡 : 65
來自 : hk
職業 : 結構繪圖
愛好 : 旅遊
個性 : 樂觀
使用年資 : 16
使用版本 : acad2012
經驗值 : 5806
威望值 : 30
注冊日期 : 2010-02-21
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
超實用功能,謝謝了
andyhang88- 一般會員
- 文章總數 : 55
年齡 : 60
來自 : 台中
職業 : 建築設計;綠建築
愛好 : 攝影
個性 : 認真
使用年資 : 20年
使用版本 : 2009
經驗值 : 5626
威望值 : 19
注冊日期 : 2009-12-06
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
謝謝分享,能更快速的進行工作!
kim910100- 一般會員
- 文章總數 : 31
年齡 : 39
來自 : Taipei
職業 : Engineer
愛好 : sport
個性 : friendly
使用年資 : 工作需要
使用版本 : 2013
經驗值 : 3650
威望值 : 0
注冊日期 : 2015-01-25
user63316d6143117- 一般會員
- 文章總數 : 22
年齡 : 62
來自 : 台北
職業 : 室內設計
愛好 : 設計
個性 : 安全
使用年資 : 1
使用版本 : 2012
經驗值 : 811
威望值 : 0
注冊日期 : 2022-09-26
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝高手前輩無私的提供,這功能太強大了,非常感謝!
MANman- 一般會員
- 文章總數 : 7
年齡 : 24
來自 : 屏東
職業 : 待業
愛好 : 學習
個性 : 安靜
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 730
威望值 : 0
注冊日期 : 2022-10-10
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
我知道這個問題 , 因為我也有使用
wateraustin- 一般會員
- 文章總數 : 71
年齡 : 58
來自 : 台南
職業 : soho 3d,2d 模具
愛好 : pop music,movie
個性 : very good EQ
使用年資 : 30
使用版本 : 2011
經驗值 : 5432
威望值 : 15
注冊日期 : 2010-09-16
aweiyang- 一般會員
- 文章總數 : 5
年齡 : 44
來自 : 台北
職業 : 設計
愛好 : 設計
個性 : 開朗
使用年資 : 10
使用版本 : 2010
經驗值 : 1292
威望值 : 0
注冊日期 : 2021-03-22
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
好東西,先抓下來研究。感謝各位。
ALEX_YU- 一般會員
- 文章總數 : 29
年齡 : 47
來自 : 桃園市
職業 : 待業
愛好 : 設計
個性 : 樂天
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 1240
威望值 : 12
注冊日期 : 2021-09-03
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝分享! 趕快來研究研究~
DaVinci520- 一般會員
- 文章總數 : 18
年齡 : 36
來自 : Taipei, Taiwan
職業 : HVAC
愛好 : cad
個性 : hello everybody
使用年資 : 5
使用版本 : 2008
經驗值 : 5215
威望值 : 6
注冊日期 : 2010-08-17
kmh- 一般會員
- 文章總數 : 17
年齡 : 52
來自 : 基隆
職業 : CAD
愛好 : 旅遊
個性 : 中立和氣務實
使用年資 : 20
使用版本 : 2016
經驗值 : 2200
威望值 : 6
注冊日期 : 2018-11-16
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
謝謝大大無私分享!
winnie- 一般會員
- 文章總數 : 96
年齡 : 44
來自 : 台北縣
職業 : 工程業
愛好 : 文書
個性 : 溫和
使用年資 : 10年
使用版本 : 2008
經驗值 : 5835
威望值 : 6
注冊日期 : 2009-11-25
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
謝謝大大無私的分享,受益良多
![讚啦!!](/users/3215/23/55/09/smiles/478326.gif)
winnie- 一般會員
- 文章總數 : 96
年齡 : 44
來自 : 台北縣
職業 : 工程業
愛好 : 文書
個性 : 溫和
使用年資 : 10年
使用版本 : 2008
經驗值 : 5835
威望值 : 6
注冊日期 : 2009-11-25
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝分享!來下載看看載點程式碼(回覆可見)學習!
Cher- 專屬會員
- 文章總數 : 104
年齡 : 46
來自 : 新竹
職業 : 建築工程
愛好 : 畫畫
個性 : 沈默寡言
使用年資 : 新手初學
使用版本 : Auto CAD 2022
經驗值 : 1208
威望值 : 24
注冊日期 : 2022-11-04
cadshun- 一般會員
- 文章總數 : 16
年齡 : 44
來自 : 嘉義縣
職業 : 待業
愛好 : 慢跑
個性 : 平順
使用年資 : 10
使用版本 : 2014
經驗值 : 876
威望值 : 6
注冊日期 : 2022-07-09
安東尼- 一般會員
- 文章總數 : 25
年齡 : 50
來自 : 桃園
職業 : 待業
愛好 : 音樂
個性 : 誠實
使用年資 : 5年
使用版本 : 2022
經驗值 : 534
威望值 : 0
注冊日期 : 2023-07-23
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
非常需要這類的功能,謝謝大大的分享
kcn1u2t- 一般會員
- 文章總數 : 11
年齡 : 40
來自 : 台灣
職業 : 工程師
愛好 : 電腦
個性 : 內向 執著
使用年資 : 15
使用版本 : 2021
經驗值 : 3756
威望值 : 0
注冊日期 : 2014-07-19
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
新工作超需要用到!! 受益良多
謝謝ginse0727大大無私分享
![[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 1f495](https://2img.net/i/fa/twemoji/16x16/1f495.png)
![[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 1f60a](https://2img.net/i/fa/twemoji/16x16/1f60a.png)
![[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 1f60a](https://2img.net/i/fa/twemoji/16x16/1f60a.png)
Reimi- 一般會員
- 文章總數 : 4
年齡 : 35
來自 : 台北
職業 : 行政
愛好 : 看小說/聽音樂/追劇/踏青
個性 : 活潑開朗
使用年資 : 新手初學
使用版本 : 新手初學,AutoCAD版本為2021
經驗值 : 442
威望值 : 0
注冊日期 : 2023-07-19
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝大大分享!!!
![[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 1f60d](https://2img.net/i/fa/twemoji/16x16/1f60d.png)
![[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 1f60d](https://2img.net/i/fa/twemoji/16x16/1f60d.png)
WayneJ- 一般會員
- 文章總數 : 4
年齡 : 34
來自 : 台灣台北
職業 : 室內設計/裝修
愛好 : 健身、畫畫、閱讀
個性 : 樂觀
使用年資 : 10
使用版本 : 2020
經驗值 : 1472
威望值 : 0
注冊日期 : 2020-09-17
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第4頁(共5頁)
這個論壇的權限:
您 無法 在這個版面回復文章