[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
+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顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第5頁(共5頁)
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
主題回顧 :
[問題]選取圖塊計算數量後將表格繪製於圖面上並插入圖塊
q1:此程式會計算圖面所有圖塊,如何改成只有選取範圍內圖塊
q2:含屬性圖塊如不將其過濾排除,就必須分解才可插入於圖表
有沒有辦法將含屬性圖塊及其值一併繒製插入於表格內[表格須加屬性值欄位]
---------------------------------------------------------------------------------
希望未來cad版本資料萃取有自動將圖塊插入於表格的功能那就太棒了
---------------------------------------------------------------------------------
程式
[問題]選取圖塊計算數量後將表格繪製於圖面上並插入圖塊
q1:此程式會計算圖面所有圖塊,如何改成只有選取範圍內圖塊
q2:含屬性圖塊如不將其過濾排除,就必須分解才可插入於圖表
有沒有辦法將含屬性圖塊及其值一併繒製插入於表格內[表格須加屬性值欄位]
---------------------------------------------------------------------------------
希望未來cad版本資料萃取有自動將圖塊插入於表格的功能那就太棒了
---------------------------------------------------------------------------------
程式
- 代碼:
(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
經驗值 : 6204
威望值 : 263
注冊日期 : 2010-07-01
Tiger&蘋果爸, DaVinci520, ten0418, miemie120, arvin, dome香, sass720625 and like this post
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
下載來研究 感謝大大分享
andy75- 一般會員
- 文章總數 : 2
年齡 : 38
來自 : 新北市
職業 : 空調
愛好 : 無
個性 : 無
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 648
威望值 : 0
注冊日期 : 2023-01-06
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝大大分享,這也太實用了
s5512825- 一般會員
- 文章總數 : 19
年齡 : 26
來自 : 中壢
職業 : 土木
愛好 : 無
個性 : 無
使用年資 : 1年
使用版本 : 2013
經驗值 : 1218
威望值 : 0
注冊日期 : 2021-08-31
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
真是太好了,也辛苦這麼多人的無私。讓很多人受益
linuslo- 一般會員
- 文章總數 : 16
年齡 : 46
來自 : 苗栗
職業 : 電機
愛好 : 閱讀、健身
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2018
經驗值 : 1382
威望值 : 18
注冊日期 : 2021-03-19
WillChen199903- 一般會員
- 文章總數 : 27
年齡 : 25
來自 : 高雄市
職業 : 土木系學生
愛好 : 土木建築
個性 : 害羞
使用年資 : 2年
使用版本 : 2018
經驗值 : 1557
威望值 : 0
注冊日期 : 2020-11-07
感謝分享
ginse0727 寫到:不好意思,程式處理的不夠完善,仍有部份需做修改:
請把底下過濾圖塊判斷式的這一行更正,才不會在一併選取非屬性圖塊時,程式產生錯誤,
以下回復可見...
感謝分享
thesirius- 一般會員
- 文章總數 : 4
年齡 : 25
來自 : 臺灣高雄市小港區
職業 : 工程製圖
愛好 : 程式
個性 : 善良
使用年資 : 新手初學
使用版本 : 2021
經驗值 : 170
威望值 : 0
注冊日期 : 2024-05-06
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝大大的分享,正好需要用到
Rainbow0625- 一般會員
- 文章總數 : 13
年齡 : 36
來自 : 桃園
職業 : 繪圖
愛好 : 上網
個性 : 安靜
使用年資 : 新手初學
使用版本 : 2020
經驗值 : 165
威望值 : 0
注冊日期 : 2024-07-02
董亦倫- 贊助會員
- 文章總數 : 5
年齡 : 47
來自 : 台中
職業 : 設計師
愛好 : 看電影
個性 : 溫暖
使用年資 : 18
使用版本 : 2022
經驗值 : 1016
威望值 : 0
注冊日期 : 2022-01-17
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
第一樓就有網址可以下載董亦倫 寫到:請問下載點
AutoCAD顧問- 管理顧問
- 文章總數 : 108
年齡 : 65
來自 : 台北
職業 : AutoCAD顧問
愛好 : 新知識
個性 : 嚴肅
使用年資 : 22
使用版本 : 2023
經驗值 : 6464
威望值 : 71
注冊日期 : 2008-05-10
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第5頁(共5頁)
這個論壇的權限:
您 無法 在這個版面回復文章