;; | ----------------------------------------------------------------------------
;; | PL_SeekMain
;; | ----------------------------------------------------------------------------
;; | Function : Seek Main entity name from vertex name
;; | Argument : Vertex entity name
;; | Returns  : The main polyline entity name
;; | Update   : March 6, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun PL_SeekMain(ename / en entl)

; Seek the end of polyline
(setq
	entl (entget ename)
	en (LI_item 0 entl)
)
(while (= en "VERTEX")
	(setq
		ename (entnext ename)
		entl (entget ename)
		en (LI_item 0 entl)
	)
)
(if (= en "SEQEND")
	(LI_item -2 entl)
	nil
)
)