(defun c:unx ( / b bN blk)
(vl-load-com)
(setq b (ssget '((0 . "INSERT"))))
(if b
(progn
(setq bN
(vla-get-effectivename
(vlax-ename->vla-object (ssname b 0))
)
)
(setq blk
(vla-get-Blocks
(vla-get-activedocument
(vlax-get-acad-object)
)
)
)
(vla-put-explodable (vla-Item blk bN) :vlax-false)
)
)
)
(c:unx)

Advertisements