Lisp doesn't exit while loop when condition is nil

[dlanorh]

You're correct.

 

 

 

The number of blocks will increase if one block contains two nested blocks. The nested blocks won't be picked until the initial block is burst

[rlx]

how much or what exactly do you hope to achieve with blowing up little innocent blocks? You have a couple of block definitions and a number of inserted copies. After blowing them to pieces you're left with even more pieces. Maybe better update the block definitions that are giving you trouble? Anyways , did a little test and your test drawing gets a little bit smaller.

 

 

(defun c:test ()
 (vl-load-com)
 (bang_blocks)(wipe_wipes)(wipe_blocks)(the_purge)
 (command "._qsave")
 (princ)
)

(defun bang_blocks ()
 (if (ssget "_x" '((0 . "insert")))
   (vlax-for n (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
     (vla-explode n)))(princ))

(defun wipe_wipes ()
 (if (ssget "_x" '((0 . "wipeout")))
   (vlax-for n (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
     (vla-delete n)))(princ))

(defun wipe_blocks ()
 (if (ssget "_x" '((0 . "insert")))
   (vlax-for n (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
     (vla-delete n)))(princ))

(defun the_purge ()
 (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))))

[Ament]

@dlanorh: Of course that is the case if I have nested blocks and that is what I would expect. In this case however it bursts all blocks able to burst, and give a warning if the block is not explodeable. But when only blocks which cant be exploded are remaining it starts to insert a copy of all nonexplodeable blocks so that after a few loops you suddenly have multiple duplicates of the same block at the same locations.

 

 

 

@rlx: I'm using the data in another program and it creates trouble if a block is rotated, contains wipeouts or is scaled additionally I'm removing small size (

[rlx]

Did came across a link from the master himself : http://www.cadtutor.net/forum/showthread.php?60244-Wipeout-Inside-Blocks-Issue

 

 

Maybe it helps