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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ä Ì	Ä Ø		ö Î		Ö Ú		ü Ï		Ü Û		ß Þ
; 65280 Grün ; 16776960 Gelb ; 16777215 Weiss ; 16711680 Rot ; 255 Blau
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;----------------------------------------------------------------------------------------------*
;; Vorgaben setzen:						;; Moeglicher Vorgabewerte:
;;----------------------------------------------------------------------------------------------*
(setf bg_sketch_SF "SF-Text")
(setf bg_pos_bg_bez1 -100,42.33)
(setf bg_pos_bg_bez1_en -100,35.33)
(setf bg_pos_bg_bez2 -144,25.5)
(setf bg_pos_bg_bez2_en -99,25.5)
(setf bg_pos_bg_ename -144,17)
(setf bg_pos_bg_edatum -144,9)
(setf bg_pos_werskt -27.5,44)
(setf bg_pos_bg_haerte -27.5,34.66)
(setf bg_pos_bg_art -109,1)
(setf bg_pos_bg_masch -66.5,1)
(setf bg_pos_bg_pfad -2,-8.5)
(setf bg_pos_bg_TNR -67.5,9)
(setf bg_pos_bg_abmass -41.25,25.5)
(setf bg_pos_bg_gewicht -13.75,25.5)
(setf bg_pos_bg_pruefer -144,1)
(setf bg_pos_bg_version -6,19)
(setf bg_pos_bg_dok_art -162.5,20.5)
(setf bg_pos_bg_dok_art_en -162.5,17)

(setf bg_bez1 "")
(setf bg_bez1_en " ")
(setf bg_bez2 " ")
(setf bg_bez2_en " ")
(setf bg_ename "Test 1")
(setf bg_werkst "1.0050 DIN ISO 10056")
(setf bg_haerte " ")
(setf bg_art "")
(setf bg_masch "")
(setf bg_pfad "")
(setf bg_gespu "Gespeichert unter: ")
(setf bg_dok_art_en "Finished-part drawing")








;;----------------------------------------------------------------------------------------------*

