;;½βΙΆΘΊΧι
(defun C:EXPLODE_GROUP (/ allg data group ss)
  (if (setq ss (ssget))
    (foreach en	(fsxm-ss->enlist ss)
      (setq data (entget en))
      (setq group
	     (vl-remove-if
	       '(lambda	(a)
		  (or (/= (car a) 330)
		      (/= (fsxm-getdxf 0 (entget (cdr a))) "GROUP")
		  )
		)
	       data
	     )
      )
      (setq allg (reverse (dictsearch (namedobjdict) "ACAD_GROUP")))
      (foreach a (mapcar 'cdr group)
	(princ "\nEXPLODE GROUP : ")
	(princ (cdadr (member (cons 350 a) allg)))
	(entdel a)
      )
    )
  )
  (princ)
)
