Community
Exmplae ..
(setq ss (car (entsel "\n Select a block :")))
With this you would know if the block is not explodable or not ..
(not (vlax-method-applicable-p (vlax-ename->vla-object ss) 'Explode ) )
With this also as well ....
(eq (vla-get-explodable (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)) ) (cdr (assoc 2 (entget ss))) ) ) :vlax-false )