;全部可炸开
(vlax-for x (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(if (vla-put-explodable X :vlax-true)
(vla-put-explodable X :vlax-true)
)
)
;全部不可炸开
(vlax-for x (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(if (vla-put-explodable X :vlax-false)
(vla-put-explodable X :vlax-false)
)
)