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

主題回顧 :

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

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

👇*下載網址回覆可見*

這個程式撰寫非常用心，長時間來也獲得廣大網友回響，對我獲益良多 感謝。
但其中圖例的插入位置與BLOCK圖檔大小，使用上受到限制，相當可惜。
今提供我分享在 https://www.autocad-tw.com/t16444-topic
的[使用者BLOCK圖庫管理]LISP程式中，ax:GetBoundingBox 和 :Y340-77:
兩個副程式，它可以找出BLOCK的中心點，再搭配簡單的SCALE和MOVE指令，
能解決圖例大小與插入點置中問題。提供給有興趣的網友參考。

正需要他來解決我的問題

最近剛好有用到，謝謝分享！
看來真該開始研究LISP來增加工作效率了！

我們公司的也是計算全圖面的，正好我也來改一改，感恩~~

感謝分享~正好要用到~~謝謝

正在學習lisp,剛好可以研究學習一下,感謝~ 

感謝無私的分享，經常需要用到。

終於找到這個了
以前有用過這個功能
可是太久沒用了
已經生疏了

很方便點圖塊就能繪製表格並插入圖塊.趕緊下載來研究.謝謝分享!

又有可以學習的好東西了，收下~謝謝啦!!

學習一下，多謝大大提供資訊分享，預祝大家新年快樂

感謝T大分享，最近公司接一個大案子，但每次修改時每個圖塊數量都些維修正，修到最後以經不知道該正確數量，剛好有看到這帖，感謝分享。

感謝高手們提供之程式
這個功能很常會用到
感謝分享

感謝版主無私地分享,讓我大大提高工作效率

剛好會用到
感謝大大的分享

工作上都會遇的到,感謝分享,學到賺到,希望可以藉由版主的無私分享自己在多研究

這個功能真的是非常需要
感謝那麼多大大提供程式
萬分感謝~

shenhung大大提供的找不到...

這程式看影片就知道好用在哪了，非常需要此程式阿~~
因為小弟工作上需要分類圖塊數量表，如果有這個可以省下很多功夫阿

非常感謝以上各位大大的付出。

最近正好想要研究這一方面的
剛好來看看!!
感謝分享

太感謝了，這樣畫圖速度就快多了。

感恩大大無私分享~
人真的好好~謝謝^^

感謝分享!很實用

管路算圖真得很麻煩，謝謝分享

最近工作上有要用到，太感謝了~~~
不然圖面多到，算到頭昏去

天啊 !! 一直想找個這樣的 lisp,
每次有大量圖說及數量時,總會花費很多間
感激 分享