;; | ----------------------------------------------------------------------------
;; | PL_GetVxEntl
;; | ----------------------------------------------------------------------------
;; | Function : Returns the complete entity list of a polyline, including the
;; |            entity list of the vertex entities
;; | Arguments:
;; |           'ename' - Polyline (heavy weight) name
;; | Action   : Returns a complete entity list of the polyline
;; |            The list has the entity head as the first element and the remaining
;; |            elements are the vertex lists.
;; | Updated  : September 28, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun PL_GetVxEntl ( ename / Lst Lst1 en entl )

(setq
	Lst '()
	entl (entget ename)
	Lst (cons entl Lst)
	Lst1 '()
	en "VERTEX"
)
(while (= en "VERTEX")
	(setq
		ename (entnext ename)
		entl (entget ename)
		en (LI_item 0 entl)
	)
	(if (= en "VERTEX")
		(setq Lst1 (cons entl Lst1))
	)
)
(setq
	Lst1 (reverse Lst1)
	Lst (append Lst Lst1)
)
Lst
)