0  BEGIN PGM 7115-DE MM 
1  ;Programm zur Aussenbearbeitung einer Halb-
2  ;kugel mit einem Torusfraeser.
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 =+50 ;KUGELZENTRUM IN DER X-ACHSE
14 FN 0: Q2 =+50 ;KUGELZENTRUM IN DER Y-ACHSE
15 FN 0: Q3 =-45 ;KUGELZENTRUM IN DER Z-ACHSE
16 FN 0: Q4 =+45 ;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 FN 0: Q12 =+5 ;Werkzeugschneidenradius
35 ;Parametereingabe Ende
36 ;
37 BLK FORM 0.1 Z X+0 Y+0 Z-55
38 BLK FORM 0.2  X+100  Y+100  Z+0
39 ;
40 ;Werkzeugaufruf Torusfräser
41 TOOL CALL 119 Z S8000 DL-Q12
42 ;
43 ;Berechnungen
44 Q21 = Q108 - Q12 ;Verrrechnung Schneidenradius
45 FN 1: Q19 =+Q4 + +Q12 ;Verrechnung Schneidenradius
46 FN 4: Q15 =+360 DIV +Q5 ;Winkelschritt Ebene X/Y
47 FN 2: Q25 =+Q5 - +1 ;Anzahl der Wiederholungen Ebene X/Y
48 FN 4: Q16 =+90 DIV +Q6 ;Winkelschritt Ebene X/Z
49 FN 2: Q26 =+Q6 - +1 ;Anzahl Wiederholungen Ebene X/Z
50 FN 1: Q17 =+Q7 + +Q4 ;Position zum Vorpositionieren
51 FN 1: Q18 =+Q4 + +Q8 ;Sichere Position in Z
52 FN 1: Q18 =+Q18 + +Q12 ;Sichere Position in Z
53 ;Berechnungen Ende
54 ;
55 ;Nullpunkt ins Zentrum der Kugel verschieben
56 CYCL DEF 7.0 NULLPUNKT
57 CYCL DEF 7.1  X+Q1
58 CYCL DEF 7.2  Y+Q2
59 CYCL DEF 7.3  Z+Q3
60 ;
61 ;Vorpositionieren
62 L  X+Q17  Y+0 R0 FMAX M3
63 L  Z+Q18 R0 FMAX
64 ;
65 L  Y+0  Z+0 R0 FQ10 ;1. Eintauchen
66 LBL 2
67 CC  Z+0  X+Q21
68 L  Y+0 R0 FQ11
69 LP  PR+Q19  PA+90 R0 FQ11 ;Anfahren an die Kontur
70 LBL 3
71 LP IPA-Q16 R0 FQ11 ;Linear Schritt in X/Z Ebene
72 CALL LBL 3 REPQ26 ;Wiederholung linearer Schritt
73 L  Z+Q18 R0 FQ9 ;Auf Sichereheitsabstand
74 L  X+Q17 R0 FQ9 ;Neu vorpositionieren
75 L  Y+0  Z+0 R0 FQ10
76 ;Koordinatensystem drehen
77 CYCL DEF 10.0 DREHUNG
78 CYCL DEF 10.1 IROT+Q15
79 CALL LBL 2 REPQ25 ;Wiederholung Kreisbahn
80 ;Koordinatenumrechnung zuruecksetzen
81 CYCL DEF 10.0 DREHUNG
82 CYCL DEF 10.1  ROT+0
83 CYCL DEF 7.0 NULLPUNKT
84 CYCL DEF 7.1  X+0
85 CYCL DEF 7.2  Y+0
86 CYCL DEF 7.3  Z+0
87 ;Freifahren und Programmende
88 L  Z+100 R0 FMAX M30
89 END PGM 7115-DE MM