;; | ----------------------------------------------------------------------------
;; | XD_ReadX
;; | ----------------------------------------------------------------------------
;; | Function : Reads extended entity data from an entity
;; | Argument : [ename]   - the entity name of the entity to be read.
;; |            [AppName] - The Application Name
;; | Return   : xdata is returned in a nested list, if exists; else NIL
;; | Updated  : August 11, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun XD_ReadX ( ename AppName / entl xd xd1 itm )
(setq
	entl (entget ename (list AppName))
	xd   (cdr (car (cdr (assoc -3 entl))))
	xd   (mapcar 'cdr xd)
	xd   (LI_GroupLst xd "{" "}")
	xd1  '()
)
(foreach itm xd
	(if (listp itm)
	(progn
		(if (and
				(= (car  itm) "{")
				(= (last itm) "}")
			)
			(setq xd1 (cons (reverse (cdr (reverse (cdr itm)))) xd1))
			(setq xd1 (cons itm xd1))
		)
	)
	(setq xd1 (cons itm xd1))
	)
)
(setq xd1 (reverse xd1))
)