; Erstellt:  M.Müller 14-11-2011
; x_t-Datei laden und Schnittstelle deaktivieren
; Dateiname: load-x_t.lsp

(in-package  :mm)
(use-package :oli)

(sd-defdialog   'x_t-laden

  :dialog-title "x_t-laden"

  :variables 
  '	(
			(FILE :value-type :filename
          :title "Datei laden"
          :initialdirectory "T:/" ; alternativ anderes Laufwer oder auch(sd-get-current-working-directory)
          :direction :input
					:initialpattern "*.x_t"
					:fileType :parasolid_unigraphics
					:after-input
						(progn
							(setq datei (first file))
							(act_deact_module :Act "UG_DIRECT_LINK" "MODULE-CONTROLLER-Data Interfaces-UG_DIRECT_LINK-TB" '(STARTUP::ACTIVATE-SD-UG-ADAPTER))
							(sd-call-cmds (native_cad_in :cad_system :parasolid_unigraphics :FILENAME datei))
							(act_deact_module :Deact "UG_DIRECT_LINK" "MODULE-CONTROLLER-Data Interfaces-UG_DIRECT_LINK-TB" '(STARTUP::DEACTIVATE-SD-UG-ADAPTER))
						) ; progn
			) ; end file
		) ; end variables
) ; sd-defdialog