;;--------------------------------------------------------------------------*
;;  Copyright 2011  Fa. Kikonss - Konstruktionsbüro                         *
;;--------------------------------------------------------------------------*
;;     in-packages                                                          *
;;--------------------------------------------------------------------------*
(in-package :DKI)
;;--------------------------------------------------------------------------*
;;     use-packages                                                         *
;;--------------------------------------------------------------------------*
(use-package :OLI)
;;--------------------------------------------------------------------------*
;;     export                                                               *
;;--------------------------------------------------------------------------*
;;     global variables                                                     *
;;--------------------------------------------------------------------------*
(defvar *kikonss-anno-blattname-string*)
(defvar *kikonss-anno-startb-number*)
(defvar *kikonss-anno-endb-number*)
(defvar *kikonss-anno-stellen-number*)
(defvar *kikonss-anno-startverz-string*)
(defvar *kikonss-anno-dxf-infotxt-string*)
(defvar *kikonss-anno-dxf-elemnte-verschmelzen-string*)
(defvar *kikonss-anno-dxf-txt2geo-string*)
(defvar *kikonss-anno-dxf-bilder-loeschen-string*)
(defvar *kikonss-anno-dwg-infotxt-string*)
(defvar *kikonss-anno-dwg-elemnte-verschmelzen-string*)
(defvar *kikonss-anno-dwg-txt2geo-string*)
(defvar *kikonss-anno-dwg-bilder-loeschen-string*)
(defvar *kikonss-anno-iges-infotxt-string*)
(defvar *kikonss-anno-iges-elemnte-verschmelzen-string*)
(defvar *kikonss-anno-iges-txt2geo-string*)
(defvar *kikonss-anno-iges-bilder-loeschen-string*)
(defvar *kikonss-anno-mi-infotxt-string*)
(defvar *kikonss-anno-mi-elemnte-verschmelzen-string*)
(defvar *kikonss-anno-mi-txt2geo-string*)
(defvar *kikonss-anno-mi-bilder-loeschen-string*)

(defvar *kikonss-anno-dxf1-string*)
(defvar *kikonss-anno-dxf2-string*)
(defvar *kikonss-anno-dxf3-string*)
(defvar *kikonss-anno-dxf4-string*)
(defvar *kikonss-anno-dxf5-string*)
(defvar *kikonss-anno-dxf6-string*)
(defvar *kikonss-anno-dxf7-string*)
(defvar *kikonss-anno-dwg1-string*)
(defvar *kikonss-anno-dwg2-string*)
(defvar *kikonss-anno-dwg3-string*)
(defvar *kikonss-anno-dwg4-string*)
(defvar *kikonss-anno-dwg5-string*)
(defvar *kikonss-anno-dwg6-string*)
(defvar *kikonss-anno-dwg7-string*)
(defvar *kikonss-anno-iges1-string*)
(defvar *kikonss-anno-iges2-string*)
(defvar *kikonss-anno-iges3-string*)
(defvar *kikonss-anno-iges4-string*)
(defvar *kikonss-anno-iges5-string*)
(defvar *kikonss-anno-iges6-string*)
(defvar *kikonss-anno-iges7-string*)
(defvar *kikonss-anno-mi1-string*)
(defvar *kikonss-anno-mi2-string*)
(defvar *kikonss-anno-mi3-string*)
(defvar *kikonss-anno-mi4-string*)
(defvar *kikonss-anno-mi5-string*)
(defvar *kikonss-anno-mi6-string*)
(defvar *kikonss-anno-mi7-string*)

