AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

+60
狗狗
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
64 posters

4頁(共4頁) 上一頁  1, 2, 3, 4

向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Empty [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 tarpon 2010-07-28, 09:03

主題回顧 :

[問題]選取圖塊計算數量後將表格繪製於圖面上並插入圖塊

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
tarpon
中級會員
中級會員

文章總數 : 209
年齡 : 32
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 5456
威望值 : 257
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

Tiger&蘋果爸, ten0418, arvin, dome香 and sass720625 like this post

回頂端 向下


[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 johnson887135 2020-02-15, 13:00

謝謝分享,這個功能對於大面積圖面計算可以提供快整的清算圖資。
johnson887135
johnson887135
一般會員
一般會員

文章總數 : 4
年齡 : 42
來自 : 台北市
職業 : 工程師
愛好 : 攝影
個性 : 穩重
使用年資 : 10
使用版本 : 2016
經驗值 : 1016
威望值 : 0
注冊日期 : 2020-01-02
男 天蝎座 羊

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 Jatsou 2020-05-29, 23:29

謝謝前輩無私的分享~
可惜連結網頁點進去已經出現404error了QQ.. 愛哭
Jatsou
Jatsou
專屬會員
專屬會員

文章總數 : 42
年齡 : 30
來自 : 桃園市中壢區
職業 : 行政兼繪圖
愛好 : 音樂方面~
個性 : 比較少話一點
使用年資 : 3個月
使用版本 : AutoCAD2018
經驗值 : 1103
威望值 : 12
注冊日期 : 2020-04-07
男 射手座 羊

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 fina12 2021-08-05, 20:20

覺得應該很有用,很需要可以對屬性圖塊的計算,請問可以再提供連結下載檔案學習嗎?
fina12
fina12
一般會員
一般會員

文章總數 : 4
年齡 : 47
來自 : tainan
職業 :
愛好 :
個性 :
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 445
威望值 : 0
注冊日期 : 2021-07-26
女 雙魚座 兔

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 rickyyang 2021-11-17, 19:31

感謝大大無私地分享......感恩
rickyyang
rickyyang
專屬會員
專屬會員

文章總數 : 179
年齡 : 43
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 15
使用版本 : AutoCAD 2018 & 2023
經驗值 : 3722
威望值 : 36
注冊日期 : 2014-11-11
男 射手座 馬

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 ALEX_YU 2021-11-19, 12:17

讚哦...一看就知道好東西,先收下來研究研究。
ALEX_YU
ALEX_YU
一般會員
一般會員

文章總數 : 20
年齡 : 45
來自 : 桃園市
職業 : 待業
愛好 : 設計
個性 : 樂天
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 486
威望值 : 6
注冊日期 : 2021-09-03
男 雙魚座 蛇

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Empty 回復:[討論]圖塊計算數量後將表格繪製於圖塊上並插入圖塊

發表 由 狗狗 2022-05-26, 17:23

感謝分享  再來研究看看  感謝 但載點無法下載耶
狗狗
狗狗
一般會員
一般會員

文章總數 : 55
年齡 : 38
來自 : 台中市
職業 : 水電圖
愛好 : 畫畫
個性 : 好學
使用年資 : 幾個月
使用版本 : 2010
經驗值 : 4545
威望值 : 24
注冊日期 : 2011-02-26
藍鵲280號
女 雙魚座 鼠

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 白宗禮 2022-09-04, 15:47

謝大大的無私分享
白宗禮
白宗禮
專屬會員
專屬會員

文章總數 : 24
年齡 : 42
來自 : 台灣
職業 : 學生
個性 :
經驗值 : 4983
威望值 : 0
注冊日期 : 2009-05-23
男 天蝎座 羊

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 lmt112233 2022-09-05, 08:28

thx for sharing
lmt112233
lmt112233
一般會員
一般會員

文章總數 : 100
年齡 : 63
來自 : hk
職業 : 結構繪圖
愛好 : 旅遊
個性 : 樂觀
使用年資 : 16
使用版本 : acad2012
經驗值 : 5058
威望值 : 30
注冊日期 : 2010-02-21
藍鵲581號
男 天蝎座 狗

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 andyhang88 2022-09-06, 22:20

超實用功能,謝謝了
andyhang88
andyhang88
一般會員
一般會員

文章總數 : 53
年齡 : 58
來自 : 台中
職業 : 建築設計;綠建築
愛好 : 攝影
個性 : 認真
使用年資 : 20年
使用版本 : 2009
經驗值 : 4897
威望值 : 13
注冊日期 : 2009-12-06
男 天蝎座 兔

回頂端 向下

[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Empty 回復: [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊

發表 由 kim910100 2022-09-10, 10:02

謝謝分享,能更快速的進行工作!
kim910100
kim910100
一般會員
一般會員

文章總數 : 27
年齡 : 37
來自 : Taipei
職業 : Engineer
愛好 : sport
個性 : friendly
使用年資 : 工作需要
使用版本 : 2013
經驗值 : 2917
威望值 : 0
注冊日期 : 2015-01-25
女 射手座 鼠

回頂端 向下

4頁(共4頁) 上一頁  1, 2, 3, 4

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Ioaoe110 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 2020-310 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Oiu15010 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 2020-211 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Ia15010 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Aizyao10
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Uos15010 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 BPl3tjj [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Ziao1510 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Oo-2-110 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Zuoiy_10 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Aizyao11
[討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Aoe1-111 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 Uos15011 [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 RQvAhqF [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 YdKelqY [討論]圖塊計算數量後將表格繪製於圖面上並插入圖塊 - 頁 4 K410yWG