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

代碼:

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

shenhung 寫到:抓點模式.和圖層鎖住排除..程式已修正..

Spoiler（用來隱藏帖子內容）:

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

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

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

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

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

Tiger&蘋果爸 寫到:

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

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

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

lingo_st 寫到:

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

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

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