;;### alle Befehle werden in Examples - frei wählbar - gepackt
(in-package :EXAMPLES)

;;### Lade Befehlssatz für Integration Kit
(use-package :OLI)


;;### Anwendung AUSSENGEWINDE
(sd-defdialog 'aussengewinde
	:toolbox-button t  							;; Wird in Werkzeugkiste eingetragen
	:dialog-title "GEWINDE"	  					;; Überschrift 
	:variables  								;; Einzelne Buttons mit Eingabefeldern
	'(
		(FLAECHE 							;; Eingabe Seitenlänge
			:value-type :face
			:title "Flaeche"
			:prompt-text "Bitte Flaeche eingeben")
		(KANTE 								;; Eingabe Kante für Fase
			:value-type :edge
			:title "Kante"
			:prompt-text "Bitte Kante für Fase angeben")          
	)
	:ok-action
	'(los-gehts) 			
	:local-functions '(							;; lokaler funktionsaufruf
		(los-gehts ()							;; keine parameterübergabe, da innerhalb der vieleck funktion   	
		(SETQ Zylindereigenschaften (sd-inq-geo-props FLAECHE :dest-space :global)
			Richtung (sd-cylinder-axis-dir Zylindereigenschaften)
			Durchmesser (* 2 (sd-cylinder-radius Zylindereigenschaften))
			Steigung 1.25
		);; ende SETQ
		
		(SD-DEFINE-THREAD FLAECHE 
 			:nominal-diameter Durchmesser
 			:core-diameter (* 0.85 Durchmesser)
 			:pitch Steigung
 			:thread-type :OUTER
 			:thread-unit :METRIC
 			:thread-color (sd-color-to-rgb 16753049) ;; oder NIL für keine Farbe
 			:include-chamfer T
 			:thread-direction Richtung
 			:thread-name "gewinde"
 		) ;; ende Thread
 		
		(CHAMFER KANTE
			:check
			:nolabel_fdbk
			:distance
			:new_distance (/ (- Durchmesser (* 0.85 Durchmesser)) 2))
			
 	) ;; ende los-gehts
   );; ende local
) ;; end dialog