(in-package :EXAMPLES)
(use-package :OLI)

(sd-defdialog 'filename_demo
	:dialog-title "Plot-Programm1"
	:variables
	'((V1		:value-type :filename
			:title "Datei laden"
			:initial-optional t
			:direction :input
			:initialdirectory "T:/Jc"
			:fileType :mi))


:ok-action
'(let ((error-case nil))
(sd-call-cmds(AM_LOAD_DRAWING :filename (first V1)))
:failure (setf error-case t))
(unless error-case
(sd-call-cmds(AM_PLOT :output :DRAWING :scale :FIT :show_dialog :off :confirm))
(sd-call-cmds(am_drawing_delete :dwg :Yes))))