0 BEGIN PGM SOLUTION 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 PLANE SPATIAL SPA-80 SPB+0 SPCQ3 TURN MB MAX F500 SEQ- TABLE ROT ; Bearbeitungsebene schwenken
12 FUNCTION TCPM F TCP AXIS SPAT PATHCTRL AXIS ; Werkzeuganstellung automatisch kompensieren mit Raumwinkeln
13 ;
14 ; Programmteilwiederholung
15 LBL 9
16 PLANE SPATIAL SPA+0 SPB+0 SPCQ3 STAY SEQ- ; Berechneten Winkel rechnerisch einschwenken
17 L X+0 Y+10 Z+50 A-80 C+0 FMAX ; Werkzeug vorpositionieren und anstellen
18 L X+0 Y+10 Z+10 F2000 ; Werkzeug zustellen
19 L X+0 Y+90 Z-20 A-15 C+0 ; Kontur bearbeiten und Anstellung verändern
20 L X+0 Y+90 Z+50 ; Werkzeug freifahren
21 L X+0 Y+10 Z+50 FMAX ; Werkzeug vorpositionieren
22 Q3 = Q3 + ( +360 / Q1 ) ; Winkel für nächste Bearbeitung berechnen
23 CALL LBL 9 REPQ2
24 ;
25 PLANE RESET STAY
26 M129 ; TCPM deaktivieren
27 ;
28 ; Programm beenden inkl. Rücksetzen und Freifahren
29 * - ...
30 CALL LBL "RESET"
31 ;
32 M30
33 ;
34 * - LBL RESET
35 LBL "RESET"
36 M129
37 CALL LBL "SAFE"
38 CYCL DEF 8.0 SPIEGELUNG
39 CYCL DEF 8.1
40 CYCL DEF 10.0 DREHUNG
41 CYCL DEF 10.1 ROT+0
42 PLANE RESET TURN FMAX
43 CYCL DEF 7.0 NULLPUNKT
44 CYCL DEF 7.1 X+0
45 CYCL DEF 7.2 Y+0
46 CYCL DEF 7.3 Z+0
47 LBL 0
48 ;
49 * - LBL SAFE
50 LBL "SAFE"
51 M140 MB MAX M3
52 L Z+300 R0 FMAX M91
53 L X+400 Y-300 R0 FMAX M91
54 LBL 0
55 END PGM SOLUTION MM