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

jxmjg

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

复制代码