;; | ----------------------------------------------------------------------------
;; | GE_GetObjectBoundingBox
;; | ----------------------------------------------------------------------------
;; | Function : Returns the object bounding box coordinates in the form of a
;; |            list of Lower Left and Upper Right points.
;; | Arguments: 'ename' - Object to examine
;; | Returns  : 'Lst' - is a list of LL and UR
;; | Updated  : April 28, 2000
;; | Comments : VL-function, works with AutoCAD 2000 only
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_GetObjectBoundingBox(ename / ll ur vname )

(setq vname (vlax-ename->vla-object ename))
(vla-GetBoundingBox vname 'll 'ur)
(setq
	ll (vlax-safearray->list ll)
	ur (vlax-safearray->list ur)
)
(vlax-release-object vname)
(list ll ur)
)