;*********************************************************************************************
; Dateiname 	: 	SD_Bearbeitungsnotiz.lsp
; Autor         : 	Stephan Wörz
; Erstellt      :	20.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_V13			;muss dem Dateinamen entsprechen
:dialog-title "BEARBEITUNGSHINWEIS" 
:toolbox-button t
:variables 
   '(  
		( Element :selection (*sd-edge-3d-seltype*     	;;jede Kante
              				  *sd-face-seltype*        	;;jede Fläche
              				  *sd-vertex-3d-seltype*)  	;;jeder Eckpunkt   
              	  :modifies :contents
                  :show-select-menu nil
                  :multiple-items t
                  :title "ELEMENT(E)"
                  :prompt-text "Element(e) waehlen"
                  :after-input	(Progn                  				
	                  			(SET_SHOW (SD-INQ-CURRENT-VP) :3DGEO_LABEL :ON)		;Beschriftung im aktuellen Fenster einschalten
	                  			(buttons_ein)
								); end progn	
        );end Element
 

		( TEIL	 :selection (*sd-part-seltype*)    	;;jede Kante              				
              	 :modifies :contents
                 :show-select-menu nil
                 :initial-visible nil
                 :multiple-items t
                 :title "TEIL(E)"
                 :prompt-text "Teil(e) waehlen"
                 :after-input	(Progn                  				
	                  			(SET_SHOW (SD-INQ-CURRENT-VP) :3DGEO_LABEL :ON)		;Beschriftung im aktuellen Fenster einschalten
	                  			(buttons_ein)
	                  			(setf Element Teil)
								); end progn	
        );end Element


		(Nur_Teil    	:value-type :boolean						
						:title "NUR TEIL"
						:initial-value nil
                  		:after-input	(IF Nur_Teil
                  								(Progn		                  							
		                  							(sd-set-variable-status 'Element :enable nil)
													(sd-set-variable-status 'Element :visible nil)
													(sd-set-variable-status 'Teil :enable t)
													(sd-set-variable-status 'Teil :visible t)
			                  						(SET_SHOW (SD-INQ-CURRENT-VP) :3DGEO_LABEL :ON)		;Beschriftung im aktuellen Fenster einschalten             									                  			
												);end progn
												
                  								(Progn		                  							
		                  							(sd-set-variable-status 'Element :enable t)
													(sd-set-variable-status 'Element :visible t)
													(sd-set-variable-status 'Teil :enable nil)
													(sd-set-variable-status 'Teil :visible nil)		                  																			
												);end progn	
											);end if											
																								
 		);end Nur_Teil


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

		                 
		(Fraesen
			        :title "F R A E S E N"
			        :toggle-type :wide-toggle
			        :initial-enable nil      
				    :push-action 	(progn	                    
	                    			(setq Note "fraesen")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(buttons_aus)	
	                    			(setf Element nil))	;setzt Variable "Element" zurück und gibt Ihr den Fokus
	                    			
		); end fraesen



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

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


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

		("-")

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


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


		("-")


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


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


		(Reserve_2
					:title "Reserve"
			        :toggle-type :grouped-toggle
			        :size :third
			        :initial-enable nil
	    			:push-action 	(progn	                    
	                    			(setq Note "Reserve")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(buttons_aus)	
	                    			(setf Element nil))	;setzt Variable "Element" 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
	    			:push-action 	(progn	                    
	                    			(setq Note "Ra 0,8")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(buttons_aus)	
	                    			(setf Element nil))	;setzt Variable "Element" 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
	    			:push-action 	(progn	                    
	                    			(setq Note "Ra 3,2")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(buttons_aus)	
	                    			(setf Element nil))	;setzt Variable "Element" 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
	    			:push-action 	(progn	                    
	                    			(setq Note "Ra 12,5")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(buttons_aus)	
	                    			(setf Element nil))	;setzt Variable "Element" zurück und gibt Ihr den Fokus  	                    			
		); end Ra_125


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

		(BEZUGSFLAECHE
			        :title "BEZUGSFLAECHE"
			        :toggle-type :wide-toggle
			        :initial-enable nil   			     
	    			:push-action 	(progn	                    
	                    			(setq Note "Bezugsflaeche")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(buttons_aus)	
	                    			(setf Element nil))	;setzt Variable "Element" zurück und gibt Ihr den Fokus  	                    			
		); end BEZUGSFLAECHE
		
		
		(RESERVE_3
			        :title "RESERVE"
			        :toggle-type :wide-toggle
			        :initial-enable nil   			     
	    			:push-action 	(progn	                    
	                    			(setq Note "RESERVE")
	                    			(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))
	                    			(buttons_aus)	
	                    			(setf Element nil))	;setzt Variable "Element" zurück und gibt Ihr den Fokus  	                    			
		); end RESERVE
		
		
		("Flaechenfarben") 
		          
  		(Gewinde
			        :title "G E W I N D E"
			        :toggle-type :wide-toggle
			        :initial-enable 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))
	                    			(buttons_aus)	
	                    			(setf Element nil))	;setzt Variable "Element" 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
	    			: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))
	                    			(buttons_aus)	
	                    			(setf Element nil))	;setzt Variable "Element" zurück und gibt Ihr den Fokus	   	                    			
		); end Passung      
 
 		
		(farbe
			        :value-type :rgb-color
			        :title  "FARBE"
			        :initial-enable nil
	   				:after-input   '(progn 
   									(sd-call-cmds(set_face_color Element farbe)))
    	) ; end farbe
    	                       
	) ;end variables
  

