;; | ----------------------------------------------------------------------------
;; | XD_PutVxXdata
;; | ----------------------------------------------------------------------------
;; | Function : Put extended entity data into the vertices of a polyline
;; | Argument : [ename]   - polyline entity name
;; |            [xdLst]   - Vertex extended entity data list
;; |            [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  : July 22, 2002
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun XD_PutVxXdata ( ename xdLst AppName fmt / entl en xd cnt )

(setq
	en    "VERTEX"
	cnt   0
)
(while (= en "VERTEX")
	(setq
		ename (entnext ename)
		entl  (entget ename)
		en    (LI_item 0 entl)
		xd    (nth cnt xdLst)
		cnt   (1+ cnt)
	)

	(if xd
	(progn
		(if (= fmt 0)
		(setq
			xd (XD_Add_List_Bracket xd)
			xd (XD_WriteX ename xd AppName)
		)
		(progn
			(setq
				xd   (list -3 (cons AppName xd))
				entl (append (entget ename) (list xd))
			)
			(entmod entl)
		))
	))
)
)