;;;    ACAD.LSP Version 1.0 for CAD-Duct CAD-Mech
;;;
;;;    Copyright (C) 2005 by Technical Sales International

;;;(if (not (=  (substr (ver) 1 11) "Visual LISP")) (load "acad2005doc.lsp"))

;; Silent load.
;;;(princ)

(vmon)(defun s::startup ( ) (ml))

(setq x (getvar "filedia"))

(setvar "filedia" 1) 	; suppress dialog box

(defun ml ( )

  	(command "menuunload" "TSI-Tools")

  	(command "menuload" "./TSI-Tools")

;load DEMO ARX file
;(arxload "../MAPcadduct16_Demo.arx")

;load ARX file
(arxload "../MAPcadduct16.arx")


 
;load vba for est app
(command "_VBALOAD""RunEstFromCad.dvb")

(setvar "filedia" 1)   ; Restore previous filedia value

(command)

  	(princ)

)