(sd-defdialog 'am_schriftfeld
  :dialog-title "Schriftfeld"
  :toolbox-button t
  :after-initialization '(DateTime) ;;neu
  :variables
  '(
		(bg_ppnt_SF	:value-type :docupntcnp
				:promt-text "Beszugspunkt fÏr Schriftfeld angeben"
				:title "Position"
		)
  
		(title_0 :title "Schriftfeldangaben")
		
		(bg_txt_bez1	:value-type :string
						:title "Bezeichnung"
						:initial-value bg_bez1
						:size :half
		)
		(bg_txt_bez2	:value-type :string
						:title "Zusatzbez."
						:initial-value bg_bez2
						:size :half
		)
		(bg_txt_ename 	:title "Ersteller"
						:range (("Test 1")("Test 2"))	
						:size :half
						:initial-value bg_ename
		)
		(bg_txt_werkst	:title "Werkstoff"
						:range ((" ")("1.0037 DIN ISO 10056" :label "1.0037")("1.0050 DIN ISO 10056" :label "1.0050")("1.2379")("1.2436")("1.7225"))
						:initial-value bg_werkst
						:size :half
		)
		(bg_txt_haerte	:value-type :string
						:title "HÌrteangabe"
						:initial-value bg_haerte
						:size :half
		)
		(bg_txt_art		:value-type :string
						:title "Verwendung"
						:initial-value bg_art
						:persistent-data-storage :session
						:size :half
		)
		(bg_txt_masch	:value-type :string
						:title "Zuordnung"
						:initial-value bg_masch
						:persistent-data-storage :session
						:size :half
		)
		(bg_txt_pfad	:value-type :string
						:title "Speicherpfad"
						:initial-value bg_pfad
						:persistent-data-storage :session
						:size :half
		)
		(bg_dok_art		:title "Dok.-Art"
						:range (("Fertigteilzeichnung" :label "Fertigteil")("Baugruppenzeichnung" :label "Baugruppe")("StÏckliste"))
						:initial-value "Fertigteilzeichnung"
						:size :half
						:after-input
						(progn
							(if (equal bg_dok_art "Baugruppenzeichnung")(setf bg_dok_art_en "Assemblydrawing"))
							(if (equal bg_dok_art "StÏckliste") (setf bg_dok_art_en "Part list"))
						)
		)
		(weitere :title "weitere Angaben" :expand-shrink (bg_TNR bg_version bg_abmass bg_gewicht bg_pruefer bg_txt_bez1_en bg_txt_bez2_en))

		(bg_TNR			:value-type :string
						:title "Teilenummer"
						:initial-value " "
						:size :half
		)
		(bg_version		:value-type :string
						:title "Version"
						:initial-value "0"
						:size :half
		)
		(bg_abmass		:value-type :string
						:title "AbmaÞ"
						:initial-value " "
						:size :half
		)
		(bg_gewicht		:value-type :string
						:title "Gewicht"
						:initial-value " "
						:size :half
		)
		(bg_txt_bez1_en	:value-type :string
						:title "Bezeichn. EN"
						:initial-value bg_bez1_en
						:size :half
		)
		(bg_txt_bez2_en	:value-type :string
						:title "Zusatzbez. EN"
						:initial-value bg_bez2_en
						:size :half
		)
		(bg_pruefer		:title "PrÏfer"
						:range ((" ")("Test1")("Test2"))
						:initial-value " "
						:size :half
		)
	) ;;closing '(
  :local-functions
  '(
  
  ;;neu ab hier
	(DateTime ()
		(progn
		
			(multiple-value-bind (second minute hour date month year day daylight-p zone)
				(get-decoded-time)
					(progn
						(setf time (format nil "~A:~A:~A" hour minute second))
						(setf bg_edatum (format nil "~A.~A.~A" date month year ))
				);;progn
			);;multiple-value-bind
		)
	);;neu bis hier
  
	(ok_info ()
	
		(progn
			(setf csn (sd-am-inq-curr-sheet-name))

			;; Vorhandende skizze sketch1 falls vorhanden suchen und löschen
			(setf alle_skizzen nil)
			(setf alle_skizzen (sd-am-inq-all-sketches (sd-am-inq-curr-sheet)))
			(dolist (skizzen alle_skizzen)
			  (when (sd-string-match-pattern-p bg_sketch_SF (sd-am-inq-name skizzen))
				(AM_SKETCH_DELETE :sketch (format nil "/~a/~a" csn bg_sketch_SF) :YES)
			  );;wehn
			);;dolist
			;; Skizze sketch1 erstellen
			(AM_SKETCH_CREATE 	:sketch_name bg_sketch_SF 
								:owner :current_sheet
								:ref_point bg_ppnt_SF
			);;am_sketch
		);;progn
		

 
		(progn
		
			(setf docu::*docu-hide-wrong-owner-warning* t)
			
			(AM_CREATE_TEXT (format nil "~a" bg_txt_bez1)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 3.5
							:color 16776960 :done
							:ratio 0.8
							:adjust 2
							(gpnt2d (+(gpnt2d_x bg_pos_bg_bez1) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_bez1) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_txt_bez2)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							(gpnt2d (+(gpnt2d_x bg_pos_bg_bez2) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_bez2) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_txt_ename)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							(gpnt2d (+(gpnt2d_x bg_pos_bg_ename) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_ename) (gpnt2d_y bg_ppnt_SF)))							
			)
			(AM_CREATE_TEXT (format nil "~a" bg_edatum)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							(gpnt2d (+(gpnt2d_x bg_pos_bg_edatum) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_edatum) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_txt_werkst)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							:adjust 2
							(gpnt2d (+(gpnt2d_x bg_pos_werskt) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_werskt) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_txt_haerte)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							:adjust 2
							(gpnt2d (+(gpnt2d_x bg_pos_bg_haerte) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_haerte) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_txt_art)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							(gpnt2d (+(gpnt2d_x bg_pos_bg_art) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_art) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_txt_masch)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							(gpnt2d (+(gpnt2d_x bg_pos_bg_masch) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_masch) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a~a" bg_gespu bg_txt_pfad)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2
							:color 16711680 :done
							:ratio 0.8
							:adjust 3
							(gpnt2d (+(gpnt2d_x bg_pos_bg_pfad) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_pfad) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_dok_art)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2
							:color 16776960 :done
							:ratio 0.8
							:adjust 2
							(gpnt2d (+(gpnt2d_x bg_pos_bg_dok_art) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_dok_art) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_dok_art_en)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2
							:color 16711680 :done
							:ratio 0.8
							:adjust 2
							(gpnt2d (+(gpnt2d_x bg_pos_bg_dok_art_en) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_dok_art_en) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_TNR)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							:adjust 2
							(gpnt2d (+(gpnt2d_x bg_pos_bg_TNR) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_TNR) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_version)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							:adjust 2
							(gpnt2d (+(gpnt2d_x bg_pos_bg_version) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_version) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_abmass)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							:adjust 2
							(gpnt2d (+(gpnt2d_x bg_pos_bg_abmass) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_abmass) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_gewicht)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							:adjust 2
							(gpnt2d (+(gpnt2d_x bg_pos_bg_gewicht) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_gewicht) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_txt_bez1_en)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 3.5
							:color 16776960 :done
							:ratio 0.8
							:adjust 2
							(gpnt2d (+(gpnt2d_x bg_pos_bg_bez1_en) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_bez1_en) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_txt_bez2_en)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							(gpnt2d (+(gpnt2d_x bg_pos_bg_bez2_en) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_bez2_en) (gpnt2d_y bg_ppnt_SF)))
			)
			(AM_CREATE_TEXT (format nil "~a" bg_pruefer)
							:owner (format nil "/~a/~a" csn bg_sketch_SF)
							:size 2.5
							:color 16776960 :done
							:ratio 0.8
							(gpnt2d (+(gpnt2d_x bg_pos_bg_pruefer) (gpnt2d_x bg_ppnt_SF)) (+(gpnt2d_y bg_pos_bg_pruefer) (gpnt2d_y bg_ppnt_SF)))
			)
			
			(setf docu::*docu-hide-wrong-owner-warning* nil)
			
		)
	)
   )
  :ok-action
  '(ok_info)
  :cancel-action
  '()
  :cleanup-action
  '()
)