Loop through all Dynamic blocks and set the Block property “Allow exploding” to “Yes”

[Mike_Y2]

Hi,

I regularly receive drawings from a client that contain a dozen or so Dynamic blocks. Each of the Dynamic blocks has the Block property “Allow exploding” set to “No”.

I was wondering if anyone has (or can write) a macro / Lisp that will loop through all Dynamic blocks in the current drawing and set the Block property “Allow exploding” to “Yes”?

Any help would be greatly appreciated

[h_s_walker · Accepted solution]

I found this thread Explode Blocks set to "Allow Exploding = NO" - Autodesk Community - AutoCAD which might help you

[Libbya]

The Dynamic Blocks forum does not really deal with custom code and isn't where coding experts typically hang out.  If you want help with a LISP, then post to the LISP forum. 

[Mike_Y2]

Thanks for the reply. I haven't used Lisp before and I am clearly doing something wrong...

1. I copied the code from the post you sent me (also shown below) and pasted it into Notepad
2. Then saved the file as "Test.lsp"
3. In AutoCAD I went to the "Manage" tab and clicked on "Load Application"
4. I selected the "Test.lsp" file and clicked on the "Load" button
5. AutoCAD says it successfully loaded

I am not sure how to run the command / if the steps I did (listed above) are correct???

Can anyone help???

(defun c:expl-p ()
(vl-load-com)
(vlax-for b (vla-get-Blocks
(vla-get-ActiveDocument (vlax-get-acad-object)))
(or (wcmatch (vla-get-Name b) "`**_Space*")
(vla-put-explodable b :vlax-true)))
(princ))

[h_s_walker · Accepted solution]

@Mike_Y2 I have never used Lisp (I'm only on LT), however I do believe the line below defines the command

(defun c:expl-p ()

So at the command line after loading the lisp you need to type EXPL-P

[Mike_Y2]

thanks @h_s_walker