炸開圖塊修改，然後再依原圖塊存檔的小程序

stgpmin

大家好，分享一個編輯圖塊的小程序。我的作圖習慣會將平面圖存成圖塊，方便在模型空間內會有多張圖框，例如一樓平面圖就會在建築平面、配置平面、景觀平面等重複出現。
透過我寫的這個小程序可以記憶被炸開的圖塊屬性，包含圖塊名稱、基準點、旋轉、比例、鏡射等等。在完成編輯圖塊後，就可以選擇物件再重新回存為原本的圖塊，而其他的圖塊副本也會一起更新。

這個小程序編寫起因是鑑於原地編輯圖塊有很多不方便的地方(例如無法再次製作圖塊，有些涉及製作圖塊的外掛指令也會無法使用)，尤其是在編輯過程中是無法存檔跟自動儲存的。不過目前還有無法克服的地方，就是要回存為原本圖塊時，無法自動選取中間這段時間所建立的物件，必須手動選取。
使用方法很簡單，
1.輸入xb1，選擇圖塊，該圖塊就會執行炸開指令，
2.編輯圖塊完成後，輸入cb1，原本圖塊的內容物件會群組化方便選取，再選擇其他想放入圖塊的物件後，按enter，完成。
3.有時編輯圖塊後，會忘記曾經執行過這個小程序而再次執行去炸開另一個圖塊，所以這個小程序有設置防呆，如果沒執行cb1，是無法再次執行xb1指令。
4.若強制要再次執行xb1，可以輸入xx1解開禁制。
搭配我另一個發布的小程序ibb，對於使用圖塊作圖有很大便利性。

1. (defun C:xb1 (/ ss bss en1 EN1_data)
   
2.   (if (= xb_name nil)
   
3.     (progn
   
4.       (command "ucs" "w")
   
5.       (setq bss (entsel))
   
6.       (command "_.undo" "_group")
   
7.       (setq eN1 (car bss))
   
8.       (setq EN1_data (entget EN1))
   
9.       (setq xb_name (cdr (assoc 2 EN1_data))) ;名稱
   
10.       (setq xb_pt (cdr (assoc 10 EN1_data)))
    
11.       ;;插入點
    
12.       (setq ttx (polar xb_pt 0 100))
    
13.       (setq tty (polar xb_pt (/ pi 2) 100))
    
14.       (SETQ mir_41 (assoc 41 EN1_data))
    
15.       (SETQ mir_42 (assoc 42 EN1_data))
    
16.       
    
17.       (setq xb_layer (cdr (assoc 8 EN1_data)))
    
18.       ;;圖層
    
19.       (setq xb_rot (cdr (assoc 50 EN1_data)))
    
20.       ;;旋轉
    
21.       (setq xb_dg1 (* (/ xb_rot pi) 180))
    
22.       (setq xb_sc (cdr (assoc 41 EN1_data)))
    
23.       ;;以下為X向鏡射
    
24.       (if (< (cdr (assoc 41 EN1_data)) 0)
    
25.   (progn
    
26.     (setq mi_x "1")
    
27.   )
    
28.       )
    
29.       ;;以下為y向鏡射
    
30.       (if (< (cdr (assoc 42 EN1_data)) 0)
    
31.   (progn
    
32.     (setq mi_y "1")
    
33.   )
    
34.       )
    
35.       ;;;將xb_sc轉為正數
    
36.       (if (= mi_x "1")
    
37.   (setq xb_sc (abs xb_sc))
    
38.       )
    
39.       ;;比例
    
40.       (setq sc_re (/ 1 xb_sc))
    
41.       ;;有旋轉及縮放的處理差異
    
42.       (if (and (= xb_rot 0) (= xb_sc 1))
    
43.   (progn
    
44.     (COMMAND "EXPLODE" bss "")
    
45.     (setq ss (ssget "_p"))
    
46.     (SETVAR "QAFLAGS" 1)
    
47.     (COMMAND "GROUP" SS "")
    
48.     (SETQ ENLAST1 (ENTLAST))
    
49.     (SETVAR "QAFLAGS" 0)
    
50.     (command "pickstyle" "0")
    
51.     (command "ucs" "p")
    
52.   )
    
53.   (progn
    
54.     (COMMAND "EXPLODE" bss "")
    
55.     (setq ss (ssget "_p"))
    
56.     (SETVAR "QAFLAGS" 1)
    
57.     (COMMAND "GROUP" SS "")
    
58.     (SETQ ENLAST1 (ENTLAST))
    
59.     (SETVAR "QAFLAGS" 0)
    
60.     (command "pickstyle" "0")
    
61.     (command "ucs" "p")
    
62.   )
    
63.       )
    
64.     )
    
65.     (princ "前次編輯未結束")
    
66.   )
    
67.   (command "_.undo" "_end")
    
68. )
    
