0  BEGIN PGM 1015_DE MM 
1  ;Programm zur Definition eines Punktemusters
2  ;in Form einer Spirale mit gleich bleibenden
3  ;Positionsabstaenden.
4  ;Für die Bearbeitung wird an den errechneten
5  ;Positionen ein Bearbeitungszyklus aufgerufen.
6  ;In diesem Programm ein Bohrzyklus. Nach der
7  ;Definition aller benötigten Parameter, des
8  ;Werkzeugs und des Bearbeitungszyklus wird ein
9  ;Unterprogramm aufgerufen, in dem die
10 ;einzelnen Positionen berechnet und
11 ;angefahren werden und der Zyklus
12 ;abgearbeitet wird.
13 ;
14 ;Eingabe Parameter
15 FN 0: Q1 =+45 ;ENDRADIUS
16 FN 0: Q2 =+5 ;STARTRADIUS
17 FN 0: Q3 =+60 ;START-WINKELSCHRITT
18 FN 0: Q4 =+2.5 ;RADIUS-SCHRITT
19 FN 0: Q5 =+50 ;ZENTRUM IN DER X-Achse
20 FN 0: Q6 =+50 ;ZENTRUM IN DER Y-ACHSE
21 FN 0: Q7 =+2 ;SICHERHEITSABSTAND
22 FN 0: Q8 =+20 ;ROTATION
23 ;Parametereingabe Ende
24 ;
25 BLK FORM 0.1 Z X+0 Y+0 Z-12
26 BLK FORM 0.2  X+100  Y+95  Z+0
27 ;
28 ;Werkzeugaufruf Bohrer
29 TOOL CALL 225 Z S2000
30 ;
31 ;Definition Bearbeitungszyklus
32 CYCL DEF 1.0 TIEFBOHREN
33 CYCL DEF 1.1 ABST2
34 CYCL DEF 1.2 TIEFE-10
35 CYCL DEF 1.3 ZUSTLG10
36 CYCL DEF 1.4 V.ZEIT0
37 CYCL DEF 1.5 F1000
38 ;
39 CC  X+Q5  Y+Q6 ;Zentrum definieren
40 LP  PR+0  PA+0 R0 FMAX M3 ;Auf Zentrum Vorpositionieren
41 CYCL DEF 10.0 DREHUNG
42 CYCL DEF 10.1  ROT+Q8
43 CALL LBL 2 ;Aufruf Berechnungen
44 ;Freifahren und Programmende
45 L  Z+100 R0 F9999 M2
46 ;
47 LBL 2 ;Berechnungen
48 LP  PR+Q2  PA+0 R0 F9998
49 L  Z+Q7
50 FN 0: Q14 =+Q4
51 FN 0: Q13 =+Q3
52 FN 3: Q34 =+Q2 * +Q4
53 FN 3: Q33 =+Q2 * +Q3
54 FN 0: Q24 =+Q2
55 FN 0: Q23 =+0
56 LBL 1
57 FN 4: Q14 =+Q34 DIV +Q24
58 FN 4: Q13 =+Q33 DIV +Q24
59 FN 1: Q24 =+Q24 + +Q14
60 FN 1: Q23 =+Q23 + +Q13
61 LP  PR+Q24  PA+Q23 M99 ;Position anfahren und Zyklusaufruf
62 FN 11: IF +Q1 GT +Q24 GOTO LBL 1 ;Vergleich ob Endradius erreicht ist
63 LBL 0
64 END PGM 1015_DE MM