0  BEGIN PGM 1110_DE MM 
1  ;Programm zur Definition eines Punktemusters
2  ;in Form eines Kreises. In diesem Beispiel
3  ;kombiniert mit einem zweiten Programm, in
4  ;dem die Bohrungen mittels Bohrfraesen
5  ;erstellt werden, wobei in diesem Programmm
6  ;die Helixbewegungen programmiert ist und kein
7  ;Zyklus verwendet wird.
8  ;Nach der Definition aller notwendigen
9  ;Parameter und des Werkzeugs wird der
10 ;Bearbeitungszyklus definiert. Im diesem
11 ;Beispiel wird mit Zyklus 12 das zweite
12 ;Programm aufgerufen. Im Anschluss werden die
13 ;einzelnen Positionen angefahren, und der
14 ;Zyklus wird aufgerufen.
15 ;
16 ;Parametereingabe Lochkreis
17 FN 0: Q31 =+40 ;LOCHKREISRADIUS
18 FN 0: Q32 =+0 ;STARTWINKEL
19 FN 0: Q33 =+50 ;MITTE LOCHKREIS IN DER X-ACHSE
20 FN 0: Q34 =+50 ;MITTE LOCHKREIS IN DER Y-ACHSE
21 FN 0: Q35 =+30 ;WINKELSCHRITT
22 FN 0: Q36 =+12 ;ANZAHL DER BEARBEITUNGEN
23 ;Parametereingabe Lochkreis Ende
24 ;Parametereingabe Bohrungen
25 FN 0: Q40 =+10 ;BOHRUNGSDURCHMESSER
26 FN 0: Q41 =-30 ;TIEFE
27 FN 0: Q42 =+25 ;ANZAHL DER HELIXBAHNEN
28 FN 0: Q43 =+2 ;SICHERHEITSABSTAND
29 FN 0: Q44 =+1200 ;VORSCHUB FRAESEN
30 ;Parametereingabe Bohrungen Ende
31 ;
32 ;Berechnungen
33 ;Lochkreis
34 FN 2: Q37 =+Q36 - +2 ;Anzahl der Wiederholungen
35 ;Bohrungen
36 FN 4: Q45 =+Q40 DIV +2 ;Bohrungsradius
37 FN 3: Q46 =+Q42 * +360 ;Winkel der Helixbahn
38 ;Berechnungen Ende
39 ;
40 BLK FORM 0.1 Z X+0 Y+0 Z-40
41 BLK FORM 0.2  X+100  Y+100  Z+0
42 ;
43 ;Werkzeugaufruf Fraeser
44 TOOL CALL 6 Z S8000
45 ;
46 ;Freifahren
47 L  Z+100 R0 FMAX M3
48 ;
49 ;Definition von Programm 11101_de.h als Zyklus
50 CYCL DEF 12.0 PGM CALL
51 CYCL DEF 12.1 PGM 11101_de.h
52 ;
53 CALL LBL 1 ;Aufruf Positionen
54 ;
55 ;Freifahren und Programmende
56 L  Z+50 R0 F9999 M2
57 ;
58 ;Unterprogramm Positionen
59 LBL 1
60 CC  X+Q33  Y+Q34 ;Lochkreismittelunkt
61 LP  PR+Q31  PA+Q32 R0 F9999 ;Erste Position
62 CYCL CALL
63 LBL 2
64 CC  X+Q33  Y+Q34 ;Lochkreismittelpunkt
65 LP IPA+Q35 F9999 M99 ;Winkelschritt
66 CALL LBL 2 REPQ37
67 LBL 0
68 END PGM 1110_DE MM