;;------------- VORGABEN ---------------------------------------------------*
(setf *kikonss-anno-blattname-string* "Blatt")						;;Blattname
(setf *kikonss-anno-startb-number* 1)								;;Nummer fuer erste Blatt
(setf *kikonss-anno-endb-number* (length (sd-am-inq-all-sheets)))	;;Nummer fuers letzte Blatt
(setf *kikonss-anno-stellen-number* 3)								;;Anzahl der Stellen fuer die Nummerierung Bsp. _01; _001 etc.
(setf *kikonss-anno-startverz-string* "Y:/Plotdateien")				;;Standartverzeichnis für die Ausgabe (Innerhalb dieser muessen die Verz. DXF,DWG.IGES,MI enthalten sein

(setf *kikonss-anno-dxf-infotxt-string* "f")						;;nil or "f" fuer alle - ohne Systeminfos
(setf *kikonss-anno-dxf-elemnte-verschmelzen-string* nil)			;;Element verschmelzen
(setf *kikonss-anno-dxf-txt2geo-string* nil)						;;Text in Geometrie umwandeln
(setf *kikonss-anno-dxf-bilder-loeschen-string* nil)				;;Bilder loeschen
(setf *kikonss-anno-dxf-ohne-geloeschte-string* "f")				;;ohne geloeschte Elemente
(setf *kikonss-anno-dxf-ohne-unsichtbare-string* "f")				;;ohne unsichtbar Elemente
(setf *kikonss-anno-dxf-warnungen-string* "f")						;;Warnungen einschalten

(setf *kikonss-anno-dwg-infotxt-string* "f")
(setf *kikonss-anno-dwg-elemnte-verschmelzen-string* nil)
(setf *kikonss-anno-dwg-txt2geo-string* nil)
(setf *kikonss-anno-dwg-bilder-loeschen-string* nil)
(setf *kikonss-anno-dwg-ohne-geloeschte-string* "f")	
(setf *kikonss-anno-dwg-ohne-unsichtbare-string* "f")				
(setf *kikonss-anno-dwg-warnungen-string* "f")

(setf *kikonss-anno-iges-infotxt-string* "f")
(setf *kikonss-anno-iges-elemnte-verschmelzen-string* nil)
(setf *kikonss-anno-iges-txt2geo-string* nil)
(setf *kikonss-anno-iges-bilder-loeschen-string* nil)
(setf *kikonss-anno-iges-ohne-geloeschte-string* "f")	
(setf *kikonss-anno-iges-ohne-unsichtbare-string* "f")				
(setf *kikonss-anno-iges-warnungen-string* "f")

(setf *kikonss-anno-mi-infotxt-string* "f")
(setf *kikonss-anno-mi-elemnte-verschmelzen-string* nil)
(setf *kikonss-anno-mi-txt2geo-string* nil)
(setf *kikonss-anno-mi-bilder-loeschen-string* nil)
(setf *kikonss-anno-mi-ohne-geloeschte-string* "f")	
(setf *kikonss-anno-mi-ohne-unsichtbare-string* "f")				
(setf *kikonss-anno-mi-warnungen-string* "f")

(setf *kikonss-anno-dxf1-string* ":ON")
(setf *kikonss-anno-dxf2-string* ":OFF")
(setf *kikonss-anno-dxf3-string* ":OFF")
(setf *kikonss-anno-dxf4-string* ":OFF")
(setf *kikonss-anno-dxf5-string* ":ON")
(setf *kikonss-anno-dxf6-string* ":ON")
(setf *kikonss-anno-dxf7-string* ":ON")

(setf *kikonss-anno-dwg1-string* ":OM")
(setf *kikonss-anno-dwg2-string* ":OFF")
(setf *kikonss-anno-dwg3-string* ":OFF")
(setf *kikonss-anno-dwg4-string* ":OFF")
(setf *kikonss-anno-dwg5-string* ":ON")
(setf *kikonss-anno-dwg6-string* ":ON")
(setf *kikonss-anno-dwg7-string* ":ON")

(setf *kikonss-anno-iges1-string* ":ON")
(setf *kikonss-anno-iges2-string* ":OFF")
(setf *kikonss-anno-iges3-string* ":OFF")
(setf *kikonss-anno-iges4-string* ":OFF")
(setf *kikonss-anno-iges5-string* ":ON")
(setf *kikonss-anno-iges6-string* ":ON")
(setf *kikonss-anno-iges7-string* ":ON")

(setf *kikonss-anno-mi1-string* ":ON")
(setf *kikonss-anno-mi2-string* ":OFF")
(setf *kikonss-anno-mi3-string* ":OFF")
(setf *kikonss-anno-mi4-string* ":OFF")
(setf *kikonss-anno-mi5-string* ":ON")
(setf *kikonss-anno-mi6-string* ":ON")
(setf *kikonss-anno-mi7-string* ":ON")
;;--------------------------------------------------------------------------*
;;     Dialog                                                               *
;;--------------------------------------------------------------------------*
(sd-defdialog 'kikonss-anno-save-dialog
	:dialog-title "Einzelblatt speichern"
	:toolbox-button t
:variables
  '(
	(VERZ		:value-type :directory
				:promt-text "Verzeichnis zum Speichern angeben"
				:title "Verzeichnis"
				:initial-value *kikonss-anno-startverz-string*
	)
	(BNAME		:value-type :string
				:prompt-text "Name fuer die Blaetter angeben"
				:title "Blattname"
				:initial-value *kikonss-anno-blattname-string*
    )
	(POSTFIX	:value-type :boolean
				:prompt-text "Postfix einschalten"
				:initial-value nil
				:title "Postfix"
				:after-input
					(sd-set-variable-status 'postname :enable postfix)
	)
	(POSTNAME	:value-type :string
				:prompt-text "Text nach der Blattnummer"
				:title "Postfix"
				:initial-enable nil
    )
	(STARTB 	:value-type :number
				:prompt-text "von Blatt"
				:title "Startblatt"
				:initial-value *kikonss-anno-startb-number*
	)
	(ENDB 		:value-type :number
				:prompt-text "bis Blatt"
				:title "Endblatt"
				:initial-value (length (sd-am-inq-all-sheets))
	)
	("-")
	(SANZAHL	:value-type :boolean
				:prompt-text "Anzahl der Stellen einschalten"
				:initial-value nil
				:title "Einschalten"
				:after-input
					(sd-set-variable-status 'scalstellen :enable sanzahl)
	)
	(SCALSTELLEN	:value-type	:scale
					:title "Anzahl der Stellen"
					:initial-enable nil
					:minimum	2
					:maximum	6
					:initial-value *kikonss-anno-stellen-number*
	)
	("Speicherformat")
	(SPDXF	:value-type :grouped-boolean
				:prompt-text "DXF"
				:initial-value t
				:title "DXF"
	)
	(SPDWG	:value-type :grouped-boolean
				:prompt-text "DWG"
				:initial-value nil
				:title "DWG"
	)
	(SPIGES	:value-type :grouped-boolean
				:prompt-text "IGES"
				:initial-value nil
				:title "IGES"
	)
	(SPMI	:value-type :grouped-boolean
				:prompt-text "MI"
				:initial-value nil
				:title "MI"
	)
	(DXF-PARAMETER 	:expand-shrink (DXF1 DXF2 DXF3 DXF4 DXF5 DXF6 DXF7))
	(DXF1	:value-type :grouped-boolean
				:prompt-text "Info Text"
				:initial-value *kikonss-anno-dxf-infotxt-string*
				:title "o. Infotext"
				:after-input (if (equal *kikonss-anno-dxf1-string* ":ON")
								(setf *kikonss-anno-dxf1-string* ":OFF")
								(setf *kikonss-anno-dxf1-string* ":ON"))
	)
	(DXF2	:value-type :grouped-boolean
				:prompt-text "Verschmelzen"
				:initial-value *kikonss-anno-dxf-elemnte-verschmelzen-string*
				:title "Verschmelzen"
				:after-input (if (equal *kikonss-anno-dxf2-string* ":ON")
								(setf *kikonss-anno-dxf2-string* ":OFF")
								(setf *kikonss-anno-dxf2-string* ":ON"))
	)
	(DXF3	:value-type :grouped-boolean
				:prompt-text "Text als Geo"
				:initial-value *kikonss-anno-dxf-txt2geo-string*
				:title "TEXT->Geo"
				:after-input (if (equal *kikonss-anno-dxf3-string* ":ON")
								(setf *kikonss-anno-dxf3-string* ":OFF")
								(setf *kikonss-anno-dxf3-string* ":ON"))
	)
	(DXF4	:value-type :grouped-boolean
				:prompt-text "Bilder loeschen"
				:initial-value *kikonss-anno-dxf-bilder-loeschen-string*
				:title "Bilder loesch."
				:after-input (if (equal *kikonss-anno-dxf4-string* ":ON")
								(setf *kikonss-anno-dxf4-string* ":OFF")
								(setf *kikonss-anno-dxf4-string* ":ON"))
	)
	(DXF5	:value-type :grouped-boolean
				:prompt-text "Geloeschte Elemente nicht uebersetzen"
				:initial-value *kikonss-anno-dxf-ohne-geloeschte-string*
				:title "o. Geloeschte"
				:after-input (if (equal *kikonss-anno-dxf5-string* ":ON")
								(setf *kikonss-anno-dxf5-string* ":OFF")
								(setf *kikonss-anno-dxf5-string* ":ON"))
	)
	(DXF6	:value-type :grouped-boolean
				:prompt-text "Unsichtbare Elemente vorher loeschen"
				:initial-value *kikonss-anno-dxf-ohne-unsichtbare-string*
				:title "o. Unsichtb."
				:after-input (if (equal *kikonss-anno-dxf6-string* ":ON")
								(setf *kikonss-anno-dxf6-string* ":OFF")
								(setf *kikonss-anno-dxf6-string* ":ON"))
	)
	(DXF7	:value-type :grouped-boolean
				:prompt-text "Warnungen anzeigen"
				:initial-value *kikonss-anno-dxf-warnungen-string*
				:title "Warnungen"
				:after-input (if (equal *kikonss-anno-dxf7-string* ":ON")
								(setf *kikonss-anno-dxf7-string* ":OFF")
								(setf *kikonss-anno-dxf7-string* ":ON"))
	)
	(DWG-PARAMETER 	:expand-shrink (DWG1 DWG2 DWG3 DWG4 DWG5 DWG6 DWG7))
	(DWG1	:value-type :grouped-boolean
				:prompt-text "Info Text"
				:initial-value *kikonss-anno-dwg-infotxt-string*
				:title "Info Text"
				:after-input (if (equal *kikonss-anno-dwg1-string* ":ON")
								(setf *kikonss-anno-dwg1-string* ":OFF")
								(setf *kikonss-anno-dwg1-string* ":ON"))
	)
	(DWG2	:value-type :grouped-boolean
				:prompt-text "Verschmelzen"
				:initial-value *kikonss-anno-dwg-elemnte-verschmelzen-string*
				:title "Verschmelzen"
				:after-input (if (equal *kikonss-anno-dwg2-string* ":ON")
								(setf *kikonss-anno-dwg2-string* ":OFF")
								(setf *kikonss-anno-dwg2-string* ":ON"))
	)
	(DWG3	:value-type :grouped-boolean
				:prompt-text "Text als Geo"
				:initial-value *kikonss-anno-dwg-txt2geo-string*
				:title "TEXT->Geo"
				:after-input (if (equal *kikonss-anno-dwg3-string* ":ON")
								(setf *kikonss-anno-dwg3-string* ":OFF")
								(setf *kikonss-anno-dwg3-string* ":ON"))
	)
	(DWG4	:value-type :grouped-boolean
				:prompt-text "Bilder loeschen"
				:initial-value *kikonss-anno-dwg-bilder-loeschen-string*
				:title "Bilder loesch."
				:after-input (if (equal *kikonss-anno-dwg4-string* ":ON")
								(setf *kikonss-anno-dwg4-string* ":OFF")
								(setf *kikonss-anno-dwg4-string* ":ON"))
	)
	(DWG5	:value-type :grouped-boolean
				:prompt-text "Geloeschte Elemente nicht uebersetzen"
				:initial-value *kikonss-anno-dwg-ohne-geloeschte-string*
				:title "o. Geloeschte"
				:after-input (if (equal *kikonss-anno-dwg5-string* ":ON")
								(setf *kikonss-anno-dwg5-string* ":OFF")
								(setf *kikonss-anno-dwg5-string* ":ON"))
	)
	(DWG6	:value-type :grouped-boolean
				:prompt-text "Unsichtbare Elemente vorher loeschen"
				:initial-value *kikonss-anno-dwg-ohne-unsichtbare-string*
				:title "o. Unsichtb."
				:after-input (if (equal *kikonss-anno-dwg6-string* ":ON")
								(setf *kikonss-anno-dwg6-string* ":OFF")
								(setf *kikonss-anno-dwg6-string* ":ON"))
	)
	(DWG7	:value-type :grouped-boolean
				:prompt-text "Warnungen anzeigen"
				:initial-value *kikonss-anno-dwg-warnungen-string*
				:title "Warnungen"
				:after-input (if (equal *kikonss-anno-dwg7-string* ":ON")
								(setf *kikonss-anno-dwg7-string* ":OFF")
								(setf *kikonss-anno-dwg7-string* ":ON"))
	)
	(IGES-PARAMETER 	:expand-shrink (IGES1 IGES2 IGES3 IGES4 IGES5 IGES6 IGES7))
	(IGES1	:value-type :grouped-boolean
				:prompt-text "Info Text"
				:initial-value *kikonss-anno-iges-infotxt-string*
				:title "Info Text"
				:after-input (if (equal *kikonss-anno-iges1-string* ":ON")
								(setf *kikonss-anno-iges1-string* ":OFF")
								(setf *kikonss-anno-iges1-string* ":ON"))
	)
	(IGES2	:value-type :grouped-boolean
				:prompt-text "Verschmelzen"
				:initial-value *kikonss-anno-iges-elemnte-verschmelzen-string*
				:title "Verschmelzen"
				:after-input (if (equal *kikonss-anno-iges2-string* ":ON")
								(setf *kikonss-anno-iges2-string* ":OFF")
								(setf *kikonss-anno-iges2-string* ":ON"))
	)
	(IGES3	:value-type :grouped-boolean
				:prompt-text "Text als Geo"
				:initial-value *kikonss-anno-iges-txt2geo-string*
				:title "TEXT->Geo"
				:after-input (if (equal *kikonss-anno-iges3-string* ":ON")
								(setf *kikonss-anno-iges3-string* ":OFF")
								(setf *kikonss-anno-iges3-string* ":ON"))
	)
	(IGES4	:value-type :grouped-boolean
				:prompt-text "Bilder loeschen"
				:initial-value *kikonss-anno-iges-bilder-loeschen-string*
				:title "Bilder loesch."
				:after-input (if (equal *kikonss-anno-iges4-string* ":ON")
								(setf *kikonss-anno-iges4-string* ":OFF")
								(setf *kikonss-anno-iges4-string* ":ON"))
	)
	(IGES5	:value-type :grouped-boolean
				:prompt-text "Geloeschte Elemente nicht uebersetzen"
				:initial-value *kikonss-anno-iges-ohne-geloeschte-string*
				:title "o. Geloeschte"
				:after-input (if (equal *kikonss-anno-iges5-string* ":ON")
								(setf *kikonss-anno-iges5-string* ":OFF")
								(setf *kikonss-anno-iges5-string* ":ON"))
	)
	(IGES6	:value-type :grouped-boolean
				:prompt-text "Unsichtbare Elemente vorher loeschen"
				:initial-value *kikonss-anno-iges-ohne-unsichtbare-string*
				:title "o. Unsichtb."
				:after-input (if (equal *kikonss-anno-iges6-string* ":ON")
								(setf *kikonss-anno-iges6-string* ":OFF")
								(setf *kikonss-anno-iges6-string* ":ON"))
	)
	(IGES7	:value-type :grouped-boolean
				:prompt-text "Warnungen anzeigen"
				:initial-value *kikonss-anno-iges-warnungen-string*
				:title "Warnungen"
				:after-input (if (equal *kikonss-anno-iges7-string* ":ON")
								(setf *kikonss-anno-iges7-string* ":OFF")
								(setf *kikonss-anno-iges7-string* ":ON"))
	)
	(MI-PARAMETER 	:expand-shrink (MI1 MI2 MI3 MI4 MI5 MI6 MI7))
	(MI1	:value-type :grouped-boolean
				:prompt-text "Info Text"
				:initial-value *kikonss-anno-mi-infotxt-string*
				:title "Info Text"
				:after-input (if (equal *kikonss-anno-mi1-string* ":ON")
								(setf *kikonss-anno-mi1-string* ":OFF")
								(setf *kikonss-anno-mi1-string* ":ON"))
	)
	(MI2	:value-type :grouped-boolean
				:prompt-text "Verschmelzen"
				:initial-value *kikonss-anno-mi-elemnte-verschmelzen-string*
				:title "Verschmelzen"
				:after-input (if (equal *kikonss-anno-mi2-string* ":ON")
								(setf *kikonss-anno-mi2-string* ":OFF")
								(setf *kikonss-anno-mi2-string* ":ON"))
	)
	(MI3	:value-type :grouped-boolean
				:prompt-text "Text als Geo"
				:initial-value *kikonss-anno-mi-txt2geo-string*
				:title "TEXT->Geo"
				:after-input (if (equal *kikonss-anno-mi3-string* ":ON")
								(setf *kikonss-anno-mi3-string* ":OFF")
								(setf *kikonss-anno-mi3-string* ":ON"))
	)
	(MI4	:value-type :grouped-boolean
				:prompt-text "Bilder loeschen"
				:initial-value *kikonss-anno-mi-bilder-loeschen-string*
				:title "Bilder loesch."
				:after-input (if (equal *kikonss-anno-mi4-string* ":ON")
								(setf *kikonss-anno-mi4-string* ":OFF")
								(setf *kikonss-anno-mi4-string* ":ON"))
	)
	(MI5	:value-type :grouped-boolean
				:prompt-text "Geloeschte Elemente nicht uebersetzen"
				:initial-value *kikonss-anno-mi-ohne-geloeschte-string*
				:title "o. Geloeschte"
				:after-input (if (equal *kikonss-anno-mi5-string* ":ON")
								(setf *kikonss-anno-mi5-string* ":OFF")
								(setf *kikonss-anno-mi5-string* ":ON"))
	)
	(MI6	:value-type :grouped-boolean
				:prompt-text "Unsichtbare Elemente vorher loeschen"
				:initial-value *kikonss-anno-mi-ohne-unsichtbare-string*
				:title "o. Unsichtb."
				:after-input (if (equal *kikonss-anno-mi6-string* ":ON")
								(setf *kikonss-anno-mi6-string* ":OFF")
								(setf *kikonss-anno-mi6-string* ":ON"))
	)
	(MI7	:value-type :grouped-boolean
				:prompt-text "Warnungen anzeigen"
				:initial-value *kikonss-anno-mi-warnungen-string*
				:title "Warnungen"
				:after-input (if (equal *kikonss-anno-mi7-string* ":ON")
								(setf *kikonss-anno-mi7-string* ":OFF")
								(setf *kikonss-anno-mi7-string* ":ON"))
	)
	);;variables	
:local-functions
  '(
	(einzelb_speichern ()
		
		(dolist (a-sheet (sd-am-inq-all-sheets))
		(let ((sheet-name (sd-am-sheet-struct-name (sd-am-inq-sheet a-sheet))))
		(when (and (>= (read-from-string sheet-name) startb) (<= (read-from-string sheet-name) endb))
		(progn
		(if POSTFIX
			(setf sheet-name-new (Format nil "~A~A" sheet-name postname))
			(setf sheet-name-new sheet-name))
		(when SANZAHL
			(progn
				(setf istlaenge (length sheet-name))
			(when (= 5 (- SCALSTELLEN istlaenge))
				(setf sheet-name-new (format nil "00000~A" sheet-name-new)))
			(when (= 4 (- SCALSTELLEN istlaenge))
				(setf sheet-name-new (format nil "0000~A" sheet-name-new)))
			(when (= 3 (- SCALSTELLEN istlaenge))
				(setf sheet-name-new (format nil "000~A" sheet-name-new)))
			(when (= 2 (- SCALSTELLEN istlaenge))
				(setf sheet-name-new (format nil "00~A" sheet-name-new)))
			(when (= 1 (- SCALSTELLEN istlaenge))
				(setf sheet-name-new (format nil "0~A" sheet-name-new)))
			);;progn
		);;when		
			
			(when SPDXF
				(when (not (sd-directory-p (format nil "~A/DXF" verz)))
					(sd-call-cmds(sd-make-directory (format nil "~A/DXF" verz)))
				);;when
				(setf dxfstring (format nil "~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A"	
							":SHEET" a-sheet
							":NO_SYSTEM_INFOS" 			*kikonss-anno-dxf1-string*
							":MERGE_ALL_ELEMENTS"		*kikonss-anno-dxf2-string*
							":TEXT_TO_GEOMETRY"			*kikonss-anno-dxf3-string*
							":REMOVE_PICTURES"			*kikonss-anno-dxf4-string*
							":CLEANUP_DELETED_ELEMENTS" *kikonss-anno-dxf5-string*
							":REMOVE_INVISIBLE_ELMENTS" *kikonss-anno-dxf6-string*
							":ENABLE_WARNING" 			*kikonss-anno-dxf7-string*
				))
				(sd-call-cmds (AM_SAVE_SHEET_DXF dxfstring :FILENAME (format nil "~A/DXF/~A~A" VERZ BNAME sheet-name-new)))
				);;when

			(when SPDWG
				(when (not (sd-directory-p (format nil "~A/DWG" verz)))
					(sd-call-cmds(sd-make-directory (format nil "~A/DWG" verz)))
				);;when
				(setf dwgstring (format nil "~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A"	
							":SHEET" a-sheet
							":NO_SYSTEM_INFOS" 			*kikonss-anno-dwg1-string*
							":MERGE_ALL_ELEMENTS"		*kikonss-anno-dwg2-string*
							":TEXT_TO_GEOMETRY"			*kikonss-anno-dwg3-string*
							":REMOVE_PICTURES"			*kikonss-anno-dwg4-string*
							":CLEANUP_DELETED_ELEMENTS" *kikonss-anno-dwg5-string*
							":REMOVE_INVISIBLE_ELMENTS" *kikonss-anno-dwg6-string*
							":ENABLE_WARNING" 			*kikonss-anno-dwg7-string*
				))
				(sd-call-cmds (AM_SAVE_SHEET_DWG dwgstring :FILENAME (format nil "~A/DWG/~A~A" VERZ BNAME sheet-name-new)))
				);;when

			(when SPIGES
				(when (not (sd-directory-p (format nil "~A/IGES" verz)))
					(sd-call-cmds(sd-make-directory (format nil "~A/IGES" verz)))
				);;when
				(setf igesstring (format nil "~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A"	
							":SHEET" a-sheet
							":NO_SYSTEM_INFOS" 			*kikonss-anno-iges1-string*
							":MERGE_ALL_ELEMENTS"		*kikonss-anno-iges2-string*
							":TEXT_TO_GEOMETRY"			*kikonss-anno-iges3-string*
							":REMOVE_PICTURES"			*kikonss-anno-iges4-string*
							":CLEANUP_DELETED_ELEMENTS" *kikonss-anno-iges5-string*
							":REMOVE_INVISIBLE_ELMENTS" *kikonss-anno-iges6-string*
							":ENABLE_WARNING" 			*kikonss-anno-iges7-string*
				))
				(sd-call-cmds (AM_SAVE_SHEET_IGES igesstring :FILENAME (format nil "~A/IGES/~A~A" VERZ BNAME sheet-name-new)))
				);;when

			(when SPMI
				(when (not (sd-directory-p (format nil "~A/MI" verz)))
					(sd-call-cmds(sd-make-directory (format nil "~A/MI" verz)))
				);;when
				(setf mistring (format nil "~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A ~A"	
							":SHEET" a-sheet
							":NO_SYSTEM_INFOS" 			*kikonss-anno-mi1-string*
							":MERGE_ALL_ELEMENTS"		*kikonss-anno-mi2-string*
							":TEXT_TO_GEOMETRY"			*kikonss-anno-mi3-string*
							":REMOVE_PICTURES"			*kikonss-anno-mi4-string*
							":CLEANUP_DELETED_ELEMENTS" *kikonss-anno-mi5-string*
							":REMOVE_INVISIBLE_ELMENTS" *kikonss-anno-mi6-string*
							":ENABLE_WARNING" 			*kikonss-anno-mi7-string*
				))
				(sd-call-cmds (AM_SAVE_SHEET_MI mistring :FILENAME (format nil "~A/MI/~A~A" VERZ BNAME sheet-name-new)))
				);;when
		);;progn
		);;when
		));;dolist
	);;
	);;local-funtions
  :ok-action '(einzelb_speichern)   
)