(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 "Auftragspfad"
						: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))
		)
		
		("gewähltes Verzeichnis")
	
		(2D_Verz   :value-type :grouped-boolean
			   :title "2D-Daten"
			   :size :half  ; oder :third
			   :initial-value t
		)
	
		(Haupt_Verz   :value-type :grouped-boolean
			   :title "Hauptverzeichnis"
			   :size :half  ; oder :third
			   :initial-value nil
		)

	);ende variables
	
	:mutual-exclusion '(2D_Verz Haupt_Verz)
	
	:cancel-action '()
	:ok-action '(Anno_speichern PFAD 2D_Verz Haupt_Verz)

)

(defun Anno_speichern (PFAD 2D_Verz Haupt_Verz)

		(SETQ aktu_Arbeits_Verz PFAD)
		(SETQ Zeichnungs_Nr (sd-am-inq-drawing-no))

		(IF 2D_Verz
			(progn
				(SETQ Ordner_2D (format nil "~A/" aktu_Arbeits_Verz))
				(SETQ Auftrag (sd-string-split PFAD "/"))  ;(V: WKZ-AUFTRAEGE-2015 WKZ-AUFTRAEGE-2015 Auftrag-15-018 2d-daten)
				(SETQ Auftrag (sd-string-split (nth (-(length Auftrag) 2) Auftrag) "-"))
			); progn ende
		); if ende	
		
		(IF Haupt_Verz
			(progn
				;(SETQ Ordner_2D (format nil "~A/2d-daten/" aktu_Arbeits_Verz))
				(SETQ Ordner_2D (format nil "~A/2d-daten/" aktu_Arbeits_Verz))
				(SETQ Auftrag (sd-string-split PFAD "-"))
			); progn ende
		); if ende	
	
		(SETQ Auftrag (format nil "~A-~A" (nth (-(length Auftrag) 2) Auftrag) (nth (-(length Auftrag) 1) Auftrag)))
		(SETQ DATEINAME (sd-string-upcase (format nil "~A~A_~A.mi" Ordner_2D (sd-am-inq-drawing-no) Auftrag)))
		(frame2::getres(am_store_drawing :filename DATEINAME :overwrite :check_up_to_date 1 ))	
)

;(Anno_speichern (sd-get-current-working-directory) t nil)  ;2D Daten
;(Anno_speichern (sd-get-current-working-directory) nil t)  ;Hauptver