0  BEGIN PGM 7040_DE MM 
1  ;Programm zur Innenbearbeitung eines Koerpers
2  ;in Form von einem stehendem Torus.
3  ;Die Bearbeitung wird mit einem Kugelfraeser
4  ;ausgefuehrt, indem die Fraesbahn in der
5  ;Ebene Y/Z und die Zustellung seitlich
6  ;in der Ebene X/Y gefahren wird.
7  ;
8  ;Parametereingabe
9  FN 0: Q1 =+0 ;MITTE ERSTE ACHSE
10 FN 0: Q2 =+0 ;MITTE ZWEITE ACHSE
11 FN 0: Q3 =+25 ;TORUSRADIUS R
12 FN 0: Q4 =+0 ;Z-KOORDINATE TORUSMITTE
13 FN 0: Q5 =+20 ;TORUSRADIUS r
14 FN 0: Q10 =+20 ;SICHERE HOEHE
15 FN 0: Q11 =+80 ;ANZAHL DER FRAESBAHNEN
16 FN 0: Q14 =+600 ;VORSCHUB FRAESEN
17 FN 0: Q15 =+9999 ;VORSCHUB VORPOSITIONIEREN
18 FN 0: Q16 =+300 ;VORSCHUB EINTAUCHEN
19 ;Parametereingabe Ende
20 ;
21 BLK FORM 0.1 Z X-21 Y-50 Z-51
22 BLK FORM 0.2  X+21  Y+50  Z+1
23 ;
24 ;Werkzeugaufruf Kugelfraeser
25 TOOL CALL 157 Z S8000
26 TOOL CALL  DL-Q108 ;Laengenkorrektur um Kugelradius
27 ;
28 ;Berechnungen
29 FN 2: Q6 =+Q5 - +Q108 ;Kompensierter Radius
30 FN 1: Q18 =+Q6 + +Q1 ;Startposition X
31 FN 1: Q19 =+Q2 + +Q3 ;Koordinate Y+ Toruszentrum
32 FN 2: Q20 =+Q2 - +Q3 ;Koordinate Y- Toruszentrum
33 FN 4: Q12 =+180 DIV +Q11 ;Winkelschritt
34 FN 4: Q13 =+Q11 DIV +2 ;Anzahl der Wiederholungen
35 FN 2: Q13 =+Q13 - +1 ;Anzahl der Wiederholungen
36 ;Berechnungen abgeschlossen
37 ;
38 L  X+Q18  Y+Q20  Z+Q10 R0 FQ15 M3 ;Vorpositionieren
39 L  Z+Q4 FQ16 ;Eintauchen
40 ;
41 LBL 1
42 CC  Y+Q2  Z+Q4 ;CC fuer die Fraesbahn
43 CP IPA+180 DR+ FQ14 ;Fraesbahn
44 CC  X+Q1  Y+Q19 ;CC fuer die seitliche Zustellung
45 CP IPA+Q12 DR+ FQ14 ;Zustellung
46 CC  Y+Q2  Z+Q4 ;CC fuer die Fraesbahn
47 CP IPA-180 DR- FQ14 ;Fraesbahn
48 CC  X+Q1  Y+Q20 ;CC fuer die seitliche Zustellung
49 CP IPA-Q12 DR- FQ14 ;Zustellung
50 CALL LBL 1 REPQ13 ;Aufruf der Wiederholung
51 L  Z+100 R0 FQ15 M30 ;Freifahren und Programmende
52 END PGM 7040_DE MM