How to Explode Blocks without generating a Copy

[mmP3TWV]

Hi, I am aware that again i am asking a very basic question.

This is my Code

(defun FPSpreng_t (/ ss i ent data)

(ss-foreach(ssget "X" '((0 . "INSERT")))
'(lambda(ent / )
(vl-catch-all-apply 'vla-explode (list (vlax-ename->vla-object ent)))
)
)

)

I use a simple Loop to explode All Blocks in my Drawing. But my Lisp does not "kill" the Block but explodes a copy of it so I end up with two Geometries one Block and One Set of Circles and Lines

When I explode the Block manually with the Command _explode I end up with only the lines and no block.

How can I avoid that copy when using 'vla-explode, script the _explode-Command OR Delete all Blocks remaining in my Drawing after having used 'vla-explode? Eather way should work for me.

The Circles and lines inside the Block are drawn on Layer 0.

 

 

[ВeekeeCZ · Accepted solution]

One way or another

(defun c:test ()
  (setq blk (vlax-ename->vla-object (car (entsel))))
  (vl-catch-all-apply 'vla-explode (list blk))
  (vl-catch-all-apply 'vla-delete (list blk))
  )

(defun c:test2 ()
  (setq s (ssget '((0 . "INSERT"))))
  (initcommandversion)
  (command "_.explode" s "")
  )

[mmP3TWV]

Thank you. Tried with 'vla-delete before but didn't see that i can just add it to the allready existing selection. 

That's all I needed :-).