;; | ----------------------------------------------------------------------------
;; | XD_GetAllAttachedXdata 
;; | ----------------------------------------------------------------------------
;; | Function : Returns all the attached extended entity data applications names
;; |            as well their xdata as a nested list.
;; | Argument : [ename]   - entity name
;; | Return   : List of extended entity data applications and their data
;; | Updated  : September 7, 2008
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun XD_GetAllAttachedXdata ( ename / entl xdLst xdNames )
(setq
	entl  (entget ename (list "*"))
	xdLst (LI_item -3 entl)
)

(if xdLst
	(setq
		xdNames (mapcar 'strcase (mapcar 'car xdLst))
		xdLst   (mapcar 'cdr xdLst)
		xdLst   (list xdNames xdLst)
	)
)
xdLst
)