;; | ----------------------------------------------------------------------------
;; | GR_GetGroupASCIIName
;; | ----------------------------------------------------------------------------
;; | Function : Find out all the ASCII name of the Group
;; | Argument : 'ename' - Name of the member entity of dictionary ACAD_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_GetGroupASCIIName( ename / parentDict tmp len entl )

(setq
	parentDict (LI_item 330 (entget ename))
	entl (entget parentDict)
	len (length entl)
	tmp (1+ (- len (length (member (cons 350 ename) entl))))
)
(cdr (nth tmp entl))
)