0  BEGIN PGM 3045_DE MM 
1  ;Programm, um einen liegenden Kegelstumpf von
2  ;innen zu bearbeiten. Die Rotationsachse
3  ;liegt parallel zu X-Achse. Die Bearbeitung
4  ;erfolgt mit einem Kugelfraeser in
5  ;Hoehenlinien, deren Anzahl Sie mit dem
6  ;Parameter Teilung (Q8) definieren.
7  ;
8  ;Parametereingabe
9  FN 0: Q13 =+35 ;KEGELZENTRUM IN Y
10 FN 0: Q14 =+0 ;KEGELZENTRUM IN Z
11 FN 0: Q1 =+0 ;MINIMALE X-KOORDINATE
12 FN 0: Q5 =+100 ;MAXIMALE X-KOORINATE
13 FN 0: Q6 =+30 ;RADIUS BEI X-MINIMAL
14 FN 0: Q7 =+20 ;RADIUS BEI X-MAXIMAL
15 FN 0: Q8 =+90 ;TEILUNG
16 FN 0: Q10 =+30 ;SICHERHEITSABSTAND
17 FN 0: Q11 =+300 ;VORSCHUB TIEFENZUSTELLUNG
18 FN 0: Q12 =+1000 ;VORSCHUB FRAESEN
19 ;Parametereingabe Ende
20 ;
21 BLK FORM 0.1 Z X+0 Y+0 Z-35
22 BLK FORM 0.2  X+100  Y+70  Z+0
23 ;
24 ;Werkzeugaufruf Kugelfraeser
25 TOOL CALL 157 Z S4000
26 TOOL CALL  Z DL-Q108 ;Laengenkorrektur ins Kugelzentrum
27 ;
28 L  X-20  Y+0  Z+28 R0 F5555 ;Vorpositionieren
29 ;
30 CALL LBL 1 ;Bearbeitung aufrufen
31 ;
32 ;Koordinaten Umrechnung zuruecksetzen
33 CYCL DEF 7.0 NULLPUNKT
34 CYCL DEF 7.1  X+0
35 CYCL DEF 7.2  Y+0
36 CYCL DEF 7.3  Z+0
37 ;
38 ;Freifahren und Programmende
39 L  Z+100 R0 FMAX M2
40 ;
41 LBL 1 ;Bearbeitung
42 ;Berechnungen
43 FN 2: Q16 =+Q6 - +Q108 ;Radius bis Werkzeugzentrum bei X-min
44 FN 2: Q17 =+Q7 - +Q108 ;Radius bis Werkzeugzentrum bei X-max
45 FN 0: Q27 =+180 ;Startwinkel
46 Q37 = 180 / Q8 ;Winkelschritt
47 FN 0: Q28 =+0 ;Zaehler
48 ;
49 ;Nullpunkt ins Kegelzentrum schieben
50 CYCL DEF 7.0 NULLPUNKT
51 CYCL DEF 7.1  Y+Q13
52 CYCL DEF 7.2  Z+Q14
53 ;
54 CALL LBL 10
55 L  X+Q1  Y+Q22 R0 F5555 ;Startpunkt anfahren
56 L  Z+Q23 FQ11 ;Tiefe anfahren
57 L  X+Q5  Y+Q42  Z+Q43 ;Auf Endpunkt fahren
58 L IZ+Q10 ;Auf Sicherheitsabstand fahren
59 ;
60 LBL 2
61 Q27 = Q27 + Q37 ;Winkel weiterrechnen
62 Q28 = Q28 + 1 ;Zaehler weiterrechnen
63 FN 11: IF +Q28 GT +Q8 GOTO LBL 99
64 CALL LBL 10
65 L  X+Q1  Y+Q22 R0 F5555 ;Startpunkt anfahren
66 L  Z+Q23 FQ11 ;Tiefe anfahren
67 L  X+Q5  Y+Q42  Z+Q43 ;Auf Endpunkt fahren
68 L IZ+Q10 ;Auf Sicherheitsabstand fahren
69 FN 9: IF +0 EQU +0 GOTO LBL 2 ;Wiederholung
70 ;
71 LBL 10 ;Berechnung der Koordinaten
72 Q22 = Q16 * COS Q27 ;Y Koordinate X-min
73 Q42 = Q17 * COS Q27 ;Y Koordinate X-max
74 Q23 = Q16 * SIN Q27 ;Z Koordinate X-min
75 Q43 = Q17 * SIN Q27 ;Z Koordinate X-max
76 LBL 0
77 LBL 99 ;Bearbeitung Ende
78 LBL 0
79 END PGM 3045_DE MM