0 BEGIN PGM CASE_2 MM
1 ; Bereich mit Ladewerten
2 Q1 = +6 ; Anzahl der Bearbeitungen
3 Q2 = Q1 - +1 ; Berechnung der Wiederholungen
4 Q3 = -60 ; Startwinkel
5 ; Beginn des Hauptprogramms
6 BLK FORM 0.1 Z X-50 Y-50 Z-50 
7 BLK FORM 0.2 X+50 Y+50 Z+0
8 TOOL CALL 5 Z S2000 F200
9 L X+0 Y+0 Z+200 A+0 C+0 R0 FMAX
10 ;
11 ; Programmteilwiederholung
12 LBL 9
13 ; Nullpunkt der Drehachse auf berechneten Winkel verschieben
14 CYCL DEF 7.0 NULLPUNKT
15 CYCL DEF 7.1 CQ3
16 ; Bezugssystem drehen
17 CYCL DEF 10.0 DREHUNG
18 CYCL DEF 10.1 ROTQ3
19 PLANE SPATIAL SPA-80 SPB+0 SPC+0 TURN F5000 SEQ- TABLE ROT ; Bearbeitungsebene schwenken
20 PLANE RESET STAY ; Bearbeitungsebene rechnerisch zurücksetzen
21 M128 ; Werkzeuganstellung automatisch kompensieren
22 L X+0 Y+10 Z+50 A-80 C+0 FMAX ; Werkzeug vorpositionieren und anstellen
23 L X+0 Y+10 Z+10 F2000 ; Werkzeug zustellen
24 L X+0 Y+90 Z-20 A-15 C+0 ; Kontur bearbeiten und Anstellung verändern
25 L X+0 Y+90 Z+50 ; Werkzeug freifahren
26 L X+0 Y+10 Z+50 FMAX ; Werkzeug vorpositionieren
27 M129 ; M128 deaktivieren
28 Q3 = Q3 + ( +360 / Q1 ) ; Winkel für nächste Bearbeitung berechnen
29 CALL LBL 9 REPQ2
30 ;
31 ; Programm beenden inkl. Rücksetzen und Freifahren
32 * - ...
33 CALL LBL "RESET"
34 ;
35 M30
36 ;
37 * - LBL RESET
38 LBL "RESET"
39 M129
40 CALL LBL "SAFE"
41 CYCL DEF 8.0 SPIEGELUNG
42 CYCL DEF 8.1
43 CYCL DEF 10.0 DREHUNG
44 CYCL DEF 10.1 ROT+0
45 PLANE RESET TURN FMAX
46 CYCL DEF 7.0 NULLPUNKT
47 CYCL DEF 7.1 X+0
48 CYCL DEF 7.2 Y+0
49 CYCL DEF 7.3 Z+0
50 LBL 0
51 ;
52 * - LBL SAFE
53 LBL "SAFE"
54 M140 MB MAX M3
55 L Z+300 R0 FMAX M91
56 L X+400 Y-300 R0 FMAX M91
57 LBL 0
58 END PGM CASE_2 MM