0  BEGIN PGM 7050-DE MM 
1  ;Programm zur Aussenbearbeitung einer
2  ;Zylinderflaeche mit einem Kugelfraeser.
3  ;Die Zylinderachse liegt parallel zur Y-Achse.
4  ;Die Bearbeitung erfolgt in Hoehenlinien, so
5  ;dass die Fraesbahn in Y Richtung liegt und
6  ;die Zustellung in X- und Z-Achse erfolgt.
7  ;
8  BLK FORM 0.1 Z X-35 Y+0 Z-45
9  BLK FORM 0.2  X+35  Y+100  Z+0
10 ;
11 ;Eingabe Parameter
12 FN 0: Q1 =+0 ;ZYLINDER ZENTRUM IN DER X-ACHSE
13 FN 0: Q2 =-40 ;ZYLINDER ZENTRUM IN DER Z-ACHSE
14 FN 0: Q3 =-0 ;STARTPUNKT IN DER Y-ACHSE
15 ;            ;MINIMALE KOORDINATE
16 FN 0: Q4 =+100 ;ENDPUNKT IN DER Y-ACHSE
17 ;            ;MAXIMALE KOORDINATE
18 FN 0: Q5 =+100 ;TEILUNG
19 ;            ;ANZAHL DER HOEHENLINIEN
20 FN 0: Q6 =+35 ;ZYLINDERRADIUS
21 FN 0: Q7 =+90 ;STARTWINKEL IN DER EBENE X/Z
22 FN 0: Q8 =+270 ;ENDWINKEL IN DER EBENE X/Z
23 FN 0: Q9 =+10 ;SICHER HOEHE
24 FN 0: Q10 =+300 ;VORSCHUB FRAESEN
25 ;Parametereingabe Ende
26 ;
27 ;Werkzeugaufruf Kugelfraeser
28 TOOL CALL 157 Z S8000
29 TOOL CALL  DL-Q108 ;Laengenaenderung ins Kugelzentrum
30 ;
31 ;
32 ;Berechnungen
33 FN 2: Q13 =+Q3 - +Q108 ;Startposition Y
34 FN 1: Q14 =+Q4 + +Q108 ;Endposition Y
35 FN 1: Q26 =+Q6 + +Q108 ;Effektiver Radius bis Werkzeugzentrum
36 FN 2: Q27 =+Q8 - +Q7 ;Winkelbereich
37 FN 4: Q28 =+Q27 DIV +Q5 ;Winkelschritt
38 FN 1: Q29 =+Q9 + +Q108 ;Vorpositionierung Z
39 FN 0: Q30 =+0 ;Zaehler
40 ;Berechnungen abgeschlossen
41 ;
42 ;Bahnbewegungen
43 L  Z+100 R0 FMAX ;Auf Sichere Höhe fahren
44 L  Y+Q13  X+Q1 R0 F9999 M3 ;Vorpositionieren X/Y
45 L  Z+Q29 R0 FMAX ;Vorpositionieren Z
46 CC  Z+Q2  X+Q1 ;Zylinderzentrum
47 LP  PR+Q26  PA+Q7 FQ10 ;Erste Hoehe anfahren
48 LBL 1 ;Sprungmarke
49 CP IPA-Q28 DR- FQ10 ;Tiefenzustellung
50 L  Y+Q14 FQ10 ;Fraesbahn
51 FN 1: Q30 =+Q30 + +1 ;Zaehler
52 FN 9: IF +Q30 EQU +Q5 GOTO LBL 99 ;Vergleich ob Teilung erreicht
53 CP IPA-Q28 DR- FQ10 ;Tiefenzustellung
54 L  Y+Q13 FQ10 ;Fraesbahn
55 FN 1: Q30 =+Q30 + +1 ;Zaehler
56 FN 12: IF +Q30 LT +Q5 GOTO LBL 1 ;Vergleich ob Zaehler erreicht
57 LBL 99
58 ;
59 ;Freifahren und Programmende
60 L  Z+50 R0 FMAX M2
61 END PGM 7050-DE MM