#|

 Dies ist ein Dialog zum Erstellen von Kühlbohrungen mit frei definierbarer Länge und Gewindedurchmesser incl. Gewindebohrung mit Senkung.
 Am Ende wird eine Spitze mit frei definierbarem Spitzenwinkel angebracht.
 Diesen Bolzen kann man dann anschließend von einem Körper subtrahieren um z.B. eine Bohrung zu erstellen
 Es muß eine AE auf einer Fläche liegen bzw. überhaupt eine AE vorhanden sein.

Last modified     : 13.09.2004
Category          : Machining
Author            : Michael Müller (michael.mueller@ptb.de)
Company           : PTB Braunschweig
Filename          : Kuehlbohrungen.lsp
Revision          : 1.2 (neu, mit Auswahl der Durchmesser über Tabelle)
SD Revision	  : 11.6
Platform          : HP-UX
Video Mode        : Native
Monitor Resolution: 1280x1024

|#

(use-package :OLI)

;; Logical Table

(sd-create-logical-table  "Gewindeauswahl" 
     :columns     '(:Gewinde    :Kern_dm   )
     :columnNames '("Gewinde"   "Kern_dm"  )
     :types       '(:string      :length   )
     :units       '(   nil       :mm       )
     
     :contents  '(
     		  (" M8x0,75 "	(7.19 :mm) )
     		  (" M10x1 "	(8.92 :mm) )
     		  (" M14x1,5 "	(12.38 :mm) )
     		  (" M16x1,5 "	(14.38 :mm) )
     		  (" M24x1,5 "	(22.38 :mm) )
     		  (" 1/8 Zoll "	(8.57 :mm) )
		  (" 1/4 Zoll "	(11.45 :mm) )
     		  (" 3/8 Zoll "	(14.95 :mm) )
     		  (" 1/2 Zoll "	(18.63 :mm) )
                 ) ; end contents
                 
 ) ;end sd-create-logical-table
               
;; Display Table 

(sd-create-display-table "Gewindeauswahl"
     :tableTitle	"Gewindeauswahl"
     :logicalTable	"Gewindeauswahl"
     :columns		'(:Gewinde  :Kern_dm)
     :applyColumns	'(:Kern_dm)
     :displayHeight	200
     :filterStatusLine	nil
     :selectionMode	:single-row 
     :applyAction	:default-tokens
); end sd-create-display-table

