;*********************************************************************************************
; Dateiname 	: 	SD_DeleteFaceColor.lsp
; Autor         : 	
; Erstellt      :	
; geändert    	:
;*********************************************************************************************
; Beschreibung:		- 	löscht alle Flächenfarben des gewählten Teils
;*********************************************************************************************
; Änderungen
; ä Ì	   Ä Ø    ö Î    Ö Ú    ü Ï    Ü Û    ß Þ    ° ³	
;*********************************************************************************************
;;(in-package :gb-custom)
(use-package :oli)

(sd-defdialog 'SD_DeleteFaceColor
:dialog-control :sequential
:dialog-type :interrupt
:toolbox-button t
:variables '(
	(prt	:value-type	:part
		:initial-value :current-part
		:multiple-items t
		:prompt-text (sd-multi-lang-string "Specify part(s)" :german "FlÌchenfarben lÎschen  -  Teil angeben")
		:modifies nil
	); end prt
	
	
); end variables
:ok-action '(DelFaceColor)

		
:local-functions '(
	(DelFaceColor ()
		(face_prop :the_face (sd-call-cmds (get_selection 
							  :focus_type *sd-face-seltype*                             				
                              :select 
                              :selected_part prt
                              :all_3d))
							  :color :OFF
    );; face_prop
	);; DelFaceColor

) ;; local-functions

) ;; sd-defdialog