;; | ----------------------------------------------------------------------------
;; | MI_GetRegionElev
;; | ----------------------------------------------------------------------------
;; | Function : Returns the elevation of a REGION object
;; | Argument : 'ename' - The entity name of the REGION object
;; | Returns  : None
;; | Updated  : March 14, 2004
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetRegionElev( ename / Lst Elev )

(setq
	Lst  (GE_GetObjectBoundingBox ename)
	Elev (caddr (nth 0 Lst))
)
Elev
)