;; | ----------------------------------------------------------------------------
;; | MI_ExportFile 
;; | ----------------------------------------------------------------------------
;; | Function  : Runs the AutoCAD Reads all current GeoTools operating parameters from the
;; |             registry
;; | Auguments : (none)
;; | Return    :
;; | Updated   : September 2, 2008
;; | Comment   : Returns the entered date as a list
;; | e-mail    : rakesh.rao@4d-technologies.com 
;; | Web       : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_ExportFile ( ss fn / Lst LL UR )
(if (= (type ss) 'ENAME)
	(setq Lst (GE_GetObjectBoundingBox ss))
	(setq Lst (SS_BoundingBox ss))
)

(if Lst
(progn
	(setq
		LL (nth 0 Lst)
		UR (nth 1 Lst)
	)

	(command "._Zoom" "_Window" LL UR)
	(setvar "EXPERT" 4)
	(command
		"._Export" fn ss ""
		"._Zoom" "_Previous"
	)
	(setvar "EXPERT" 0)
))
)