所有区块全部炸开(有待改进)[试用]

LUCAS

2. 
   
3. ;;;所有区块全部炸开(效率不好,有待改进)
   
4. ;;;程序设计:赖云龙;;;
   
5. ;;;---------------;;;
   
6. (defun C:E3DB (/ K QQ1 QQ HOLDECHO HOLDBLIP A AA AAA AL LAY)
   
7.   (command "_.undo" "_group")
   
8.   (setq HOLDECHO (getvar "cmdecho"))
   
9.   (setq HOLDBLIP (getvar "blipmode"))
   
10.   (setvar "cmdecho" 0)
    
11.   (setvar "blipmode" 0)
    
12.   (setq A (getstring "\n所有区块(A)/<选择对象>: "))
    
13.   (if (/= A "")
    
14.     (progn
    
15.       (if (= (getvar "TILEMODE") 1)
    
16.         (setq AA (ssget "x" (list (cons 0 "INSERT") (cons 67 0))))
    
17.         (setq AA (ssget "x" (list (cons 0 "INSERT") (cons 67 1))))
    
18.       )
    
19.     )
    
20.     (setq AA (ssget '((0 . "INSERT"))))
    
21.   )
    
22.   (if (/= AA NIL)
    
23.     (progn
    
24.       (setq QQ1 (ssadd))
    
25.       (setq LAY 1)
    
26.       (while (/= QQ 0)
    
27.         (prompt
    
28.           "\n                                 爆开区块要花点时间处理....."
    
29.         )
    
30.         (setq AL (sslength AA))
    
31.         (setq QQ AL)
    
32.         (repeat        AL
    
33.           (prompt (strcat "\r第"
    
34.                           (itoa LAY)
    
35.                           "层共 "
    
36.                           (itoa QQ)
    
37.                           " 个区块 >>> 余"
    
38.                           (itoa AL)
    
39.                           "     "
    
40.                   )
    
41.           )
    
42.           (setq AAA (ssname AA (- AL 1)))
    
43.           (if
    
44.             (/=        (cdr
    
45.                   (assoc 70
    
46.                          (tblsearch "layer" (cdr (assoc 8 (entget AAA))))
    
47.                   )
    
48.                 )
    
49.                 4
    
50.             )
    
51.              (progn
    
52.                (command "_.EXPLODE" AAA)
    
53.                (setq WWW (ssget "p" '((0 . "INSERT"))))
    
54.                (setq K 0)
    
55.                (if (/= WWW NIL)
    
56.                  (repeat (sslength WWW)
    
57.                    (ssadd (ssname WWW K) QQ1)
    
58.                    (setq K (1+ K))
    
59.                  )
    
60.                )
    
61.              )
    
62.              (progn
    
63.                (prompt (strcat "\n区块""
    
64.                                (cdr (assoc 2 (entget AAA)))
    
65.                                ""  因在锁护图层""
    
66.                                (cdr (assoc 8 (entget AAA)))
    
67.                                ""上,故无法炸开"
    
68.                        )
    
69.                )
    
70.                (prompt
    
71.                  "\n                                 爆开区块要花点时间处理....."
    
72.                )
    
73.              )
    
74.           )
    
75.           (setq AL (1- AL))
    
76.         )
    
77.         (setq LAY (1+ LAY))
    
78.         (setq QQ (sslength QQ1))
    
79.         (setq AA QQ1)
    
80.         (setq QQ1 (ssadd))
    
81.       )
    
82.     )
    
83.   )
    
84.   (setvar "blipmode" HOLDBLIP)
    
85.   (setvar "cmdecho" HOLDECHO)
    
86.   (command "_.undo" "_end")
    
87.   (princ)
    
88. )
    

<br /> ;;;所有区块全部炸开(效率不好,有待改进)<br /> ;;;程序设计:赖云龙;;;<br /> ;;;---------------;;;<br /> (defun C:E3DB (/ K QQ1 QQ HOLDECHO HOLDBLIP A AA AAA AL LAY)<br />   (command "_.undo" "_group")<br />   (setq HOLDECHO (getvar "cmdecho"))<br />   (setq HOLDBLIP (getvar "blipmode"))<br />   (setvar "cmdecho" 0)<br />   (setvar "blipmode" 0)<br />   (setq A (getstring "\n所有区块(A)/<选择对象>: "))<br />   (if (/= A "")<br />     (progn<br />       (if (= (getvar "TILEMODE") 1)<br />         (setq AA (ssget "x" (list (cons 0 "INSERT") (cons 67 0))))<br />         (setq AA (ssget "x" (list (cons 0 "INSERT") (cons 67 1))))<br />       )<br />     )<br />     (setq AA (ssget '((0 . "INSERT"))))<br />   )<br />   (if (/= AA NIL)<br />     (progn<br />       (setq QQ1 (ssadd))<br />       (setq LAY 1)<br />       (while (/= QQ 0)<br />         (prompt<br />           "\n                                 爆开区块要花点时间处理....."<br />         )<br />         (setq AL (sslength AA))<br />         (setq QQ AL)<br />         (repeat        AL<br />           (prompt (strcat "\r第"<br />                           (itoa LAY)<br />                           "层共 "<br />                           (itoa QQ)<br />                           " 个区块 >>> 余"<br />                           (itoa AL)<br />                           "     "<br />                   )<br />           )<br />           (setq AAA (ssname AA (- AL 1)))<br />           (if<br />             (/=        (cdr<br />                   (assoc 70<br />                          (tblsearch "layer" (cdr (assoc 8 (entget AAA))))<br />                   )<br />                 )<br />                 4<br />             )<br />              (progn<br />                (command "_.EXPLODE" AAA)<br />                (setq WWW (ssget "p" '((0 . "INSERT"))))<br />                (setq K 0)<br />                (if (/= WWW NIL)<br />                  (repeat (sslength WWW)<br />                    (ssadd (ssname WWW K) QQ1)<br />                    (setq K (1+ K))<br />                  )<br />                )<br />              )<br />              (progn<br />                (prompt (strcat "\n区块""<br />                                (cdr (assoc 2 (entget AAA)))<br />                                ""  因在锁护图层""<br />                                (cdr (assoc 8 (entget AAA)))<br />                                ""上,故无法炸开"<br />                        )<br />                )<br />                (prompt<br />                  "\n                                 爆开区块要花点时间处理....."<br />                )<br />              )<br />           )<br />           (setq AL (1- AL))<br />         )<br />         (setq LAY (1+ LAY))<br />         (setq QQ (sslength QQ1))<br />         (setq AA QQ1)<br />         (setq QQ1 (ssadd))<br />       )<br />     )<br />   )<br />   (setvar "blipmode" HOLDBLIP)<br />   (setvar "cmdecho" HOLDECHO)<br />   (command "_.undo" "_end")<br />   (princ)<br /> )<br />

;|以下供参考效率比较好
(if (= (getvar "TILEMODE") 1)
        (while
          (setq AA (ssget "X" (list (cons 0 "INSERT") (cons 67 0))))
           (command "_.EXPLODE" AA)
        )
        (while
          (setq AA (ssget "X" (list (cons 0 "INSERT") (cons 67 1))))
           (command "_.EXPLODE" AA)
        )
)|;