0  BEGIN PGM 4215_DE MM 
1  ;NC-Programm, um eine Nut spiralfoermig in die
2  ;Mantelflaeche einer Welle zu fraesen.
3  ;Das Programm bietet die Moeglichkeit, die Nut
4  ;mit zunehmendem Kerndurchmesser zu fertigen.
5  ;Wenn Sie den Parameter Kegellaenge kleiner
6  ;als die Gesamtlaenge der Bearbeitung
7  ;definieren, dann wird ab dem Zeitpunkt,
8  ;an dem die Kegellaenge erreicht ist, mit
9  ;konstantem Kerndurchmesser weiterbearbeitet,
10 ;bis die Gesamtlaenge erreicht wird.
11 ;Wenn kein Kegel gefertigt werden soll, dann
12 ;definieren Sie den Durchmesser bei X0 gleich
13 ;dem Durchmesser am Kegelende. Damit wird eine
14 ;gleichmaessig tiefe Nut bis zum Erreichen
15 ;der Gesamtlaenge gefraest.
16 ;Desweiteren bietet Ihnen das Programm die
17 ;Möglichkeit, die Steigung der Spirale
18 ;kontinuierlich zu verändern. Dazu definieren
19 ;Sie im Parameter Steigungszunahmen je
20 ;Umdrehung um wie viel Millimeter sich die
21 ;Steigung je Wellenumdrehung aendern soll.
22 ;Die Steuerung teilt die Werkzeugbahn in
23 ;einzelne Schritte. Fuer jeden dieser Schritte
24 ;berechnet sie eine X- und Z-Koordinate sowie
25 ;einen Winkel der A-Achse. In wie viele
26 ;Schritte eine 360 Grad Bewegung geteilt wird
27 ;definieren Sie mit dem Parameter Teilung.
28 ;WICHTIG!
29 ;Die Welle muss im Zentrum der A-Achse
30 ;gespannt sein. Die A-Achse muss mehr
31 ;als 360 Grad drehen koennen.
32 ;Die Bearbeitung startet bei X=0 und erfolgt
33 ;in positiver Richtung.
34 ;
35 ;
36 BLK FORM CYLINDER X R20 L150 DIST+150
37 ;
38 ;Werkzeugaufruf
39 TOOL CALL 155 Z S5000
40 ;
41 ;Parametereingabe
42 Q1 = 15 ;DURCHMESSER AM NUTGRUND
43 ;       ;BEI X0
44 Q2 = 35 ;DURCHMESSER AM NUTGRUND
45 ;       ;AM KEGELENDE
46 Q3 = 75 ;KEGELLAENGE
47 Q4 = 150 ;GESAMTLAENGE DER BEARBEITUNG
48 Q5 = 6 ;STEIGUNG ZU BEGINN
49 Q6 = 1.5 ;STEIGUNGSZUNAHME JE UMDREHUNG
50 Q7 = 50 ;TEILUNG
51 Q8 = 100 ;SICHERE HOEHE
52 Q9 = 0 ;STARTWINKEL
53 Q40 = 300 ;VORSCHUB TIEFENZUSTELLUNG
54 Q41 = 1000 ;VORSCHUB FRAESEN
55 ;Parametereingabe Ende
56 ;
57 ;Aufruf der Bearbeitung
58 CALL LBL 10
59 ;
60 ;Freifahren und Programmende
61 L  Z+100 R0 FMAX M30
62 ;
63 ;Bearbeitung
64 LBL 10
65 ;Berechnungen
66 Q10 = Q2 / 2 - Q1 / 2 ;Kegelradius Aenderung
67 Q11 = ATAN ( Q10 / Q3 ) ;Kegelwinkel
68 Q12 = Q1 / 2 ;Startposition Z
69 Q13 = Q2 / 2 ;Endposition Z
70 Q17 = 360 / Q7 ;Winkelschritt
71 Q18 = 0 ;Startposition X
72 Q27 = Q9 ;Winkel A-Achse
73 ;
74 L  Z+Q8 R0 FMAX M3 ;Fahren auf sichere Hoehe
75 L  X+0  Y+0 R0 FMAX ;Fahren auf X- und Y-Startposition
76 L  X+0  Y+0  Z+Q8  A+Q9 R0 FMAX ;Startwinkel anfahren
77 L  Z+Q12 R0 FQ40 ;Auf Starttiefe fahren
78 ;
79 ;Wiederholung fuer Kegel
80 LBL 1
81 Q27 = Q27 + Q17 ;Neuen Winkel berechnen
82 Q30 = Q27 / 360 * ( Q5 + Q6 * Q27 / 360 ) ;Neue X-Koordinate berechnen
83 Q33 = Q12 + TAN Q11 * Q30 ;Neue Z-Koordinate berechnen
84 ;
85 L  X+Q30  Y+0  Z+Q33  A+Q27 R0 FQ41 ;Neue Koordinaten und Winkel anfahren
86 FN 12: IF +Q33 LT +Q13 GOTO LBL 1 ;Vergleich, ob Z Endhoehe erreicht ist
87 ;
88 ;Wiederholung fuer Welle
89 LBL 2
90 Q27 = Q27 + Q17 ;Neuen Winkel berechnen
91 Q30 = Q27 / 360 * ( Q5 + Q6 * Q27 / 360 ) ;Neue X-Koordinate berechnen
92 L  X+Q30  Y+0  Z+Q13  A+Q27 R0 FQ41 ;Neue X-Koordinate und neuen Winkel anfahren
93 FN 12: IF +Q30 LT +Q4 GOTO LBL 2 ;Vergleich ob X-Endpunkt erreicht ist
94 ;Bearbeitung Ende
95 LBL 0
96 END PGM 4215_DE MM