#|===================================================================================================
SW-Rep-Makro.lsp
2016-07-19 SW: erstellt von Wolfgang Seel

--------------------------------------------------------------------------*
ä=Ì Ä=Ø Î=Î Î=Ú ü=Ï Ü=Û ß=Þ °=³  ø=Ö ö=Î Ø=Ò Ö=Ú
--------------------------------------------------------------------------*
|#

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

(setf Kante NIL)
(setf FLAECHE NIL)

(sd-defdialog 'SW-Rep-Makro
    :toolbox-button t ; nil ; t 							;; Wird in Werkzeugliste eingetragen
	:dialog-title "SW-Rep-Makro"	  					;; Überschrift 
	:variables  				
     '(

	("Kante neu verschneiden")
	(Kante	:value-type :edge
			:title "Kante:"
			:prompt-text "Bitte neu zu verschneidende Kante wÌhlen"
			:after-input 
			(progn
			 (sd-call-cmds (reintersect_faces :edges Kante))
			 (setf Kante NIL)
			);;progn
	            );;Kante	
	("FlÌche neu verschneiden")				
   (FLAECHE	:value-type :face
			:title "FlÌche:"
			:prompt-text "Bitte neu zu verschneidende FlÌche wÌhlen"
			:after-input 
			(progn
			 (sd-call-cmds (reintersect_faces :faces FLAECHE))
			 (setf FLAECHE NIL)
			);;progn
	            );;Kante	
	("FlÌchentrimmung umkehren")	
	(FLAECHE2	:value-type :face
			:title "FlÌche:"
			:prompt-text "Bitte FlÌche wÌhlen"
			:after-input 
			(progn
			 (sd-call-cmds (flip_faces :fp :s_faces FLAECHE2))
			 (setf FLAECHE2 NIL)
			);;progn
	            );;Kante
				
				("gesamte Teiletrimmung umkehren")	
			(Teil2	:value-type :part
			:title "Teil:"
			:prompt-text "Bitte Teil wÌhlen"
			:after-input 
			(progn
			 (sd-call-cmds (flip_faces :fp :fp Teil2))
			 (setf Teil2 NIL)
			);;progn
	            );;Kante			
				


			("FlÌche lÎschen")		
	(FLAECHE3	:value-type :face
			:title "FlÌche:"
			:prompt-text "Bitte FlÌche wÌhlen die gelÎscht werden soll."
			:after-input 
			(progn
			 (sd-call-cmds (remove_face_rep FLAECHE3))
			 (setf FLAECHE3 NIL)
			);;progn
	            );;Kante	
	("FlÌche einfÏgen")
		(Kanten	:value-type :edge
			:title "Kanten:"
			:prompt-text "Bitte Kanten wÌhlen die FlÌche bilden."
			:after-input 
			(progn
			 (sd-call-cmds (create_face :blank Kanten :select_done))
			 (setf Kanten NIL)
			);;progn
	            );;Kante				
				


					
			("LÏcken im Teil zeigen")	
(Teil	
			:value-type :part 
			:title "LÏcken zeigen"
			:prompt-text "Bitte FlÌchenteil wÌhlen"
			:after-input 
			(progn
			(display Teil)
			 (show_open_edges Teil)
			);;progn
	            );;Kante	
				
;	 (Lücken_zeigen
;		:push-action (sd-start-dialog (show_open_edges))
;		:title "LÏcken zeigen"
;		:initial-enable t
;		:toggle-type :wide-toggle
;	  )				
		
				
   );;variables
   
:ok-action '() ;(sd-end-feedback ACHSEN-FEEDBACK)

:cancel-action '()
	
:help-action '(sd-display-message "
2016-07-19 SW: erstellt von Wolfgang Seel

Funktionsprinzip:

1. Kante anklicken um sie neu zu verschneiden.

   
Viel SpaÞ beim Kanten reparieren !!!

" :title "SW-Kante-Neu-Verschneiden.lsp" :push "Weiter")
);;sd-defdialog