;; | ----------------------------------------------------------------------------
;; | PL_Get2dPolyElev
;; | ----------------------------------------------------------------------------
;; | Function : Find the elevation of a 2d polyline
;; | Arguments:
;; |            'ename'  - Name of the 2d polyline
;; | Action   : Returns the constant elevation of the 2d polyline
;; | Updated  : June 2, 2004
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun PL_Get2dPolyElev( ename / entl en Elev )


(setq
	entl (entget ename)
	en   (LI_item 0 entl)
	Elev nil
)

(cond
	((= en "POLYLINE")
		(setq Elev (caddr (LI_item 10 (entget (entnext ename)))))
	)
	((= en "LWPOLYLINE")
		(setq Elev (LI_item 38 entl))
	)
)
Elev
)