0  BEGIN PGM 4035_DE MM 
1  ;Programm um einen Konus durch Anstellen der
2  ;B-Achse und Drehen der C-Achse zu erstellen.
3  ;Das Programm ist geschrieben fuer eine
4  ;Maschine mit B-Schwenkkopf und C-Rundtisch.
5  ;Mit der Funktion M128 wird das
6  ;Werkzeug auf der programmierten Bahn bewegt,
7  ;auch wenn das Werkstueck nicht im Zentrum
8  ;des C-Rundtisches gespannt ist.
9  ;
10 BLK FORM 0.1 Z X-5 Y-5 Z-8
11 BLK FORM 0.2  X+5  Y+5  Z+0
12 ;
13 ;Werkzeugaufruf
14 TOOL CALL 6 Z S5000 F500
15 ;
16 ;Eingaben
17 QL100 = - 7 ;TIEFE
18 QL101 = 10 ;DURCHMESSER UNTEN
19 QL102 = 28.1786 ;WINKEL
20 ;
21 ;Berechnungen
22 QL200 = ABS QL100 - SIN ABS QL102 * Q108 ;Tiefe fuer das Werkzeugzentrum
23 QL201 = COS ABS QL102 * Q108 + QL101 / 2 ;Radius fuer das Werkzeugzentrum
24 QL300 = Q108 * 2 + QL101 / 2 ;Vorpositionierung
25 ;
26 L  X+QL300  Y+0 R0 FMAX M3
27 L  Z+2 R0 FMAX
28 L  Z+0 R0
29 L  B-QL102 R0 M128 ;Anstellen der B-Achse mit M128
30 L  Z-QL200 R0
31 L  X+QL201 R0
32 CC  X+0  Y+0
33 CP IPA+360 IC+360 DR+ ;Drehen der C-Achse um 360 Grad mit aktivem M128
34 L  X+QL300 R0 FMAX
35 L  B+0 R0 FMAX M129 ;B-Achse auf 0 Grad fahren und M128 deaktivieren
36 L  Z+250 R0 FMAX M30
37 END PGM 4035_DE MM