Exploding Blocks within Blocks

[fawellp]

Is there an Acad2007 command that allows us to explode everything in one hit.

To date I've been exploding the model, only to end up with more blocks that need to be further exploded. Often there are many levels to get through before the model is 'fully exploded'.

Pls Help.

[NBC]

I am always loathe to share any information pertaining to exploding blocks.
Blocks are blocks for a reason, in similar ways that dimensions are dimensions for a reason and hatches are hatches for a reason.

In my opinion, none of the above should be exploded.

[fawellp]

I understand. However, we use a 3rd party .arx applciation which wasn't written to read blocks. Therefore, for the time being, we're stuck with having to explode. Is there a solution.

If you could make an exception and break the caridnal rule to help me on this one I'd be gratetful.

[Arizona]

I through together a very crude lisp routine that should get it done for you:

(defun C:ExALL ()
(setvar "cmdecho" 0)
(setq ss1 (ssget "X" (list (cons 0 "insert"))))
(while (/= ss1 nil)
(command "explode" ss1 "" )
(setq ss1 (ssget "X" (list (cons 0 "insert"))))
);end while
(princ)
);defun


Hope it works. It worked well in testing (map 06), but no guarantees......

[fawellp]

Arizona, that's brilliant. It's working flawlessly. That's so kind of you. I hope others will find some use for it too. It's a great tool.

[Arizona]

It worked!?!? Fantastic!
It was my pleasure.