;;--------------------------------------------------------------------------*
;;  Dateiname: SD_Trans.lsp
;;  Version  : 1.0
;;  Datum    : 11.01.2016
;;  Author   : BFE
;;--------------------------------------------------------------------------*
;;  Tool zum schnellen Setzen einer bestimmten Transparenz
;;--------------------------------------------------------------------------*
;;Versionierung
;;  1.0 erste Version
;;--------------------------------------------------------------------------*


(in-package  :BFE-TOOLS)
(use-package :oli)

;;--------------------------------------------------------------------------*
(sd-defdialog 'Transparenz-setzen
:dialog-title "Transparenz"
:toolbox-button nil
:variables
  '(
		(Basis
			:title "Basis"
			:toggle-type :wide-toggle   
			:value-type :boolean
		)
 		(Exemplar
			:title "Exemplar"
			:toggle-type :wide-toggle   
			:value-type :boolean
		)

  	(teile
		   :value-type :part
		   :title "Part(s)"
           :prompt-text "Teil(e) auswaehlen"
		   :initial-value nil
		   :multiple-items t
		   :modifies nil
     :after-input
		(when teile 
		(progn
		(when Basis
		(dolist (teil-einzeln teile)
			(progn (sd-call-cmds (set_part_base_transparency  :parts teil-einzeln :transp transparenz))))
		)
		(when Exemplar
		(dolist (teil-einzeln teile)
			(progn (sd-call-cmds (set_part_inst_transparency  :parts teil-einzeln :transp transparenz))))
		)

		(SD-SET-VARIABLE-STATUS 'teile :value nil)
		)
		)
	);;end variable teil1
	(transparenz :value-type :number
			:prompt-text "Wert fuer Transparenz angeben"
            :title "Transparenz"
		    :proposals (0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0)
			:auto-add-proposal t
			:initial-value 0.5
	)
)
:mutual-exclusion 
		'((Basis Exemplar))

:local-functions
'()
:ok-action
'()
)