69. (defun C:cb1 (/ HOLDECHO HOLDBLIP A AA BLKREF pt)
    
70.   (setvar "CMDECHO" 0)
    
71.   (command "ucs" "w")
    
72.   (setq olayer (getvar "clayer"))
    
73.   (setvar "clayer" xb_layer)
    
74.   (command "pickstyle" "1")
    
75.   (redraw ENLAST1 3)
    
76.   (setq AA (ssget))
    
77.   (command "_.undo" "_group")
    
78.   (setq HOLDECHO (getvar "cmdecho"))
    
79.   (setq HOLDBLIP (getvar "blipmode"))
    
80.   (setq HOLDOSMODE (getvar "OSMODE"))
    
81.   (setvar "cmdecho" 0)
    
82.   (setvar "blipmode" 0)
    
83.   (setvar "OSMODE" 0)
    
84.   (setq A (rtos (* (getvar "CDATE") 1E8)))
    
85.   (command "scale" aa "" xb_pt sc_re)
    
86.   ;;縮回1
    
87.   (command "rotate" aa "" xb_pt (- 0 xb_dg1))
    
88.   ;;轉回0
    
89.   (if (= mi_x "1")
    
90.     (command "mirror" aa "" xb_pt tty "y"))
    
91.   (if (= mi_y "1")
    
92.     (command "mirror" aa "" xb_pt ttx "y"))
    
93.   ;;鏡射回去
    
94.   (if (/= AA NIL)
    
95.     (progn
    
96.       (command "-BLOCK" xb_name "y" xb_pt AA "")
    
97.       (command "-INSERT" xb_name xb_pt "" "" "" "" "")
    
98.       (SETQ ENLAST1 (ENTLAST))
    
99.       (setq enL1_data (entget ENLAST1))
    
100.       (command "scale" ENLAST1 "" xb_pt xb_sc)
     
101.     (setq oldr (assoc 41 enL1_data))
     
102.     (setq enL1_data (subst mir_41 oldr enL1_data))
     
103.     (entmod enL1_data)
     
104.     (setq oldr (assoc 42 enL1_data))
     
105.     (setq enL1_data (subst mir_42 oldr enL1_data))
     
106.     (entmod enL1_data)
     
107.       (command "rotate" ENLAST1 "" xb_pt xb_dg1)
     
108.       (command "attsync" "" ENLAST1 "")
     
109.       ;;放置最下方
     
110.       (command "draworder" ENLAST1 "" "b")
     
111.       (command "hatchtoback")
     
112.     )
     
113.   )
     
114.   (if (/= AA NIL)
     
115.     (setq xb_name nil)
     
116.   )
     
117.   (setvar "blipmode" HOLDBLIP)
     
118.   (setvar "cmdecho" HOLDECHO)
     
119.   (setvar "OSMODE" HOLDOSMODE)
     
120.   (setvar "clayer" olayer)
     
121.   (command "_.undo" "_end")
     
122.   (command "ucs" "p")
     
123.   (setq mi_x "0" mi_y "0")
     
124.   (princ)
     
125. )
     
126. (defun C:xx1 ()
     
127.   (setq xb_name nil)
     
128.   (princ "Xb1指令重置")
     
129. )

