;; | ----------------------------------------------------------------------------
;; | GE_GetSSBoundingBox
;; | ----------------------------------------------------------------------------
;; | Function : Returns the object bounding box coordinates for the entire
;; |            selection set
;; | Arguments: 'ss' - Selection Set
;; | Returns  : 'Lst' - is a list of LL and UR
;; | Updated  : April 28, 2000
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_GetSSBoundingBox(ss / ll ur ssl cnt BigLst ename Lst )

(setq
	ssl     (sslength ss)
	cnt     0
	BigLst '()
)
(repeat ssl
	(setq
		ename  (ssname ss cnt)
		Lst    (GE_GetObjectBoundingBox ename)
		BigLst (cons (car Lst)  BigLst)
		BigLst (cons (cadr Lst) BigLst)
		cnt    (1+ cnt)
	)
)
(setq Lst (GE_Extents BigLst))
)