explode all selected dynamic blocks

[Migumby]

Hello,

I’m hoping to find a routine that I can select and explode all selected dynamic blocks.

Our CNC machine software doesn’t seem to like them.

thanks

[ВeekeeCZ]

They must be exploded? What about convert them into regular blocks...
http://www.cad-notes.com/how-to-convert-dynamic-block-to-regular-block/

[hmsilva]

---

@ВeekeeCZ wrote:
They must be exploded? What about convert them into regular blocks...

---

If acceptable as approach, my choice would be that one also...

Henrique

[Migumby]

No, sorry. The Software for the CNC machine that we use, doesn't except that.
Unfortunately it has to be exploded.

[hmsilva]

---

@Migumby wrote:
No, sorry. The Software for the CNC machine that we use, doesn't except that.
Unfortunately it has to be exploded.

---

Do the Dynamic blocks have attributes?

Henrique

[Migumby]

no they dont.

[hmsilva · Accepted solution]

---

@Migumby wrote:

no they dont.

---

Quick and dirty...

(vl-load-com)
(defun c:demo (/)
  (or acdoc (setq acdoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for layt (vla-get-layouts acdoc)
    (vlax-for blk (vla-get-block layt)
      (if (and
            (= (vla-get-ObjectName blk) "AcDbBlockReference")
            (= (vla-get-isdynamicblock blk) :vlax-true)
            (not (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke (list blk 'explode))))
          )
        (vla-delete blk)
      )
    )
  )
  (princ)
)

Hope this helps,
Henrique

[Migumby]

great!
Thank you very much

[hmsilva]

---

@Migumby wrote:
great!
Thank you very much

---

You're welcome, Migumby!
Glad I could help

Henrique