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