(in-package :custom)

(use-package :OLI)


(sd-defdialog 'linien_einst
    :dialog-title "Linienfarben"
	:toolbox-button t
    :variables
    '(
	  (Kunde 
		:range (
				("XXX" :label "XXX")
				("YYY" :label "YYY")
				)
		:initial-value "YYY"
		:prompt-text "Linienstil fÏr Zeichnung angeben."
		:title "Linienstil"
	  ) ;;Kunde
	 ) ;;variables
	:local-functions
	'(
		(Kunde_action ()
	  (cond
;;1.0--------------------------------------------------------------------------------------------------------XXX-Anfang
				((sd-string= Kunde "XXX")
				 (progn
						(sd-call-cmds (modify_default_setting						;; Bezug
																					:path "Annotation/General/LineStyle/Color"
																					:parent_style :reference
																					:a_color (sd-rgb-to-color 1,1,1);WHITE
																					:done))

						(sd-call-cmds (modify_default_setting						;; Hilfslinien
																					:path "Annotation/General/LineStyle/Color"
																					:parent_style :construction
																					:a_color (sd-rgb-to-color 1,0,0);RED
																					:done))	
					))
;;1.0--------------------------------------------------------------------------------------------------------XXX-Ende
;;2.0--------------------------------------------------------------------------------------------------------YYY-Anfang
			((sd-string= Kunde "YYY")
				 (progn
						(sd-call-cmds (modify_default_setting						;; Bezug
																					:path "Annotation/General/LineStyle/Color"
																					:parent_style :reference
																					:a_color (sd-rgb-to-color 1,1,0);YELLOW
																					:done))
						(sd-call-cmds (modify_default_setting						;; Hilfslinien
																					:path "Annotation/General/LineStyle/Color"
																					:parent_style :construction
																					:a_color (sd-rgb-to-color 1,0,0);RED
																					:done))
					))
;;2.0--------------------------------------------------------------------------------------------------------YYY-Ende
			);;cond
		)
	 ) ;;local-functions
	:ok-action '(Kunde_action)
) ;;sd-defdialog