(defun C:xb1 (/ ss bss en1 EN1_data) <br />   (if (= xb_name nil)<br />     (progn<br />       (command "ucs" "w")<br />       (setq bss (entsel))<br />       (command "_.undo" "_group")<br />       (setq eN1 (car bss))<br />       (setq EN1_data (entget EN1))<br />       (setq xb_name (cdr (assoc 2 EN1_data))) ;名稱<br />       (setq xb_pt (cdr (assoc 10 EN1_data)))<br />       ;;插入點<br />       (setq ttx (polar xb_pt 0 100))<br />       (setq tty (polar xb_pt (/ pi 2) 100))<br />       (SETQ mir_41 (assoc 41 EN1_data))<br />       (SETQ mir_42 (assoc 42 EN1_data))<br />       <br />       (setq xb_layer (cdr (assoc 8 EN1_data)))<br />       ;;圖層<br />       (setq xb_rot (cdr (assoc 50 EN1_data)))<br />       ;;旋轉<br />       (setq xb_dg1 (* (/ xb_rot pi) 180))<br />       (setq xb_sc (cdr (assoc 41 EN1_data)))<br />       ;;以下為X向鏡射<br />       (if (< (cdr (assoc 41 EN1_data)) 0)<br />   (progn<br />     (setq mi_x "1")<br />   )<br />       )<br />       ;;以下為y向鏡射<br />       (if (< (cdr (assoc 42 EN1_data)) 0)<br />   (progn<br />     (setq mi_y "1")<br />   )<br />       )<br />       ;;;將xb_sc轉為正數<br />       (if (= mi_x "1")<br />   (setq xb_sc (abs xb_sc))<br />       )<br />       ;;比例<br />       (setq sc_re (/ 1 xb_sc))<br />       ;;有旋轉及縮放的處理差異<br />       (if (and (= xb_rot 0) (= xb_sc 1))<br />   (progn<br />     (COMMAND "EXPLODE" bss "")<br />     (setq ss (ssget "_p"))<br />     (SETVAR "QAFLAGS" 1)<br />     (COMMAND "GROUP" SS "")<br />     (SETQ ENLAST1 (ENTLAST))<br />     (SETVAR "QAFLAGS" 0)<br />     (command "pickstyle" "0")<br />     (command "ucs" "p")<br />   )<br />   (progn<br />     (COMMAND "EXPLODE" bss "")<br />     (setq ss (ssget "_p"))<br />     (SETVAR "QAFLAGS" 1)<br />     (COMMAND "GROUP" SS "")<br />     (SETQ ENLAST1 (ENTLAST))<br />     (SETVAR "QAFLAGS" 0)<br />     (command "pickstyle" "0")<br />     (command "ucs" "p")<br />   )<br />       )<br />     )<br />     (princ "前次編輯未結束")<br />   )<br />   (command "_.undo" "_end")<br /> )<br /> (defun C:cb1 (/ HOLDECHO HOLDBLIP A AA BLKREF pt)<br />   (setvar "CMDECHO" 0)<br />   (command "ucs" "w")<br />   (setq olayer (getvar "clayer"))<br />   (setvar "clayer" xb_layer)<br />   (command "pickstyle" "1")<br />   (redraw ENLAST1 3)<br />   (setq AA (ssget))<br />   (command "_.undo" "_group")<br />   (setq HOLDECHO (getvar "cmdecho"))<br />   (setq HOLDBLIP (getvar "blipmode"))<br />   (setq HOLDOSMODE (getvar "OSMODE"))<br />   (setvar "cmdecho" 0)<br />   (setvar "blipmode" 0)<br />   (setvar "OSMODE" 0)<br />   (setq A (rtos (* (getvar "CDATE") 1E8)))<br />   (command "scale" aa "" xb_pt sc_re)<br />   ;;縮回1<br />   (command "rotate" aa "" xb_pt (- 0 xb_dg1))<br />   ;;轉回0<br />   (if (= mi_x "1")<br />     (command "mirror" aa "" xb_pt tty "y"))<br />   (if (= mi_y "1")<br />     (command "mirror" aa "" xb_pt ttx "y"))<br />   ;;鏡射回去<br />   (if (/= AA NIL)<br />     (progn<br />       (command "-BLOCK" xb_name "y" xb_pt AA "")<br />       (command "-INSERT" xb_name xb_pt "" "" "" "" "")<br />       (SETQ ENLAST1 (ENTLAST))<br />       (setq enL1_data (entget ENLAST1))<br />       (command "scale" ENLAST1 "" xb_pt xb_sc)<br />     (setq oldr (assoc 41 enL1_data))<br />     (setq enL1_data (subst mir_41 oldr enL1_data))<br />     (entmod enL1_data)<br />     (setq oldr (assoc 42 enL1_data))<br />     (setq enL1_data (subst mir_42 oldr enL1_data))<br />     (entmod enL1_data)<br />       (command "rotate" ENLAST1 "" xb_pt xb_dg1)<br />       (command "attsync" "" ENLAST1 "")<br />       ;;放置最下方<br />       (command "draworder" ENLAST1 "" "b")<br />       (command "hatchtoback")<br />     )<br />   )<br />   (if (/= AA NIL)<br />     (setq xb_name nil)<br />   )<br />   (setvar "blipmode" HOLDBLIP)<br />   (setvar "cmdecho" HOLDECHO)<br />   (setvar "OSMODE" HOLDOSMODE)<br />   (setvar "clayer" olayer)<br />   (command "_.undo" "_end")<br />   (command "ucs" "p")<br />   (setq mi_x "0" mi_y "0")<br />   (princ)<br /> )<br /> (defun C:xx1 ()<br />   (setq xb_name nil)<br />   (princ "Xb1指令重置")<br /> )

paulpipi

这么高级，试用一下，谢谢分享

jh3030912

能做一个图块编号 保留原图块内容插件不

技术工作室

好东西，支持一下

stgpmin

jh3030912 发表于 2024-7-19 00:33
能做一个图块编号 保留原图块内容插件不

不太懂，可以多說明一下嗎？

panliang9

谢谢楼主分享！
我理解你的工作是这样的：

1、XB1 命令，块炸开成组，并且给出组名。

2、CB1 命令 ，把“pickstyle” 打开，可以选中刚才哪个组。

MZ_li

学习了

gble119

没太看明白意思

stgpmin

panliang9 发表于 2024-7-19 08:37
谢谢楼主分享！
我理解你的工作是这样的：

沒錯
說明一下，pickstyle是控制選擇群組
當執行XB1後，會將所炸開的物件做群組，所以必須把pickstyle設為0，才能對炸開後的物件單獨編輯
所以執行CB1時，必須再把pickstyle設為1。
如果你平常習慣是把pickstyle設為0，那就在CB1指令最後面再加入一行(command "pickstyle" "0")

阿猪蛋

好东西，支持一下