;; | ----------------------------------------------------------------------------
;; | GR_MemberOfGroup
;; | ----------------------------------------------------------------------------
;; | Function : Find out which groups the entity belongs to.
;; | Argument : 'ename' - Name of the AutoCAD graphical entity
;; | Returns  : Returns the names of the group dictionary records as a list
;; | Updated  : March 26, 1998
;; | Comment  : The argument 'ename' is overloaded. It can either be an
;; |            entity name or entity list as returned by (entget) function.
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GR_MemberOfGroup( ename / GrpLst GroupEname )

(setq GroupEname nil)
(if ename
	(if (listp ename)
		(setq GroupEname (LI_mitem 330 ename))
		(setq GroupEname (LI_mitem 330 (entget ename)))
	)
)
GroupEname
)