;; | ----------------------------------------------------------------------------
;; | GR_GetGroupRecord
;; | ----------------------------------------------------------------------------
;; | Function : Find out the name of the Group record dictionary from its ASCII name.
;; | Argument : 'GrpName' - Name of the Group
;; | Returns  : Returns the ASCII name of the group
;; | Updated  : March 26, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GR_GetGroupRecord ( GrpName / dctl tmp len ename )

(setq
	dctl (dictsearch (namedobjdict) "ACAD_GROUP")
	ename nil
)
(if dctl
(progn
	(setq
		len (length dctl)
		tmp (member (cons 3 (strcase GrpName)) dctl)
	)
	(if tmp
		(setq ename (cdr (nth (1+ (- len (length tmp))) dctl)))
	)
))
ename 
)