;; | ----------------------------------------------------------------------------
;; | GE_GetRange
;; | ----------------------------------------------------------------------------
;; | Function : Returns the range of a coordinate from a given graphical object.
;; | Argument : 'ename'  - entity name to check
;; |            'Range'  - Range Value to return
;; |                       Possible values are: 'LowestX'  'LowestY'
;; |											'HighestX' 'HighestY
;; | Returns  : The specified coordinate range
;; | Update   : May 29, 2005
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_GetRange ( ename Range / LL UR val Lst )


(setq val nil)

(setq Lst (GE_GetObjectBoundingBox ename))
(if Lst
(progn
	(setq
		LL  (car Lst)
		UR  (cadr Lst)
	)

	(cond
		((= Range "LowestX")
			(setq val (car LL))
		)
		((= Range "LowestY")
			(setq val (cadr LL))
		)
		((= Range "HighestX")
			(setq val (car UR))
		)
		((= Range "HighestY")
			(setq val (cadr UR))
		)
	)
))
val
)