;; | ----------------------------------------------------------------------------
;; | GE_Zoom2Lst
;; | ----------------------------------------------------------------------------
;; | Function : Zoom to the extents of a list of points
;; | Arguments:
;; |           'vlist' - List of points
;; | Action   : Performs a Zoom Window operation using the bottom left and top
;; |            right corners of a list of points
;; | Updated  : November 2, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_Zoom2Lst( vlist / bl tr Lst OS )

(setq
	Lst (GE_Extents vlist)
	bl (car Lst)
	tr (cadr Lst)
)
(if (not (and (GE_PntInView bl) (GE_PntInView tr)))
(progn
	(setq OS (getvar "OSMODE"))
	(setvar "OSMODE" 0)
	(command
		"._Zoom" "_Window" bl tr
		"._Zoom" "0.95x"
	)
	(setvar "OSMODE" OS)
))
)