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

由 **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) )

👇*下載網址回覆可見*

由妤璇 2011-06-12, 08:10

謝謝分享及教學。
lisp真好
決定要來去研究lisp

由 **youjyh** 2011-06-29, 17:42

感謝無私分享,真的收穫很多!!

由光卓 2011-07-19, 17:29

還沒看懂
先下來觀摩觀摩

感謝大大無私分享

由 **leoneriol** 2011-11-23, 12:22

shenhung 寫到:抓點模式.和圖層鎖住排除..程式已修正..
Spoiler（用來隱藏帖子內容）:

超專業的阿!!!

shenhung大大真的是太厲害了!!!

程式內有好多能夠借鏡的地方!!

由妤璇 2012-03-12, 09:38

再次感謝，唯使用時會有一、兩種圖塊沒有計算到，不知是那裡出問題了??

由 **Tiger&蘋果爸** 2012-03-14, 11:33

妤璇寫到:再次感謝，唯使用時會有一、兩種圖塊沒有計算到，不知是那裡出問題了??

請問是哪一種圖塊，有可能無法計算「動態圖塊」！

由 **fuju** 2012-04-02, 11:23

工作有用到，先下載來學習謝謝分享。

由 **ching1791** 2012-04-25, 13:07

真是非常專業，也非常好用的LSP，努力學習研讀

由 **EVONNE** 2012-04-26, 22:39

很棒的程式,對我工作上需捉預算及數量很有幫助 !!謝謝分享~

由 **guanbo.bruce** 2012-05-05, 04:53

shenhung 寫到:
....
抓點模式.和圖層鎖住排除..程式已修正..
程式更新檔載點..(0314)
http://db.tt/5910EfY
....

太感動了！
謝謝shenhung大大的無私分享與教學！

由 **greetingsfromtw** 2012-05-17, 15:02

shenhung 寫到:
....
抓點模式.和圖層鎖住排除..程式已修正..
程式更新檔載點..(0314)
http://db.tt/5910EfY
....

在擅自使用過shenhung前輩的lisp之後真的是太感動了,太棒了這個lisp,

只能說像您這樣無私的人在這世上太少見了!真的很謝謝您!

由 **wwsh3** 2012-07-31, 11:48

剛好須要這一程式，謝謝大大們的分享，解決小弟工作上之困。

由 **lingo_st** 2012-08-05, 13:56

感謝熱心分享,在旁邊偷師獲益不少,也為工作上帶來不少方便

由 **蜜柑喵喵** 2012-08-07, 15:51

感謝分享

請問LISP讀取只能是圖塊嗎
聚合線可以嗎

由 **Tiger&蘋果爸** 2012-08-07, 16:27

蜜柑喵喵寫到:感謝分享
請問LISP讀取只能是圖塊嗎
聚合線可以嗎

是的！
需要圖塊才能計算數量喔！

由 **蜜柑喵喵** 2012-08-08, 15:59

謝謝蘋果拔的解說
但是我要在我的柱子旁邊標示尺寸
LISP可以做到嗎

由 **Tiger&蘋果爸** 2012-08-08, 16:51

蜜柑喵喵寫到:謝謝蘋果拔的解說
但是我要在我的柱子旁邊標示尺寸
LISP可以做到嗎

你是說圖面中所有的柱子都要自動標上尺寸，這部份的確可以使用LISP程式辦到喔！

由 **蜜柑喵喵** 2012-08-08, 17:10

Tiger&蘋果爸寫到:
蜜柑喵喵寫到:謝謝蘋果拔的解說
但是我要在我的柱子旁邊標示尺寸
LISP可以做到嗎
你是說圖面中所有的柱子都要自動標上尺寸，這部份的確可以使用LISP程式辦到喔！

可以嗎歐耶
可是我的柱子是聚合線喔

由 **lingo_st** 2012-08-08, 20:22

蜜柑喵喵寫到:可以嗎歐耶
可是我的柱子是聚合線喔

個人是覺得程式或許使用方法上有限制,不過如果順應它限制的範圍讓它成習,那會帶來更多的便利性,蘋爸的說法應該是指對特定物件可以寫lisp去自動標註,或許單指圖塊,不過個人才疏學淺,無法確認,還請高手協助解惑,只是個人猜測應該聚合線也行吧...
不過如果要能順利計算數量一定要是圖塊這種元件,那就一開始把柱子也建成圖塊就好,只是不同尺寸要建不同名稱,這樣各種不同尺寸的柱也可以一次計算出來.

PS.我們公司的圖上,柱也是建成圖塊...所以有感而發

由 **Tiger&蘋果爸** 2012-08-08, 21:24

lingo_st 寫到:
蜜柑喵喵寫到:可以嗎歐耶
可是我的柱子是聚合線喔
個人是覺得程式或許使用方法上有限制,不過如果順應它限制的範圍讓它成習,那會帶來更多的便利性,蘋爸的說法應該是指對特定物件可以寫lisp去自動標註,或許單指圖塊,不過個人才疏學淺,無法確認,還請高手協助解惑,只是個人猜測應該聚合線也行吧...
不過如果要能順利計算數量一定要是圖塊這種元件,那就一開始把柱子也建成圖塊就好,只是不同尺寸要建不同名稱,這樣各種不同尺寸的柱也可以一次計算出來.

PS.我們公司的圖上,柱也是建成圖塊...所以有感而發

是的！
柱子標尺寸還是需要在開發適用於「聚合線」的程式才行！
建議算數量還是製作圖塊較好～