求炸块与炸组结合

669423907

在论坛收集了两个好程序：一个是炸块的，一个是炸组的

如何把两个程序合二为一呢？能让其有块炸块有组炸组！（先选后炸）谢谢！

;炸开嵌套块（无痕.2004.4+菡萏.2012.04.09
(defun c:xx(/ *error* ss qf)
  (defun *error* (msg)
    (setvar "qaflags" qf)
    (princ msg)
    (princ)
    )
  (setq qf (getvar "qaflags"))
(setvar "qaflags" 1)
(princ"\n炸块")
(setq ss (ssget '((0 . "INSERT" ))))
(while (setq ss (ssget "P" '((0 . "INSERT" ))))
(command ".explode" ss ""))
(setvar "qaflags" qf)
(princ)
  )
;炸组（wwwliuyu 2008.08.21）
(defun c:xxx()
  (if(setq en(entsel "选择要炸开的组: "))
    (progn
      (setq gr(cdr(assoc 0 (entget(cdr(assoc 330(entget(car en))))))))
      (if (= "GROUP" gr)
(entdel (cdr(assoc 330(entget(car en)))))
(prompt "所选对象没有被分组!")
)
      )
    )
  (princ)
  )

print1985

试试 不知道是不是这样

2. ;;; 炸开嵌套块或组-阿甘修改2012.7.14
   
3. (defun c:xx (/ *error* ent gr i msg n qf ss)
   
4.   (defun *error* (msg)
   
5.     (setvar "qaflags" qf)
   
6.     (princ msg)
   
7.     (princ)
   
8.   )
   
9.   (setq qf (getvar "qaflags"))
   
10.   (setvar "qaflags" 1)
    
11.   (princ "\n选择要炸开的块或组")
    
12.   (setq ss (ssget))
    
13.   (setq n (sslength ss))
    
14.   (setq i (- n 1))
    
15.   (repeat n                               ; 先删除组
    
16.     (setq ent (ssname ss i))
    
17.     (setq gr (cdr (assoc 0 (entget (cdr (assoc 330 (entget ent)))))))
    
18.     (if (= "GROUP" gr)
    
19.       (entdel (cdr (assoc 330 (entget ent))))
    
20.     )
    
21.     (setq i (1- i))
    
22.   )
    
23.   (while (setq ss (ssget "P" '((0 . "INSERT")))) ; 再炸开嵌套块
    
24.     (command ".explode" ss "")
    
25.   )
    
26.   (setvar "qaflags" qf)
    
27.   (princ)
    
28. )

;;; 炸开嵌套块或组-阿甘修改2012.7.14<br /> (defun c:xx (/ *error* ent gr i msg n qf ss)<br />   (defun *error* (msg)<br />     (setvar "qaflags" qf)<br />     (princ msg)<br />     (princ)<br />   )<br />   (setq qf (getvar "qaflags"))<br />   (setvar "qaflags" 1)<br />   (princ "\n选择要炸开的块或组")<br />   (setq ss (ssget))<br />   (setq n (sslength ss))<br />   (setq i (- n 1))<br />   (repeat n                               ; 先删除组<br />     (setq ent (ssname ss i))<br />     (setq gr (cdr (assoc 0 (entget (cdr (assoc 330 (entget ent)))))))<br />     (if (= "GROUP" gr)<br />       (entdel (cdr (assoc 330 (entget ent))))<br />     )<br />     (setq i (1- i))<br />   )<br />   (while (setq ss (ssget "P" '((0 . "INSERT")))) ; 再炸开嵌套块<br />     (command ".explode" ss "")<br />   )<br />   (setvar "qaflags" qf)<br />   (princ)<br /> )

669423907

上浮一下，哪位大师方便帮帮忙？

669423907

怪事！！！
我的发帖时间是：           2012-7-5 21:30:38 ，
print1985 的回帖时间是：2012-7-5 21:30:39 ，
只相差一秒！！！！！
我今天早上登陆时系统都没有提示已有回复！！！！
什么情况！！！！！！！！！！！！！

dasha321

用不了呢，为什么啊？

huxu823

感谢分享，正在找这个功能