;; | ----------------------------------------------------------------------------
;; | GR_GetAllGroups
;; | ----------------------------------------------------------------------------
;; | Function : Returns complete information about all groups in current drawing.
;; | Argument : None
;; | Action   : Returns a list containing three sublists which are described as
;; |            follows:
;; |            1. List of all defined Group Names (ASCII name)
;; |            2. List of all group entity names (dictionary records)
;; |            3. LIst of all members of the groups. This is a list of all
;; |               member entities of each group.
;; |            If no group is defined, nil is returned.
;; | Updated  : March 26, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GR_GetAllGroups( / grp GroupLst GroupEname GroupMembLst )

(setq
	grp (dictsearch (namedobjdict) "ACAD_GROUP")
	GroupLst (LI_mitem 3 grp)
	GroupEname (LI_mitem 350 grp)
	GroupMembLst (mapcar '(lambda(x) (LI_mitem 340 (entget x))) GroupEname)
)
(if GroupLst (list GroupLst GroupEname GroupMembLst) nil)
)