;;--------------------------------------------------------------------------------*
;; Modulbeschreibung:
;; Weist Blechen eine Stärke zu
;;--------------------------------------------------------------------------------*
;;  Dateiname: sheet_part_select.lsp
;;  Version  : 1.0
;;  Datum    : 20.07.2023
;;  Author   : MiBr
;;  Reference: 
;;--------------------------------------------------------------------------------*

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

(sd-defdialog 'sheet_part_select
:dialog-title (sd-multi-lang-string "sel thickness part" :german "Blechstärke zuweisen")
:toolbox-button t
:variables
'(
(sel_thick 		:value-type :positive-number
				:title (sd-multi-lang-string "thickness part" :german "Blechstärke")
				:initial-value 2			 
				:proposals (1 2 3 5 6 8 10 12 15 20)
				:auto-add-proposals t
				:prompt-text (sd-multi-lang-string "thickness part" :german "Blechstärke")
)
(sel_parts		:value-type :part
				:title (sd-multi-lang-string "Part" :german "Bauteil")
				:multiple-items t
				:prompt-text (sd-multi-lang-string "Pick Part" :german "Wähle Bauteil")
)
("-")
(take_it		:title (sd-multi-lang-string "take" :german "Übernehmen")
				:push-action (do_it)
				:toggle-type :wide-toggle)
);;variables
:local-functions
'(
(do_it ()
	(dolist (part sel_parts)
		(sd-call-cmds 	(sha_basic_attach_material	:sheet_part part :yes
													:material "Standard" :yes
													:thickness sel_thick :yes
						)
		)
	)
	(sd-set-variable-status 'sel_parts :value nil)
) ;end do_it
) ;end local-functions
) ;; sd-defdialog