(use-package :OLI)

(export 'Anno_speichern)
(setq aktu_Arbeits_Verz "leer")

(sd-defdialog 'Anno_auto_speich
  :dialog-title "Zeichnung speichern"
  :toolbox-button t
  :variables
	'(
		(PFAD  	:value-type :directory  ;:filename :direction :input
						:multiple-items nil
						:title "SAVE.MI"
						:prompt-text "Wählen Sie den aktuellen Pfad des Auftrags aus"
						:initial-value (sd-get-current-working-directory)
						:after-input 
							(progn
								(sd-set-current-working-directory PFAD))
		)

	);ende variables
	
	:cancel-action '()
	:ok-action '(Anno_speichern PFAD)

)

(defun Anno_speichern (PFAD)
		
		(SETQ aktu_Arbeits_Verz PFAD)
		(SETQ Zeichnungs_Nr (sd-am-inq-drawing-no))
		(SETQ Ordner_2D (format nil "~a//" aktu_Arbeits_Verz))
		
		(SETQ Auftrag (sd-string-split PFAD "-"))
		(SETQ Auftrag (format nil "~a//" (nth (-(length Auftrag) 2) Auftrag) (nth (-(length Auftrag) 1) Auftrag)))
		(SETQ DATEINAME (sd-string-upcase (format nil "~a//~a.mi" Ordner_2D (sd-am-inq-drawing-no) Auftrag)))
		(frame2::getres(am_store_drawing :filename DATEINAME :overwrite :check_up_to_date 1 ))
)