(defun zeige-gewindeauswahl ()
	(sd-show-display-table "Gewindeauswahl"
	:position '("TOP-MENU-TOOLBOX-TB" :bottomleft  330 250) )
) ;end defun

(defun verstecke-gewindeauswahl ()
	(sd-hide-display-table "Gewindeauswahl" :ignorePin t))
    





;; Dialog

(sd-defdialog 'Kuehlbohrungen
   :dialog-title "Kuehlbohrungen"
   :variables
     '(
	(AE   
		:value-type :wp 
		:title "AE"
		:prompt-text "AE angeben.")  
	
	(Mittelpunkt
		:value-type :point-2d
		:title "Punkt"
		:prompt-text "Punkt auswaehlen")
	
	(Kern_dm
		:value-type :positive-number
		:title "Gewindedurchmesser"
		:prompt-text "Gewindedurchmesser auswählen"
		:show-input-tool (zeige-gewindeauswahl)
		:hide-input-tool (verstecke-gewindeauswahl)
		:after-input
	(setq tabellenwert (sd-read-logical-table-row "Gewindeauswahl"
		:pList `(:Kern_dm, Kern_dm)
		:units :internal )
		Kern_dm   (getf tabellenwert :Kern_dm)
		) ; end after input
	)
		                            
	(Gewindetiefe
		:value-type :length
		:title "Gewindetiefe"
		:prompt-text "Gewindetiefe des Gewindes angeben")		
	
	(Bohrungstiefe
		:value-type :length
		:title "Bohrungstiefe"
		:prompt-text "Bohrungstiefe der Bohrung angeben (ohne Spitze)")
	
	(Bohrungsdurchmesser
		:value-type :length
		:title "Bohrungsdurchmesser"
		:prompt-text "Bohrungsdurchmesser der Bohrung angeben")		
	
	(Spitzenwinkel
		:value-type :length
		:title "Spitzenwinkel"
		:initial-value 118
		:prompt-text "Geben Sie den Spitzenwinkel ein. Defaultwert sind 118 Grad")
		
	(Fase				; Button für mit/ohne Fase
		:value-type :boolean
		:toggle-type :wide-toggle
		:title "Fase"
		:initial-value t )
	
	(Naechste
		:push-action (los-gehts))
		
      ) ; end variables
    

    
   :ok-action '(los-gehts)
    :local-functions '(
	(los-gehts ()
		(sd-call-cmds
			(CREATE_WORKPLANE					; Vorhandene AE kopieren
				:copy
				:name "Test"
				:source AE) 
		) ;end call
		
		(sd-call-cmds
			(slide_wp_origin (Sd-Inq-Curr-Wp) Mittelpunkt)			;Ursprung der kopierten AE auf den angeklickten Punkt verschieben
		) ; end call
			
			(cond								;Fallunterscheidung: Wenn negative Gewindetiefen-Werte eingegeben werden, 
				((> Gewindetiefe 0) (setq Drehwinkel (* 0.5 pi)))	;wird die kopierte AE in der anderen Richtung gedreht, um einen Bolzen 
				((< Gewindetiefe 0) (setq Drehwinkel (- (* 0.5 pi))))	;in der entgegengesetzten Richtung zu erzeugen
			) ;end cond
			
 		(sd-call-cmds      
			(position_wp (sd-inq-curr-wp)					;Drehen der kopierten AE
				:rotate
				:axis
				:v
				:rotation_angle Drehwinkel
				:done 
			) ; end position
		) ;end call
		
		(if Fase 
		
		(
		(sd-call-cmds
			(GEOMETRY_MODE :REAL)					;ändert die Geometrieart auf "Geometrie" falls das nicht eingestellt ist
		) ;end call
		
		(sd-call-cmds
			(polygon						;Polygon zeichnen, aus dem später der Bolzen gedeht wird
			(gpnt2d 0 0)						;Punkt 0/0
			(gpnt2d 0 (* 1.05(/ Kern_dm 2.0)))			;Fase aussen
			(gpnt2d (- (* 1.05(/ Kern_dm 2.0)) (/ Kern_dm 2.0)) (/ Kern_dm 2.0))	;1. Pkt. Gewindekerndrms
			(gpnt2d (ABS Gewindetiefe) (/ Kern_dm 2.0))		;2. Pkt. ende Gewinde
			(gpnt2d (ABS Gewindetiefe) (/ Bohrungsdurchmesser 2.0))
			(gpnt2d (ABS (+ Gewindetiefe Bohrungstiefe)) (/ Bohrungsdurchmesser 2.0))
			(gpnt2d (+ (ABS (+ Gewindetiefe Bohrungstiefe)) (/ (* Bohrungsdurchmesser (tan (/ (* (- 90 (/ Spitzenwinkel 2)) pi) 180)))2)) 0)
			:close)
			 						; Polygon schliessen
		) ;end call
		) ; end für mit Fase
		
		( 	
		(sd-call-cmds
			(GEOMETRY_MODE :REAL)					;ändert die Geometrieart auf "Geometrie" falls das nicht eingestellt ist
		) ;end call
			
		(sd-call-cmds
			(polygon						;Polygon zeichnen, aus dem später der Bolzen gedeht wird
			(gpnt2d 0 0)						;Punkt 0/0
			(gpnt2d 0 (/ Kern_dm 2.0))				;1. Pkt. Gewindekerndrms
			(gpnt2d (ABS Gewindetiefe) (/ Kern_dm 2.0))		;2. Pkt. ende Gewinde
			(gpnt2d (ABS Gewindetiefe) (/ Bohrungsdurchmesser 2.0))
			(gpnt2d (ABS (+ Gewindetiefe Bohrungstiefe)) (/ Bohrungsdurchmesser 2.0))
			(gpnt2d (+ (ABS (+ Gewindetiefe Bohrungstiefe)) (/ (* Bohrungsdurchmesser (tan (/ (* (- 90 (/ Spitzenwinkel 2)) pi) 180)))2)) 0)
			:close) 						; Polygon schliessen
		) ;end call
		) ;end für ohne Fase
		); end von if
		
		(sd-call-cmds
			(turn   :part "/Stift" 					;Bolzen erzeugen
				:wp "/Test"
				:axis 
				:u
				:rotation_angle (* 2 pi)
				:keep_profile :no
				:keep_wp :no)
		) ;end call
		(sd-call-cmds
		 (current_wp AE)						;Setzt als aktuelle AE wieder die ursprüngliche
		) ;end call 
		
	) ;end los-gehts	           
     
  ) ;end local-functions
) ;end def dialog