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