Group Name 알아내는... (defun GroupName (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) )