0  BEGIN PGM 31701_DE MM 
1  ;Programm, um eine Konus zu fraesen
2  ;
3  ;
4  ;Parametereingabe
5  FN 0: Q1 =+50 ;MITTE ERSTE ACHSE
6  FN 0: Q2 =+50 ;MITTE ZWEITE ACHSE
7  FN 0: Q3 =+0 ;KOORDINATE Z OBEN
8  FN 0: Q5 =+46.5 ;RADIUS OBEN
9  FN 0: Q4 =-30 ;KOORDINATE Z UNTEN
10 FN 0: Q6 =+38.5 ;RADIUS UNTEN
11 FN 0: Q7 =+2 ;SICHERHEITSABSTAND
12 FN 0: Q8 =+600 ;VORSCHUB FRAESEN
13 FN 0: Q9 =+9999 ;VORSCHUB RUECKZUG
14 FN 0: Q10 =+180 ;TEILUNG
15 ;Parametereingabe Ende
16 ;
17 ;Werkzeugaufruf Schaftfraeser
18 TOOL CALL 8 Z S5555
19 ;
20 ;Berechnungen
21 FN 1: Q11 =+Q3 + +Q7 ;Sichere Hoehe
22 FN 2: Q12 =+Q5 - +Q108 ;Kompensierter Radius oben
23 FN 2: Q13 =+Q6 - +Q108 ;Kompensierter Radius unten
24 FN 4: Q14 =+360 DIV +Q10 ;Winkelschritt
25 FN 2: Q15 =+Q10 - +1 ;Anzahl der Wiederholungen
26 ;Berechnungen Ende
27 ;
28 L  Z+100 R0 FMAX M3 ;Freifahren
29 ;
30 ;Nullpunkt in das Zentrum schieben
31 CYCL DEF 7.0 NULLPUNKT
32 CYCL DEF 7.1  X+Q1
33 CYCL DEF 7.2  Y+Q2
34 L  X+0  Y+0 R0 FMAX ;Vorpositionieren
35 L  Z+Q11 R0 FMAX ;Auf sichere Hoehe fahren
36 LBL 1
37 L  X+Q12  Y+0 R0 FQ9 ;Oberen Radius anfahren
38 L  Z+Q3 R0 FQ8 ;Z auf Oberfläche fahren
39 L  X+Q13  Y+0  Z+Q4 ;Auf unteren Radius und Tiefe fahren
40 L  X+0  Y+0 R0 ;In die Mitte fahren
41 L  Z+Q11 R0 FQ9 ;Auf Sichere Hoehe fahren
42 ;Winkelschritt
43 CYCL DEF 10.0 DREHUNG
44 CYCL DEF 10.1 IROT+Q14
45 CALL LBL 1 REPQ15 ;Wiederholung
46 ;
47 ;Koordinatenumrechnung zuruecksetzen
48 CYCL DEF 10.0 DREHUNG
49 CYCL DEF 10.1  ROT+0
50 CYCL DEF 7.0 NULLPUNKT
51 CYCL DEF 7.1  X+0
52 CYCL DEF 7.2  Y+0
53 CYCL DEF 7.3  Z+0
54 ;Freifahren und Programmende
55 L  Z+100 R0 FQ9
56 END PGM 31701_DE MM