[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
+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顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第3頁(共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
經驗值 : 6233
威望值 : 263
注冊日期 : 2010-07-01
Tiger&蘋果爸, DaVinci520, ten0418, miemie120, arvin, dome香, sass720625 and like this post
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
這個程式撰寫非常用心,長時間來也獲得廣大網友回響,對我獲益良多 感謝。
但其中圖例的插入位置與BLOCK圖檔大小,使用上受到限制,相當可惜。
今提供我分享在 https://www.autocad-tw.com/t16444-topic
的[使用者BLOCK圖庫管理]LISP程式中,ax:GetBoundingBox 和 :Y340-77:
兩個副程式,它可以找出BLOCK的中心點,再搭配簡單的SCALE和MOVE指令,
能解決圖例大小與插入點置中問題。提供給有興趣的網友參考。
但其中圖例的插入位置與BLOCK圖檔大小,使用上受到限制,相當可惜。
今提供我分享在 https://www.autocad-tw.com/t16444-topic
的[使用者BLOCK圖庫管理]LISP程式中,ax:GetBoundingBox 和 :Y340-77:
兩個副程式,它可以找出BLOCK的中心點,再搭配簡單的SCALE和MOVE指令,
能解決圖例大小與插入點置中問題。提供給有興趣的網友參考。
yu0678- 高級會員
- 文章總數 : 150
年齡 : 65
來自 : Taipei
職業 : 設計
愛好 : 設計
個性 : 無不良嗜好
使用年資 : 25
使用版本 : 2016
積分 : 10
經驗值 : 6022
威望值 : 634
注冊日期 : 2012-05-30
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
正需要他來解決我的問題
honech57- 一般會員
- 文章總數 : 6
年齡 : 56
來自 : 台北縣中和市
職業 : 工
愛好 : 打球
個性 : 溫和
使用年資 : 2
使用版本 : 2006
經驗值 : 5284
威望值 : 0
注冊日期 : 2010-06-08
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
最近剛好有用到,謝謝分享!
看來真該開始研究LISP來增加工作效率了!
看來真該開始研究LISP來增加工作效率了!
____________________________________________________________________________________
~~夜夜深沉~~魔梟嘯狂~~我....就是夜魔~~
jakehuang- 一般會員
- 文章總數 : 15
年齡 : 46
來自 : 板橋人
職業 : 監工
愛好 : 美食+睡覺
個性 : 活潑
使用年資 : 認真算第2
使用版本 : Autocad 2012
經驗值 : 5058
威望值 : 12
注冊日期 : 2011-03-01
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
我們公司的也是計算全圖面的,正好我也來改一改,感恩~~
awi- 一般會員
- 文章總數 : 74
年齡 : 41
來自 : 新北市
職業 : 電機技師事務所
愛好 : 新奇有趣的事物
個性 : 固執
使用年資 : 6
使用版本 : 2012
經驗值 : 4626
威望值 : 42
注冊日期 : 2013-05-03
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝分享~正好要用到~~謝謝
verlth- 初級會員
- 文章總數 : 36
年齡 : 46
來自 : Taipei
職業 : 機電工程
愛好 : 打球
個性 : 溫和
使用年資 : 10年
使用版本 : AUTOCAD 2014
積分 : 2
經驗值 : 5726
威望值 : 6
注冊日期 : 2009-05-21
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
正在學習lisp,剛好可以研究學習一下,感謝~
amandattl- 一般會員
- 文章總數 : 6
年齡 : 43
來自 : 新北市
職業 : 工程
愛好 : 看電影
個性 : 隨和
使用年資 : 1
使用版本 : 2012
經驗值 : 4771
威望值 : 0
注冊日期 : 2011-11-03
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝無私的分享,經常需要用到。
hung- 一般會員
- 文章總數 : 58
年齡 : 52
來自 : 台北
職業 : 電腦繪圖
愛好 : 看電影
個性 : 樂觀
使用年資 : 15
使用版本 : 2014
經驗值 : 6095
威望值 : 0
注冊日期 : 2008-10-08
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
終於找到這個了
以前有用過這個功能
可是太久沒用了
已經生疏了
以前有用過這個功能
可是太久沒用了
已經生疏了
hfwuming- 一般會員
- 文章總數 : 28
年齡 : 48
來自 : 台灣宜蘭
職業 : 建築設計
愛好 : 玩
個性 : 酷
使用年資 : 2009/11/27
使用版本 : 2012
經驗值 : 5616
威望值 : 63
注冊日期 : 2009-12-01
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
很方便點圖塊就能繪製表格並插入圖塊.趕緊下載來研究.謝謝分享!
vicki1021- 高級會員
- 文章總數 : 192
年齡 : 50
來自 : 基隆市
職業 : 金屬建材繪圖員
愛好 : 上網
個性 : 隨和
使用年資 : 2-3年
使用版本 : 2008
積分 : 10
經驗值 : 6276
威望值 : 55
發帖精華 : 2
注冊日期 : 2008-11-27
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
又有可以學習的好東西了,收下~謝謝啦!!
蔣秉澔- 初級會員
- 文章總數 : 211
年齡 : 47
來自 : 嘉義市
職業 : 大電力系統設計、製程、檢測
愛好 : 電腦相關,出遊踏青
個性 : 待人隨和,對事執著
使用年資 : 8年
使用版本 : 2011 Electrical,2014
積分 : 4
經驗值 : 5383
威望值 : 201
注冊日期 : 2013-08-31
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
學習一下,多謝大大提供資訊分享,預祝大家新年快樂
crihy- 初級會員
- 文章總數 : 178
年齡 : 48
來自 : earth worth
職業 : 建築、結構、土木、水利、水保
愛好 : 學習專業知識
個性 : 認真上進
使用年資 : 自80年起
使用版本 : 2014
積分 : 2
經驗值 : 7224
威望值 : 474
注冊日期 : 2008-05-13
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝T大分享,最近公司接一個大案子,但每次修改時每個圖塊數量都些維修正,修到最後以經不知道該正確數量,剛好有看到這帖,感謝分享。
happyfat- 初級會員
- 文章總數 : 41
年齡 : 38
來自 : 台北
職業 : 待業
愛好 : 聽音樂
個性 : 慵懶
使用年資 : 新手初學
使用版本 : 2011
積分 : 1
經驗值 : 4510
威望值 : 12
注冊日期 : 2013-01-10
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝高手們提供之程式
這個功能很常會用到
感謝分享
這個功能很常會用到
感謝分享
sidney- 一般會員
- 文章總數 : 16
年齡 : 53
來自 : TAIPEI
職業 : 工
愛好 : MUSIC,APP修改
個性 : 善良
使用年資 : 5
使用版本 : 2008
經驗值 : 3735
威望值 : 0
注冊日期 : 2014-10-24
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝版主無私地分享,讓我大大提高工作效率
jenniferaptg- 一般會員
- 文章總數 : 135
年齡 : 50
來自 : taiwan
職業 : cafe
愛好 : 電腦
個性 : 平易近人
使用年資 : 15
使用版本 : 用最熟的那一版
經驗值 : 6363
威望值 : 30
注冊日期 : 2009-01-30
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
剛好會用到
感謝大大的分享
感謝大大的分享
klarencee- 一般會員
- 文章總數 : 35
年齡 : 36
來自 : 台北
職業 : 學生
愛好 : AUTOCAD
個性 : 正常人
使用年資 : 2年
使用版本 : 2013
經驗值 : 4224
威望值 : 0
注冊日期 : 2013-09-22
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
工作上都會遇的到,感謝分享,學到賺到,希望可以藉由版主的無私分享自己在多研究
Monkey.D- 一般會員
- 文章總數 : 56
年齡 : 39
來自 : 嘉義
職業 : Auto Cad
愛好 : 待業
個性 : 交朋友
使用年資 : 1
使用版本 : 新手初學
經驗值 : 4877
威望值 : 12
注冊日期 : 2012-03-19
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
這個功能真的是非常需要
感謝那麼多大大提供程式
萬分感謝~
shenhung大大提供的找不到...
感謝那麼多大大提供程式
萬分感謝~
shenhung大大提供的找不到...
et1029et- 初級會員
- 文章總數 : 356
年齡 : 44
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 5890
威望值 : 324
注冊日期 : 2013-07-02
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
這程式看影片就知道好用在哪了,非常需要此程式阿~~
因為小弟工作上需要分類圖塊數量表,如果有這個可以省下很多功夫阿
非常感謝以上各位大大的付出。
因為小弟工作上需要分類圖塊數量表,如果有這個可以省下很多功夫阿
非常感謝以上各位大大的付出。
jackiehover- 初級會員
- 文章總數 : 160
年齡 : 38
來自 : 桃園市八德區
職業 : 消防設備、水電設計
愛好 : 上網、遊戲、網拍
個性 : 平易近人
使用年資 : 2014/09至今
使用版本 : 2014、15、16
積分 : 1
經驗值 : 4172
威望值 : 96
注冊日期 : 2015-08-31
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
最近正好想要研究這一方面的
剛好來看看!!
感謝分享
剛好來看看!!
感謝分享
minture- 初級會員
- 文章總數 : 34
年齡 : 38
來自 : 新北市
職業 : excel autocad
愛好 : 宅在家裡
個性 : 隨遇而安
使用年資 : 10
使用版本 : autocad2010
積分 : 1
經驗值 : 3690
威望值 : 99
注冊日期 : 2015-07-16
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
太感謝了,這樣畫圖速度就快多了。
wkckmjs- 一般會員
- 文章總數 : 23
年齡 : 40
來自 : 桃園
職業 : 工程
愛好 : 高爾夫
個性 : 直來直往
使用年資 : 2
使用版本 : 2016
經驗值 : 3884
威望值 : 0
注冊日期 : 2014-06-12
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感恩大大無私分享~
人真的好好~謝謝^^
人真的好好~謝謝^^
hua- 一般會員
- 文章總數 : 16
年齡 : 42
來自 : 新北市
職業 : 繪圖員
愛好 : 畫圖
個性 : 內向
使用年資 : 5-6
使用版本 : 2014
經驗值 : 3095
威望值 : 0
注冊日期 : 2016-08-10
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
感謝分享!很實用
kaven0922- 初級會員
- 文章總數 : 38
年齡 : 43
來自 : 台北
職業 : 設計師
愛好 : 畫圖
個性 : 沉穩
使用年資 : 5
使用版本 : 2010
經驗值 : 5439
威望值 : 0
注冊日期 : 2010-06-20
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
管路算圖真得很麻煩,謝謝分享
EVONNE- 初級會員
- 文章總數 : 108
年齡 : 56
來自 : 苓雅區
職業 : 繪圖
愛好 : 看書
個性 : 尚可
使用年資 : 10
使用版本 : 2014 2016
積分 : 1
經驗值 : 5349
威望值 : 36
注冊日期 : 2011-07-18
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
最近工作上有要用到,太感謝了~~~
不然圖面多到,算到頭昏去
不然圖面多到,算到頭昏去
煙雨宵宵- 一般會員
- 文章總數 : 34
年齡 : 31
來自 : 新北市
職業 : 待業
愛好 : 待在家
個性 : 隨心所欲
使用年資 : 新手初學
使用版本 : 2016、2018
AutoCAD基礎篇等級 : 10星級
經驗值 : 2513
威望值 : 6
注冊日期 : 2018-05-10
回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊
天啊 !! 一直想找個這樣的 lisp,
每次有大量圖說及數量時,總會花費很多間
感激 分享
每次有大量圖說及數量時,總會花費很多間
感激 分享
kit92064- 一般會員
- 文章總數 : 44
年齡 : 49
來自 : 高雄
職業 : 工
愛好 : 閱讀
個性 : 普通
使用年資 : 20
使用版本 : 2016
經驗值 : 5384
威望值 : 0
注冊日期 : 2010-08-09
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第3頁(共5頁)
這個論壇的權限:
您 無法 在這個版面回復文章