;;³¹µ×Õ¨¿é
(defun c:EXPLODE_block (/ ss x)
  (defun x (blkref / lst)
    (setq lst (vlax-invoke blkref 'explode))
    (vla-Delete blkref)
    (foreach blkref lst
      (if (= (vla-get-ObjectName blkref)
	     "AcDbBlockReference"
	  )
	(x blkref)
      )
    )
  )
  (if (setq ss (ssget '((0 . "INSERT"))))
    (vlax-for ref (vla-get-ActiveSelectionSet *doc*) (x ref))
  )
  (princ)
)