;; | ----------------------------------------------------------------------------
;; | XD_GetVxXdata
;; | ----------------------------------------------------------------------------
;; | Function : Get extended entity data from the vertices of a polyline
;; | Argument : [ename]   - polyline entity name
;; |            [AppName] - Application Name
;; |            [fmt]     - Xdata format
;; |               0 - Power Tools Xdata format (read and written by XD_readX & XD_writeX)
;; |               1 - Generic Xdata format
;; | Return   : List of Xdata of each vertex
;; | Updated  : September 22, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun XD_GetVxXdata ( ename AppName fmt / entl en xd xdLst )

(setq
	en     "VERTEX"
	xdLst '()
)
(while (= en "VERTEX")
	(setq
		ename (entnext ename)
		entl  (entget ename)
		en    (LI_item 0 entl)
	)
	(if (= fmt 0)
		(setq xd (XD_ReadX ename AppName))
		(setq xd (LI_item -3 (entget ename (list AppName))))
	)
	(setq xdLst (cons xd xdLst))
)
(setq xdLst (cdr xdLst))
(reverse xdLst)
)