Explode Group by Picking it

Anyone have a routine in which I can explode a group, copied or not, by picking it. I have an explode ALL groups routine, but I want to pick a group. Thanks

 

ummm... is there some advantage to this over selecting the name to explode out the GROUP dialog box???

 

Try this...

http://tinyurl.com/3dr4o

Don

picking it. I have an explode ALL groups routine, but I want to pick a
group. Thanks

 

Here is a simple one:

(defun C:GX () (GROUP_EX))

(defun get_group_name (ename / key dct rtn)
(setq
key (cons 340 ename)
dct (dictsearch (namedobjdict) "ACAD_GROUP")
)
(while (setq dct (member (assoc 3 dct) dct))
(if (member key (entget (cdadr dct)))
(setq rtn (cons (cdar dct) rtn))
)
(setq dct (cddr dct))
)
(reverse rtn)
)

(defun group_ex (/ cont grp gname)
(setq cont 1)
(while cont
(setq grp (car (entsel "\nSelect Group to Explode:")))
(if (setq gname (nth 0 (get_group_name grp)))
(progn
(command "-group" "e" gname)
(setq cont nil)
)
(alert "Entity Selected is not a Group! Try Again")
)
)
(princ)
)

 

Would you mind posting the routine to explode ALL groups?

Also, has anyone redesigned the Group Dialog box so that more than 3 lines of text can be viewed?

Thanks in advance ...