;; | ----------------------------------------------------------------------------
;; | GE_ZoomInPt
;; | ----------------------------------------------------------------------------
;; | Function : Zooms current extents to include a pt if it lies outside the
;; |            screen
;; | Argument : [pt] - point of interest
;; | Return   : None
;; | Updated  : December 18, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_ZoomInPt( pt / ptlst )

(if (not (GE_PntInView pt))
(progn
	(setq ptlst (cons pt (MI_ScreenExt)))
	(GE_Zoom2Lst ptlst)
))
)