0  BEGIN PGM 7110_DE MM 
1  ;Programm zur Aussenbearbeitung einer Halb-
2  ;kugel mit einem Schaftfraeser.
3  ;Gefraest wird in einer X/Z-Bahn von
4  ;unten nach oben. Diese Bewegung wird in
5  ;einzelne Linearbahnen aufgeteilt. Im
6  ;Anschluss wird das Koordinatensystem
7  ;gedreht und es wird naechste Bahn gefahren.
8  ;Durch die definierten Teilungen wird die
9  ;Genauigkeit und die Qualitaet der Ober-
10 ;flaeche bestimmt.
11 ;
12 ;Eingabe Parameter
13 FN 0: Q1 =+55 ;KUGELZENTRUM IN DER X-ACHSE
14 FN 0: Q2 =+55 ;KUGELZENTRUM IN DER Y-ACHSE
15 FN 0: Q3 =-50 ;KUGELZENTRUM IN DER Z-ACHSE
16 FN 0: Q4 =+50 ;KUGELRADIUS
17 FN 0: Q5 =+60 ;TEILUNG IN DER EBENE X/Y
18 ;              ;DEFINIERT AUF WIE VIELE
19 ;              ;FRAESBAHNEN DIE 360GRAD IN
20 ;              ;DER EBENE X/Y AUFGETEILT
21 ;              ;WERDEN
22 FN 0: Q6 =+15 ;TEILUNG IN DER EBENE X/Z
23 ;             ;DEFINIERT; AUF WIE VIELE
24 ;             ;LINEARELEMENTE DIE 3D BEWEGUNG,
25 ;             ;IN DER X,Y UND Z-ACHSE, AUFGE-
26 ;             ;TEILT WIRD
27 FN 0: Q7 =+20 ;SEITLICHER SICHERHEITSABSTAND
28 ;             ;ABSTAND ZWISCHE KOERPER UND
29 ;             ;WERKZEUG BEIM VORPOSITIONIEREN
30 FN 0: Q8 =+3 ;SICHERHEITSABSTAND IN Z
31 FN 0: Q9 =+2000 ;VORSCHUB VORPOSITIONIEREN
32 FN 0: Q10 =+500 ;VORSCHUB TIEFENZUSTELLUNG
33 FN 0: Q11 =+800 ;VORSCHUB FRAESEN
34 ;Parametereingabe Ende
35 ;
36 BLK FORM 0.1 Z X+0 Y+0 Z-55
37 BLK FORM 0.2  X+110  Y+110  Z+0
38 ;
39 ;Werkzeugaufruf Schaftfräser
40 TOOL CALL 50 Z S6000
41 ;
42 ;Berechnungen
43 FN 4: Q15 =+360 DIV +Q5 ;Winkelschritt Ebene X/Y
44 FN 2: Q25 =+Q5 - +1 ;Anzahl der Wiederholungen Ebene X/Y
45 FN 4: Q16 =+90 DIV +Q6 ;Winkelschritt Ebene X/Z
46 FN 2: Q26 =+Q6 - +1 ;Anzahl Wiederhoungen Ebene X/Z
47 FN 1: Q17 =+Q7 + +Q4 ;Position zum Vorpositionieren
48 FN 1: Q18 =+Q4 + +Q8 ;Sichere Position in Z
49 ;Berechnungen Ende
50 ;
51 ;Nullpunkt ins Zentrum der Kugel verschieben
52 CYCL DEF 7.0 NULLPUNKT
53 CYCL DEF 7.1  X+Q1
54 CYCL DEF 7.2  Y+Q2
55 CYCL DEF 7.3  Z+Q3
56 ;
57 ;Vorpositionieren
58 L  X+Q17  Y+0 R0 FMAX M3
59 L  Z+Q8 R0 FMAX
60 ;
61 L  Y+0  Z+0 R0 FQ10 ;1. Eintauchen
62 LBL 2
63 CC  Z+0  X+Q108
64 L  Y+0 R0 FQ11
65 LP  PR+Q4  PA+90 R0 FQ11 ;Anfahren an die Kontur
66 LBL 3
67 LP IPA-Q16 FQ11 ;Linearer Schritt in X/Z Ebene
68 CALL LBL 3 REPQ26 ;Wiederholung linearer Schritt
69 L  Z+Q18 R0 FQ9 ;Auf Sicherheitsabstand fahren
70 L  X+Q17 R0 FQ9 ;Neu vorpositionieren
71 L  Z+0  Y+0 R0 FQ10
72 ;Koordinatensystem drehen
73 CYCL DEF 10.0 DREHUNG
74 CYCL DEF 10.1 IROT+Q15
75 CALL LBL 2 REPQ25 ;Wiederholung Kreisbahn
76 ;Koordinatenumrechnungen zurücksetzen
77 CYCL DEF 10.0 DREHUNG
78 CYCL DEF 10.1  ROT+0
79 CYCL DEF 7.0 NULLPUNKT
80 CYCL DEF 7.1  X+0
81 CYCL DEF 7.2  Y+0
82 CYCL DEF 7.3  Z+0
83 ;Freifahren und Porgrammende
84 L  Z+100 R0 FMAX M30
85 END PGM 7110_DE MM