;; | -----------------------------------------------------------------------------
;; | SS_BoundingBox
;; | -----------------------------------------------------------------------------
;; | Function : Returns the selection set bounding box coordinates in the form
;; |            of a list of Lower Left and Upper Right points.
;; | Arguments: 'ss' - Selection Set to examine
;; | Returns  : 'Lst' - is a list of LL and UR
;; | Updated  : June 10, 2005
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | -----------------------------------------------------------------------------


(defun SS_BoundingBox ( ss / ssl cnt llX llY urX urY ename cnt Lst LL UR _llX _llY _urX _urY )

(setq
	ssl (sslength ss)
	cnt 0
	llX 1E20
	llY 1E20
	urX -1E20
	urY -1E20
)
(repeat ssl
	(setq
		ename (ssname ss cnt)
		cnt   (1+ cnt)
		Lst   (GE_GetObjectBoundingBox ename)
		LL    (nth 0 Lst)
		_llX  (car  LL)
		_llY  (cadr LL)
		UR    (nth 1 Lst)
		_urX  (car  UR)
		_urY  (cadr UR)
	)

	(if (< _llX llX)
		(setq llX _llX)
	)

	(if (< _llY llY)
		(setq llY _llY)
	)

	(if (> _urX urX)
		(setq urX _urX)
	)

	(if (> _urY urY)
		(setq urY _urY)
	)
)
(list (list llX llY 0.0) (list urX urY 0.0))
)