:local-functions
	'(	(buttons_aus ()
									(sd-set-variable-status 'Text  :enable nil )
	                  				(sd-set-variable-status 'Fraesen :enable nil )
	                  				(sd-set-variable-status 'Gesaegt :enable nil )
	                  				(sd-set-variable-status 'Unbeschichtet  :enable nil )
	                  				(sd-set-variable-status 'Gewinde  :enable nil )
	                  				(sd-set-variable-status 'Farbe  :enable nil )
	                  				(sd-set-variable-status 'Entgratet  :enable nil )
	                  				(sd-set-variable-status 'Passung  :enable nil )
	                  				(sd-set-variable-status 'Roh  :enable nil )
	                  				(sd-set-variable-status 'RA_08  :enable nil )
	                  				(sd-set-variable-status 'RA_32  :enable nil )
	                  				(sd-set-variable-status 'RA_125  :enable nil )
	                  				(sd-set-variable-status 'Wasserstrahl  :enable nil )
                  					(sd-set-variable-status 'gelasert  :enable nil )
                  					(sd-set-variable-status 'Scharfkantig  :enable nil )
	                  				(sd-set-variable-status 'Druck  :enable nil )
	                  				(sd-set-variable-status 'BEZUGSFLAECHE  :enable nil )
	                  				(sd-set-variable-status 'RESERVE  :enable nil ) 
	  	); end buttons_aus 
	  
	  
	 	(buttons_ein ()	  		  	
									(sd-set-variable-status 'Text  :enable t )
	                  				(sd-set-variable-status 'Fraesen :enable t )
	                  				(sd-set-variable-status 'Gesaegt :enable t )
	                  				(sd-set-variable-status 'Unbeschichtet  :enable t )
	                  				(sd-set-variable-status 'Gewinde  :enable t )
	                  				(sd-set-variable-status 'Farbe  :enable t )
	                  				(sd-set-variable-status 'Entgratet  :enable t )
	                  				(sd-set-variable-status 'Wasserstrahl  :enable t )
	                  				(sd-set-variable-status 'gelasert  :enable t )
	                  				(sd-set-variable-status 'Passung  :enable t )
	                  				(sd-set-variable-status 'Scharfkantig  :enable t )
	                  				(sd-set-variable-status 'Roh  :enable t )                
	                  				(sd-set-variable-status 'RA_08  :enable t )
		                  			(sd-set-variable-status 'RA_32  :enable t )
		                  			(sd-set-variable-status 'RA_125  :enable t )
		                  			(sd-set-variable-status 'Druck  :enable t )
		                  			(sd-set-variable-status 'BEZUGSFLAECHE  :enable t )
		                  			(sd-set-variable-status 'Reserve_1  :enable nil )
	                  				(sd-set-variable-status 'Reserve_2  :enable nil )
		                  			(sd-set-variable-status 'Reserve_3  :enable nil )	  	
	  	); end buttons_ein 	  	
	  		  	               				
	  );end local-functions  
               
:ok-action
  '(progn 
   		(sd-call-cmds(set_face_color Element farbe))
;   	(sd-call-cmds(cocreate_3d_note :action :create :items Element :note Note))  
  		  	);end ok-action

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

 :help-action
    '(progn
;   (sd-display-url (format nil "~A/Bearbeiten_Flaechenfarben.htm" *Hilfepfad*))
    (sd-display-url "S:/ascad/extra/sd_11.60/SchillerMacros/Schiller_Hilfedateien/Bearbeiten_Flaechenfarben.htm")
    		);end help-action

) ;enddefdialog