BOKill

(defun c:BOKill ()
(vl-load-com)
(vlax-for blk (vla-get-Blocks
    (vla-get-ActiveDocument (vlax-get-acad-object))
)
(if
    (and
        (= (vla-get-IsLayout blk) :vlax-false)
        (= (vla-get-IsXref blk) :vlax-false)
        (not (wcmatch (vla-get-name blk) "*|*"))
)
(vlax-for obj blk
    (if (= (vla-get-ObjectName obj) "AcDbBlock")
    (vl-catch-all-apply 'VLA-EXPLODE
    (command "_.-overkill" "_All" "" "")

(command "_.bsave)

(command "_.bclose)
(list obj))
    (princ)
    )
)
)
)
(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acAllViewports)
   (princ "\rFinished                  ")
   (princ)
)