块中有多个块，如何彻底分解？

wdb

块中有多个块，如何在用vlisp插入块时使块彻底分解？关键是不知道如何求得块分解后块中对象的选择集。

无痕

不用递归也能写的很简单

2. (defun c:xex ()
3.    (princ "\n炸开嵌套块.--------------by 无痕.2004.4")
4.    (setvar "qaflags" 1)
5.    (setq ss (ssget '((0 . "INSERT"))))
6.    (while (setq ss (ssget "P" '((0 . "INSERT"))))
7.        (command ".explode" ss "")
8.    )(princ)
9. )

(defun c:xex ()    (princ "\n炸开嵌套块.--------------by 无痕.2004.4")    (setvar "qaflags" 1)    (setq ss (ssget '((0 . "INSERT"))))    (while (setq ss (ssget "P" '((0 . "INSERT"))))        (command ".explode" ss "")    )(princ) )

meflying

(ssget "p")

meflying

分解嵌套块程序
;ent可以是对象名，也可以是选择集。。。

2. 
   
3. (defun explodex(ents / ss i )
   
4.   (command "_.explode" ents)
   
5.   (setq ss (ssget "P"))
   
6.   (setq i 0)
   
7.   (repeat (sslength ss)
   
8.     (setq ent (ssname ss i))
   
9.     (if (= "INSERT" (cdr (assoc 0 (entget ent))))
   
10.       (explodex ent)
    
11.     )
    
12.     (setq i (1+ i))
    
13.   )
    
14. )
    
15. 
    
16. 
    

<br /> (defun explodex(ents / ss i )<br />   (command "_.explode" ents)<br />   (setq ss (ssget "P"))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq ent (ssname ss i))<br />     (if (= "INSERT" (cdr (assoc 0 (entget ent))))<br />       (explodex ent)<br />     )<br />     (setq i (1+ i))<br />   )<br /> )<br /> <br /> <br />

Ea

试试改变这个系统变量 qaflags

BDYCAD

我也編了個.供大家指點和參考, 呵呵. 可以根據需要進行修改SSGET的選擇方式.

(defun explode-all(/ all sl n sd);(explode-all)
  (setvar "cmdecho" 0)
  (repeat 2
  (setq all(ssget "x")        sl (sslength all) n 0)
  (repeat sl
    (setq sd (cdr (assoc 0 (entget (ssname all n)))))
    (if (= sd "INSERT")
      (command ".explode" (ssname all n)))
    (setq n (1+ n))))
  (setvar "cmdecho" 1)
  (princ))

meflying

Ea发表于2003-12-7 2:55:00试试改变这个系统变量 qaflags

这个变量是控制什么的？为什么帮助文件中搜索不到这个变量？

to:BDYCAD,你的程序不是炸开嵌套块的，你只炸了一层，如果块中有块，你还是无法完全炸开

mccad

to meflying:
http://www.mjtd.com/a2/list.asp?id=459

meflying

奇怪，为何帮助中没有说明？
看来这个参数是解决BDY的程序的，嵌套的块还得用我那个程序来解决

龙龙仔

QAFLAGS acceps a value between 0 and 32767
bit 0 (1) : ^C in menu macro cancels grips (acts like keyboard <Esc>).
bit 1 (2) : no pause during text screen listings.
bit 2 (4) : no "alert" dialogs (text display instead).
bit 7 (128) : accepts "screen picks" (point lists) via (command) function.(看不懂)
Normally QAFLAGS should be set to 0. Because it might be set to other values it is a good idea to put (setvar "QAFLAGS" 0) in acaddoc.lsp or any other of your lisp files that you use for startup.

wdb

to meflying:
  如果块中有多层嵌套块，还是不能彻底分解。