;*********************************************************************************************
; Dateiname 		: 	SD_Bearbeitungsnotiz.lsp
; Autor         : 	Stephan Wörz
; Erstellt      :		28.04.2005
; geändert    	:
;*********************************************************************************************
; Beschreibung:		- 	Anfügen von vordefinierten und Benutzerdefinierten Notizen an Flächen, 
;											Kanten und Punkte
;									-	Zweisen von vordefinierten und Benutzerdefinierten Flächenfarben
;
;*********************************************************************************************
; Änderungen
; ä Ì	   Ä Ø    ö Î    Ö Ú    ü Ï    Ü Û    ß Þ    ° ³	
;*********************************************************************************************

(use-package :oli)
(use-PACKAGE :MEI)

(in-package :teo) 

(sd-defdialog 'SD_Bearbeitungsnotiz			;muss dem Dateinamen entsprechen
:dialog-title "BAUTEILKENNZEICHNUNG" 
:toolbox-button t
:variables 
   '(  

;; ------Hauptvariable --> 1. Variable im Dialog (Je nachdem welcher Toggle gewählt ist----------------------------------------------------------------------------------------------------------------------------------------------    

		( Surface	 :selection (*sd-face-seltype*)    	;;jede Fläche             				
             :modifies :contents
             :multiple-items t
             :initial-visible t             
             :title "FLØCHE(N)"
             :prompt-text "FlÌche(n) wÌhlen"
             :after-input	(progn 
                            (FaceVariablesOn)                              				
;	                  				(SET_SHOW (SD-INQ-CURRENT-VP) :3DGEO_LABEL :ON)		;Beschriftung im aktuellen Fenster einschalten                            
	                  				(setf Element Surface)  
													); end progn	
        );end Surface
        

		( Element :selection (*sd-edge-3d-seltype*     		;;jede Kante
              				    *sd-vertex-3d-seltype*)  		;;jeder Eckpunkt                 	
             	:initial-visible nil
              :multiple-items t
              :title "ELEMENT(E)"
              :prompt-text "Element(e) wÌhlen"
              :after-input	(Progn                  				
;	              							(SET_SHOW (SD-INQ-CURRENT-VP) :3DGEO_LABEL :ON)		;Beschriftung im aktuellen Fenster einschalten							                  			
														); end progn	
        );end Element
 

		( TEIL	 :selection (*sd-part-seltype*)    	;;jedes Teil              				
              	 :modifies :contents
                 :initial-visible nil
                 :multiple-items t
                 :title "TEIL(E)"
                 :prompt-text "Teil(e) wÌhlen"
                 :after-input	(Progn                  				
;	                  						(SET_SHOW (SD-INQ-CURRENT-VP) :3DGEO_LABEL :ON)		;Beschriftung im aktuellen Fenster einschalten
									  						(setf Element Teil)
															); end progn	
    );end Teil
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
        
;; -------Toggles --> auswählen ---------------------------------------------------------------------------------------------------------------------------------------------    
        
	("-")

		(Nur_Face    	:value-type :grouped-boolean 
				:initial-value t
				:size :third								
				:title "FACE"
                  		:after-input 	(IF Nur_Face
                  								(progn
                                    (FaceVariablesOn)		
													          (setf Surface nil)																																					
			                  						(SET_SHOW (SD-INQ-CURRENT-VP) :3DGEO_LABEL :ON)		;Beschriftung im aktuellen Fenster einschalten             									                  			
												);end progn										
											);end if																															
																								
 		);end Nur_Face
		


		(Nur_Teil    	:value-type :grouped-boolean
				:size :third						
				:title "PART"
        :after-input	(if Nur_Teil
        								(progn
                                (PartVariablesOn)        																					
													(setf Teil nil)																														
			    								(SET_SHOW (SD-INQ-CURRENT-VP) :3DGEO_LABEL :ON)		;Beschriftung im aktuellen Fenster einschalten             									                  			
												);end progn												
  										);end if											
 		);end Nur_Teil
 													
											
		(Nur_Edge   	:value-type :grouped-boolean 
						:size :third								
						:title "EDGE"
            :after-input	(IF Nur_Edge
            								(progn 
            								  (EdgeVariablesOn)                                                  
															(setf Element nil)           
			        								(SET_SHOW (SD-INQ-CURRENT-VP) :3DGEO_LABEL :ON)		;Beschriftung im aktuellen Fenster einschalten             									                  			
														);end progn												
													);end if																															
																								
 		);end Nur_Edge
 		
;; ------3D Notiz bewegen ----------------------------------------------------------------------------------------------------------------------------------------------    
	  ("-")
		
		(Beweg
					:title "3D-Notiz bewegen"
			    :toggle-type :wide-toggle
			    :push-action	(progn
			        				      doc3d_change_refpos :anno 
			        				  );end progn
		);end Beweg    	 		

;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
		("-")
			
 		(Text
			    :title "TEXT"
			    :value-type :string    
					:initial-value "Text"
					:initial-enable t
          :initial-visible t					
  				:prompt-text "Eigenen Notiztext eingeben"
 					:after-input 	(progn	                    
	                    			(setq Note Text)
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))                 			
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus
		); end Text

;; ----------------------------------------------------------------------------------------------------------------------------------------------------    

			
   		 
  (FOSubtitle :title "Fertigung & OberflÌche" :initial-visible nil)	
		                 
		(FRAESEN
			        :title "F R Ø S E N"
			        :toggle-type :wide-toggle
			        :initial-enable  nil
			        :initial-visible nil      
				      :push-action 	(progn	                    
	                    			(setq Note "frÌsen")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus	                    			
		);;FRAESEN

		(GESAEGT
			        :title "G E S Ø G T"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil      
				      :push-action 	(progn	                    
	                    			(setq Note "gesÌgt")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus
	                    		
		);;GESAEGT
		

		(GELASERT
			        :title "G E L A S E R T"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil       
				      :push-action 	(progn	                    
	                    			(setq Note "gelasert")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus
	                    		
		);;GELASERT


		(WASSERSTRAHL
			        :title "W A S S E R S T R A H L"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil       
				      :push-action 	(progn	                    
	                    			(setq Note "Wasserstrahlgeschnitten")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus
	                    		
		);;WASSERSTRAHL


  (Area_1 :title "-" :initial-visible nil)		

	
		(Entgratet
			        :title "KANTEN ENTGRATET"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil       
				      :push-action 	(progn	                    
	                    			(setq Note "Kanten gebrochen")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus	                    		
		); end Entgratet 


		(Scharfkantig
			        :title "SCHARFKANTIG"
			        :toggle-type :wide-toggle
			        :initial-enable nil 
			        :initial-visible nil      
				      :push-action 	(progn	                    
	                    			(setq Note "Scharfkantig")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus	                    		
		); end Scharfkantig 	
	
		
		(Unbeschichtet
			        :title "UNBESCHICHTET"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil 
	    			  :push-action 	(progn	                    
	                    			(setq Note "unbeschichtet")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))	
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus  	                    			
		); end Unbeschichtet        


  (Area_2 :title "-" :initial-visible nil)


		(ROH
			        :title "  Roh"
			        :toggle-type :grouped-toggle
			        :size :third
			        :initial-enable nil
			        :initial-visible nil 
	    			  :push-action 	(progn	                    
	                    			(setq Note "unbearbeitet - Roh")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus                 			
		); end ROH       


		(Reserve_1
			        :title "Reserve"
			        :toggle-type :grouped-toggle
			        :size :third
			        :initial-enable nil
			        :initial-visible nil 
	    			  :push-action 	(progn	                    
	                    			(setq Note "Reserve")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus 	                    			
		); end Reserve_1       


		(Reserve_2
					:title "Reserve"
			        :toggle-type :grouped-toggle
			        :size :third
			        :initial-enable nil
			        :initial-visible nil 
	    			  :push-action 	(progn	                    
	                    			(setq Note "Reserve")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus 	                    			
		); end Reserve_2       


		(RA_08
					    :title "Ra 0,8"
			        :toggle-type :grouped-toggle
			        :size :third
			        :initial-enable nil
			        :initial-visible nil 
	    			  :push-action 	(progn	                    
	                    			(setq Note "Ra 0,8")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))	
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus 	         	                    			
		); end RA_08        


		(RA_32
			        :title "Ra 3,2"
			        :size :third
			        :toggle-type :grouped-toggle
			        :initial-enable nil
			        :initial-visible nil 
	    			  :push-action 	(progn	                    
	                    			(setq Note "Ra 3,2")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus  	                    			
		); end Ra_32

		(RA_125
			        :title "Ra 12,5"
			        :toggle-type :grouped-toggle
			        :size :third
			        :initial-enable nil
			        :initial-visible nil 
	    			  :push-action 	(progn	                    
	                    			(setq Note "Ra 12,5")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus  	                    			
		); end Ra_125


  (FunktionshinweiseSubtitle :title "Funktionshinweise" :initial-visible nil)	
	
		(Druck
			        :title "DRUCKANSCHLUSS"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil    			     
	    			  :push-action 	(progn	                    
	                    			(setq Note "Druckluftanschluss")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))	
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus  	                    			
		); end Druck
	

		(BEZUGSFLAECHE
			        :title "BEZUGSFLØCHE"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil    			     
	    			  :push-action 	(progn	                    
	                    			(setq Note "BezugsflÌche")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus  	                    			
		); end BEZUGSFLAECHE
		
		
		(RESERVE_3
			        :title "RESERVE"
			        :toggle-type :wide-toggle
			        :initial-enable nil 
			        :initial-visible nil   			     
	    			  :push-action 	(progn	                    
	                    			(setq Note "RESERVE")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus  	                    			
		); end RESERVE
		

  (DBInfoSubtitle :title "METADATEN" :initial-visible nil)	
	
		(DB_ArtNr
			        :title "Artikelnummer"
			        :toggle-type :wide-toggle
			        :initial-enable nil 
			        :initial-visible nil  			     
	    				:push-action 	(progn	
	    												(setq Note		(sd-inq-item-attribute ELEMENT "Lesa_HLZ_Artikel" :values))                    	           
	                    				(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    				(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus  	                    			
		); end DB_ArtNr
	


  (PartColorSubtitle :title "Teilefarben" :initial-visible nil)		

     (TB_RemoveFaceColor
                    :title "FlÌchenfarben lÎschen"
	                  :toggle-type :wide-toggle
	                  :value-type	:boolean
	                  :initial-value t
	                  :initial-visible nil	 
	    );;TB_RemoveFaceColor	 

     (TB_RemoveEdgeColor
                    :title "Kantenfarben lÎschen"
	                  :toggle-type :wide-toggle
	                  :value-type	:boolean
	                  :initial-value t
			              :initial-visible nil	                  	 
	    );;TB_RemoveEdgeColor	 

     (TB_SetBlackEdges
                    :title "Kanten schwarz"
	                  :toggle-type :wide-toggle
	                  :value-type	:boolean
	                  :initial-value t
			              :initial-visible nil	                  	 
	    );;TB_SetBlackEdges


  		(ZYLINDER
			        :title "Z Y L I N D E R"
			        :toggle-type :wide-toggle
			        :initial-visible nil
			        :initial-enable nil
				    	:push-action 	(progn	                    
	                 				    (setq Teilefarbe "0.0,0.60000002384185791,1.0")
	                    			  (setq farbe (sd-rgb-to-color (read-from-string Teilefarbe)))
	                    			  (sd-call-cmds (set_part_base_color :parts Element :color farbe)) 
	                    			  (if TB_RemoveFaceColor (RemoveFaceColor))
                              (if TB_RemoveEdgeColor (RemoveEdgeColor))
                              (if TB_SetBlackEdges   (SetBlackEdges  ))   
	                    			 );;progn		                    			               			                 				
			);;ZYLINDER

  		(KOLBEN
			        :title "K O L B E N / S C H L I T T E N"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil
				    	:push-action 	(progn	                    
	                 				    (setq Teilefarbe "0.9412,0.9725,1")
	                    			  (setq farbe (sd-rgb-to-color (read-from-string Teilefarbe)))
	                    			  (sd-call-cmds (set_part_base_color :parts Element :color farbe)) 
	                    			  (if TB_RemoveFaceColor (RemoveFaceColor))
                              (if TB_RemoveEdgeColor (RemoveEdgeColor))
                              (if TB_SetBlackEdges   (SetBlackEdges  ))   
	                    			 );;progn		                    			               			                 				
			);;ZYLINDER

  		(MOTOREN
			        :title "M O T O R E N"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil
				    	:push-action 	(progn	                    
	                 				    (setq Teilefarbe "0.0,0.40000003576278687,0.40000003576278687")
	                    			  (setq farbe (sd-rgb-to-color (read-from-string Teilefarbe)))
	                    			  (sd-call-cmds (set_part_base_color :parts Element :color farbe)) 
	                    			  (if TB_RemoveFaceColor (RemoveFaceColor))
                              (if TB_RemoveEdgeColor (RemoveEdgeColor))
                              (if TB_SetBlackEdges   (SetBlackEdges  ))   
	                    			 );;progn		                    			               			                 				
			);;MOTOREN

  		(GETRIEBE
			        :title "G E T R I E B E"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil
				    	:push-action 	(progn	                    
	                 				    (setq Teilefarbe "0.30196079611778259,0.45098042488098145,0.40000003576278687")
	                    			  (setq farbe (sd-rgb-to-color (read-from-string Teilefarbe)))
	                    			  (sd-call-cmds (set_part_base_color :parts Element :color farbe)) 
	                    			  (if TB_RemoveFaceColor (RemoveFaceColor))
                              (if TB_RemoveEdgeColor (RemoveEdgeColor))
                              (if TB_SetBlackEdges   (SetBlackEdges  ))   
	                    			 );;progn		                    			               			                 				
			);;GETRIEBE

  		(SENSOREN
			        :title "S E N S O R E N"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil
				    	:push-action 	(progn	                    
	                 				    (setq Teilefarbe "1.0,1.0,0.20000001788139343")
	                    			  (setq farbe (sd-rgb-to-color (read-from-string Teilefarbe)))
	                    			  (sd-call-cmds (set_part_base_color :parts Element :color farbe)) 
	                    			  (if TB_RemoveFaceColor (RemoveFaceColor))
                              (if TB_RemoveEdgeColor (RemoveEdgeColor))
                              (if TB_SetBlackEdges   (SetBlackEdges  ))   
	                    			 );;progn		                    			               			                 				
			);;SENSOREN

  		(KABEL
			        :title "K A B E L / K L E M M E N / S T E C K E R"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil
				    	:push-action 	(progn	                    
	                 				    (setq Teilefarbe "1.0,0.50196081399917603,0.40000003576278687")
	                    			  (setq farbe (sd-rgb-to-color (read-from-string Teilefarbe)))
	                    			  (sd-call-cmds (set_part_base_color :parts Element :color farbe)) 
	                    			  (if TB_RemoveFaceColor (RemoveFaceColor))
                              (if TB_RemoveEdgeColor (RemoveEdgeColor))
                              (if TB_SetBlackEdges   (SetBlackEdges  ))
                              (setf Teil nil)	;setzt Variable "Teil" zurück und gibt Ihr den Fokus   
	                    			 );;progn		                    			               			                 				
			);;KABEL

		
  (FaceColorSubtitle :title "FlÌchenfarben" :initial-visible nil)
		          
  		(Gewinde
			        :title "G E W I N D E"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil 
				    	:push-action 	(progn	                    
	                 				  (setq Flaechenfarbe "0.0,0.0,0.5")
	                    			(setq farbe (sd-rgb-to-color (read-from-string Flaechenfarbe)))
	                    			(sd-call-cmds(set_face_color Element farbe))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus	                    			                 				
			); end Gewinde    

 
      
		(Passung
			        :title "P A S S U N G"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil 
	    				:push-action 	(progn	                    
	                    			(setq Flaechenfarbe "0.5,0.0,0.0")
	                    			(setq farbe (sd-rgb-to-color (read-from-string Flaechenfarbe)))
	                    			(sd-call-cmds(set_face_color Element farbe))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus	   	                    			
			); end Passung      
 


		(gefraest
			        :title "F R Ø S E N"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil 
	    				:push-action 	(progn	                    
	                    			(setq Flaechenfarbe "0.58,0.58,0.195")
	                    			(setq farbe (sd-rgb-to-color (read-from-string Flaechenfarbe)))
	                    			(sd-call-cmds(set_face_color Element farbe))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus	   	                    			
			);;gefraest


		(service
			        :title "SERVICE / WARTUNG"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil 
	    				:push-action 	(progn	                    
	                    			(setq Flaechenfarbe "0.89803928136825562,0.50196081399917603,0.0")
	                    			(setq farbe (sd-rgb-to-color (read-from-string Flaechenfarbe)))
	                    			(sd-call-cmds(set_face_color Element farbe))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus	   	                    			
			);;service

	
		(hubfarbe
			        :title "H U B / W E G"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil 
	    				:push-action 	(progn	                    
	                    			(setq Flaechenfarbe "0,1,0")
	                    			(setq farbe (sd-rgb-to-color (read-from-string Flaechenfarbe)))
	                    			(sd-call-cmds(set_face_color Element farbe))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus	   	                    			
			);;hubfarbe
			 
		(PlugConnector
			        :title "STECKANSCHLUSS"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil 
	    				:push-action 	(progn	                    
	                    			(setq Flaechenfarbe "0.0,0.0,1.0")
	                    			(setq farbe (sd-rgb-to-color (read-from-string Flaechenfarbe)))
	                    			(sd-call-cmds(set_face_color Element farbe))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus	   	                    			
			);;PlugConnector

		(CablingConnector
			        :title "STECKERPIN"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil 
	    				:push-action 	(progn	                    
	                    			(setq Flaechenfarbe "1.0,0.0,1.0")
	                    			(setq farbe (sd-rgb-to-color (read-from-string Flaechenfarbe)))
	                    			(sd-call-cmds(set_face_color Element farbe))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus	   	                    			
			);;CablingConnector

		(SafetyColor
			        :title "S I C H E R H E I T S B E R E I C H"
			        :toggle-type :wide-toggle
			        :initial-enable nil
			        :initial-visible nil 
	    				:push-action 	(progn	                    
	                    			(setq Flaechenfarbe "1,0,0")
	                    			(setq farbe (sd-rgb-to-color (read-from-string Flaechenfarbe)))
	                    			(sd-call-cmds(set_face_color Element farbe))
	                    			(setf Surface nil))	;setzt Variable "Surface" zurück und gibt Ihr den Fokus	   	                    			
			);;SafetyColor


  (Area_3 :title "-" :initial-visible nil)
 		
		(farbe
			        :value-type :rgb-color
			        :title  "FARBE"
			        :initial-enable nil
			        :initial-visible nil 
	   					:after-input   '(progn 
   						                  (sd-call-cmds(set_face_color Element farbe))
   						                );;progn
    ) ; end farbe
    		
    	                       
	) ;end variables
 
  
:mutual-exclusion '(Nur_Teil Nur_Face Nur_Edge)

:local-functions'(


;; ----------------------------------------------------------------------------------------------------------------------------------------------------   ;; ----------------------------------------------------------------------------------------------------------------------------------------------------    	
	(PartVariablesON ()

		        			(sd-set-variable-status 'Element 		                :enable nil 	:visible nil)
									(sd-set-variable-status 'Surface 			                :enable nil 	:visible nil)
									(sd-set-variable-status 'Teil 			                :enable t 	  :visible t)		
                                                                      
	                (sd-set-variable-status 'FOSubtitle                 :enable t 	:visible t)	
	                (sd-set-variable-status 'FRAESEN                    :enable nil 	:visible nil)	
	                (sd-set-variable-status 'GESAEGT                    :enable nil 	:visible nil)	
	                (sd-set-variable-status 'GELASERT                   :enable t 	:visible t)	
	                (sd-set-variable-status 'WASSERSTRAHL               :enable t 	:visible t)	
	                (sd-set-variable-status 'Area_1                     :enable t 	:visible t)	
	                (sd-set-variable-status 'Entgratet                  :enable t 	:visible t)	
	                (sd-set-variable-status 'Unbeschichtet              :enable t 	:visible t)	
	                (sd-set-variable-status 'Area2                      :enable t 	:visible t)	
	                (sd-set-variable-status 'ROH                        :enable t 	:visible t)	
	                (sd-set-variable-status 'Reserve_1                  :enable t 	:visible t)	
	                (sd-set-variable-status 'Reserve_2                  :enable t 	:visible t)	
	                (sd-set-variable-status 'RA_08                      :enable nil 	:visible nil)	
	                (sd-set-variable-status 'RA_32                      :enable nil 	:visible nil)	
	                (sd-set-variable-status 'RA_125                     :enable nil 	:visible nil)	
               	                  				
									(sd-set-variable-status 'FunktionshinweiseSubtitle  :enable nil 	:visible nil)
									(sd-set-variable-status 'Druck                      :enable nil 	:visible nil)
									(sd-set-variable-status 'BEZUGSFLAECHE              :enable nil 	:visible nil)
	                (sd-set-variable-status 'RESERVE_3                  :enable nil 	:visible nil) 
	                                  	                  				
									(sd-set-variable-status 'DBInfoSubtitle  	          :enable t 	:visible t)	
									(sd-set-variable-status 'DB_ArtNr  	                :enable t 	:visible t)		 	         
                                                                      
                  (sd-set-variable-status 'PartColorSubtitle 	        :enable t 	:visible t)        
									(sd-set-variable-status 'TB_RemoveFaceColor 	      :enable t 	:visible t)
									(sd-set-variable-status 'TB_RemoveEdgeColor 	      :enable t 	:visible t)
	                (sd-set-variable-status 'TB_SetBlackEdges  		      :enable t 	:visible t)
	                (sd-set-variable-status 'ZYLINDER  			            :enable t 	:visible t)
	                (sd-set-variable-status 'KOLBEN  			              :enable t 	:visible t)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'MOTOREN  			            :enable t 	:visible t)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'GETRIEBE  			            :enable t 	:visible t)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'SENSOREN  			            :enable t 	:visible t)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'KABEL  			              :enable t 	:visible t)	                  				
                                                                      
	                (sd-set-variable-status 'FaceColorSubtitle          :enable nil 	:visible nil)										
	                (sd-set-variable-status 'Gewinde                    :enable nil 	:visible nil)
									(sd-set-variable-status 'Passung                    :enable nil 	:visible nil)
	                (sd-set-variable-status 'gefraest                   :enable nil 	:visible nil)
	               	(sd-set-variable-status 'service                    :enable nil 	:visible nil)
	                (sd-set-variable-status 'hubfarbe                   :enable nil 	:visible nil)
	                (sd-set-variable-status 'SafetyColor                :enable nil 	:visible nil)
	                (sd-set-variable-status 'CablingConnector           :enable nil 	:visible nil)
	                (sd-set-variable-status 'PlugConnector              :enable nil 	:visible nil)

	                
	                (sd-set-variable-status 'Area_3                     :enable t 	:visible t)	                	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'farbe                      :enable t 	:visible t)		                  				 
	);;PartVariablesON
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
	(FaceVariablesON ()

		        			(sd-set-variable-status 'Element 		                :enable nil 	:visible nil)
									(sd-set-variable-status 'Surface 			                :enable t 	:visible t)
									(sd-set-variable-status 'Teil 			                :enable nil 	  :visible nil)		
                                                                      
	                (sd-set-variable-status 'FOSubtitle                 :enable t 	:visible t)	
	                (sd-set-variable-status 'FRAESEN                    :enable nil 	:visible nil)	
	                (sd-set-variable-status 'GESAEGT                    :enable nil 	:visible nil)	
	                (sd-set-variable-status 'GELASERT                   :enable nil 	:visible nil)	
	                (sd-set-variable-status 'WASSERSTRAHL               :enable nil 	:visible nil)	
	                (sd-set-variable-status 'Area_1                     :enable nil 	:visible nil)	
	                (sd-set-variable-status 'Entgratet                  :enable nil 	:visible nil)	
	                (sd-set-variable-status 'Unbeschichtet              :enable t 	:visible t)	
	                (sd-set-variable-status 'Area2                      :enable t 	:visible t)	
	                (sd-set-variable-status 'ROH                        :enable t 	:visible t)	
	                (sd-set-variable-status 'Reserve_1                  :enable t 	:visible t)	
	                (sd-set-variable-status 'Reserve_2                  :enable t 	:visible t)	
	                (sd-set-variable-status 'RA_08                      :enable t 	:visible t)	
	                (sd-set-variable-status 'RA_32                      :enable t 	:visible t)	
	                (sd-set-variable-status 'RA_125                     :enable t 	:visible t)	
               	                  				
									(sd-set-variable-status 'FunktionshinweiseSubtitle  :enable t 	:visible t)
									(sd-set-variable-status 'Druck                      :enable t 	:visible t)
									(sd-set-variable-status 'BEZUGSFLAECHE              :enable t 	:visible t)
	                (sd-set-variable-status 'RESERVE_3                  :enable t 	:visible t) 
	                                  	                  				
									(sd-set-variable-status 'DBInfoSubtitle  	          :enable nil 	:visible nil)	
									(sd-set-variable-status 'DB_ArtNr  	                :enable nil 	:visible nil)		 	         
                                                                      
                  (sd-set-variable-status 'PartColorSubtitle 	        :enable nil 	:visible nil)        
									(sd-set-variable-status 'TB_RemoveFaceColor 	      :enable nil 	:visible nil)
									(sd-set-variable-status 'TB_RemoveEdgeColor 	      :enable nil 	:visible nil)
	                (sd-set-variable-status 'TB_SetBlackEdges  		      :enable nil 	:visible nil)
	                (sd-set-variable-status 'ZYLINDER  			            :enable nil 	:visible nil)
	                (sd-set-variable-status 'KOLBEN  			              :enable nil 	:visible nil)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'MOTOREN  			            :enable nil 	:visible nil)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'GETRIEBE  			            :enable nil 	:visible nil)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'SENSOREN  			            :enable nil 	:visible nil)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'KABEL  			              :enable nil 	:visible nil)	                  				
                                                                      
	                (sd-set-variable-status 'FaceColorSubtitle          :enable t 	:visible t)										
	                (sd-set-variable-status 'Gewinde                    :enable t 	:visible t)
									(sd-set-variable-status 'Passung                    :enable t 	:visible t)
	                (sd-set-variable-status 'gefraest                   :enable t 	:visible t)
	                (sd-set-variable-status 'service                    :enable t 	:visible t)
	                (sd-set-variable-status 'hubfarbe                   :enable t 	:visible t)
	                (sd-set-variable-status 'SafetyColor                :enable t 	:visible t)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'CablingConnector           :enable t 	:visible t)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'PlugConnector          	  :enable t 	:visible t)	                	                	                  					         	                  	                  				 

	                (sd-set-variable-status 'Area_3                     :enable t 	:visible t)	                	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'farbe                      :enable t 	:visible t)		 
	);;FaceVariablesON
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
	(EdgeVariablesON ()

		        			(sd-set-variable-status 'Element 		                :enable t 	:visible t)
									(sd-set-variable-status 'Surface 			                :enable nil 	:visible nil)
									(sd-set-variable-status 'Teil 			                :enable nil 	  :visible nil)		
                                                                      
	                (sd-set-variable-status 'FOSubtitle                 :enable t 	:visible t)	
	                (sd-set-variable-status 'FRAESEN                    :enable nil 	:visible nil)	
	                (sd-set-variable-status 'GESAEGT                    :enable nil 	:visible nil)	
	                (sd-set-variable-status 'GELASERT                   :enable nil 	:visible nil)	
	                (sd-set-variable-status 'WASSERSTRAHL               :enable nil 	:visible nil)	
	                (sd-set-variable-status 'Area_1                     :enable nil 	:visible nil)	
	                (sd-set-variable-status 'Entgratet                  :enable t 	:visible t)	
	                (sd-set-variable-status 'Unbeschichtet              :enable nil 	:visible nil)	
	                (sd-set-variable-status 'Area2                      :enable t 	:visible t)	
	                (sd-set-variable-status 'ROH                        :enable nil 	:visible nil)	
	                (sd-set-variable-status 'Reserve_1                  :enable t 	:visible t)	
	                (sd-set-variable-status 'Reserve_2                  :enable t 	:visible t)	
	                (sd-set-variable-status 'RA_08                      :enable nil 	:visible nil)	
	                (sd-set-variable-status 'RA_32                      :enable nil 	:visible nil)	
	                (sd-set-variable-status 'RA_125                     :enable nil 	:visible nil)	
               	                  				
									(sd-set-variable-status 'FunktionshinweiseSubtitle  :enable nil 	:visible nil)
									(sd-set-variable-status 'Druck                      :enable nil 	:visible nil)
									(sd-set-variable-status 'BEZUGSFLAECHE              :enable nil 	:visible nil)
	                (sd-set-variable-status 'RESERVE_3                  :enable nil 	:visible nil) 
	                                  	                  				
									(sd-set-variable-status 'DBInfoSubtitle  	          :enable nil 	:visible nil)	
									(sd-set-variable-status 'DB_ArtNr  	                :enable nil 	:visible nil)		 	         
                                                                      
                  (sd-set-variable-status 'PartColorSubtitle 	        :enable nil 	:visible nil)        
									(sd-set-variable-status 'TB_RemoveFaceColor 	      :enable nil 	:visible nil)
									(sd-set-variable-status 'TB_RemoveEdgeColor 	      :enable nil 	:visible nil)
	                (sd-set-variable-status 'TB_SetBlackEdges  		      :enable nil 	:visible nil)
	                (sd-set-variable-status 'ZYLINDER  			            :enable nil 	:visible nil)
	                (sd-set-variable-status 'KOLBEN  			              :enable nil 	:visible nil)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'MOTOREN  			            :enable nil 	:visible nil)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'GETRIEBE  			            :enable nil 	:visible nil)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'SENSOREN  			            :enable nil 	:visible nil)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'KABEL  			              :enable nil 	:visible nil)	                  				
                                                                      
	                (sd-set-variable-status 'FaceColorSubtitle          :enable nil 	:visible nil)										
	                (sd-set-variable-status 'Gewinde                    :enable nil 	:visible nil)
									(sd-set-variable-status 'Passung                    :enable nil 	:visible nil)
	                (sd-set-variable-status 'gefraest                   :enable nil 	:visible nil)
	                (sd-set-variable-status 'service                    :enable nil 	:visible nil)
	                (sd-set-variable-status 'hubfarbe                   :enable nil 	:visible nil)
	                (sd-set-variable-status 'SafetyColor                :enable nil 	:visible nil)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'CablingConnector           :enable nil 	:visible nil)	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'PlugConnector           		:enable nil 	:visible nil)	                	                	                  					         	                  	                  				 

	                (sd-set-variable-status 'Area_3                     :enable nil 	:visible nil)	                	                	                	                  					         	                  	                  				 
	                (sd-set-variable-status 'farbe                      :enable nil 	:visible nil)		 	              
	);;EdgeVariablesON
	  
;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
	(RemoveFaceColor ()
		(face_prop :the_face (sd-call-cmds (get_selection 
															:focus_type *sd-face-seltype*                             				
                              :select 
                              :selected_part Element
                              :all_3d)
                         );;sd-call-cmds
                  						:color :OFF
    );; face_prop
	);;RemoveFaceColor

;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
	(RemoveEdgeColor ()
		(edge_3d_prop :the_edge (sd-call-cmds (get_selection 
															:focus_type *sd-edge-3d-seltype*                                				
                              :select 
                              :selected_part Element
                              :all_3d)
                            );;sd-call-cmds
                  :color :Off
    );; edge_3d_prop
	);;RemoveEdgeColor

;; ----------------------------------------------------------------------------------------------------------------------------------------------------    
	(SetBlackEdges ()
		(edge_3d_prop :the_edge (sd-call-cmds (get_selection 
															:focus_type *sd-edge-3d-seltype*                                				
                              :select 
                              :selected_part Element
                              :all_3d)
                            );;sd-call-cmds
                  :color 4210752
                  :done)
	);; SetBlack	  	
	  		  	               				
	  );end local-functions  
 
          
:ok-action
 '(progn
  );end ok-action

 :cancel-action
    '(progn
			);end cancel-action

  :help-action
    '	(progn
    	;;(sd-display-url ( Format NIL "~A/KEINE_HILFE.htm" (oli::sd-convert-filename-from-platform (oli::sd-sys-getenv "SCHILLERHELPDIR"))))
		  ); end progn
		

) ;enddefdialog