Set all Blocks to "Allow Exploding" macro

[jagostinho74]

Hello,

I have a DWG w/ several Blocks, some that can be exploded and some that cannot.

Can anyone point to a macro that can set them all to be explodable?

Thank you

J

[ВeekeeCZ]

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/how-to-make-unexplodable-blocks-expl...

[jagostinho74]

Thank you for the link @ВeekeeCZ but I am not managing to get it to work.

I was keen on adding this to a new toolbar button but I am guessing that it may not work if the code is defining a function?

[ВeekeeCZ · Accepted solution]

You should learn how to deal with lisp. Look HERE . Then your 'macro' in your toolbar would be just a command name.

The second option is to put the entire lisp into the macro field. It will work, but it's dirty and totally unreadable:

((lambda () (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)))

[jagostinho74]

thank you @ВeekeeCZ 

[Cladboy]

Hi @jagostinho74,

Appreciate this was a while ago, but, I had a similar issue and ended up at your post above. 

Using Co-pilot i came up with to the lisp below - if it doesn't work blame Microsoft, not me 😂.

(defun c:SetExplodable ()
  (setq ss (ssget "X" '((0 . "INSERT")))) ; Select all blocks
  (if ss
    (progn
      (setq i 0)
      (repeat (sslength ss)
        (setq blk (vlax-ename->vla-object (ssname ss i)))
        (if (vlax-property-available-p blk 'Explodable)
          (vla-put-Explodable blk :vlax-true)
        )
        (setq i (1+ i))
      )
    )
    (princ "\nNo blocks found.")
  )
  (princ)
)

Hope this helps, albeit a little late to the show.

[Sea-Haven]

@Cladboy "if it doesn't work blame Microsoft, not me" I have used Copilot and its success rate is not great, but did you test the code ? 

A bit of googling would reveal. "Explodable property is part of AcDbBlockTableRecord object which is block definition." have a look at BeekeeCZ post.

[Cladboy]

@Sea-Haven Yes i did test it and it worked for me.

[cadffm]

like Alan

No, that's impossible. You remembered wrong or posted the wrong code.

If you use chatgpt, co-pilot or others, then do it, but spare others. If you have any questions, ask chatgpt, co-pilot ..

[Cladboy]

Right then, a couple of things.

1. My mistake for not thoroughly testing the lisp. It looked as though i was getting the result I and @jagostinho74 wanted to achieve, but long story short it didn't. My bad, hands up, but here's another AI generated lisp that does work - as far as i can see.

(defun c:MakeBlocksExplodable ()
(vl-load-com)
(setq *acad* (vlax-get-acad-object))
(setq *doc* (vla-get-ActiveDocument *acad*))
(setq *blocks* (vla-get-Blocks *doc*))
(vlax-for block *blocks*
(if (eq (vla-get-IsXRef block) :vlax-false)
(vla-put-Explodable block :vlax-true)
)
)
(princ "\nAll blocks are now explodable.")
(princ)
)

2. This is a genuine question without looking for an argument. What's the problem with someone using AI to try and find a solution? "If you use chatgpt, co-pilot or others, then do it, but spare others. If you have any questions, ask chatgpt, co-pilot .."

[Sea-Haven]

There is nothing wrong with using AI, Copilot or ChatGP, only issue is they have a high failure rate, a lot of code is posted here with "This is not working can someone fix."

It very much depends on the task once you get into deeper code requirement like this task, AI struggles. Plenty of failure code has been posted here.

As I said I have tried Copilot some results good others just ignore.

[thinkbdw]

Make this last one as a lsp file and it works a treat!!! Nice one @Cladboy 😘