0  BEGIN PGM 1035-DE MM 
1  ;Bohrablauf mit exponentieller Abnahme der
2  ;Zustelliefe.
3  ;Im ersten Schritt wird mit definierter
4  ;Zustelltiefe gebohrt. In den folgenden
5  ;Zustellungen wird die Zustelltiefe
6  ;exponential reduziert, bis die minimale
7  ;Zustelltiefe erreicht ist. Alle dann noch
8  ;folgenden Zustellungen werden dann mit
9  ;dieser minimalen Zustellung gefahren.
10 ;Die Zustellungen werden wiederholt, bis
11 ;die Bohrungstiefe erreicht ist. Nach den
12 ;Zustellungen wird auf Sicherheitsabstand
13 ;ueber Bohrungsgrund zurueckgezogen. Wenn
14 ;eine vom Bediener definierte Anzahl von
15 ;Zustellungen erreicht ist, wird das Werkzeug
16 ;komplett aus der Bohrung gezogen um zu
17 ;entspanen.
18 ;Die Berechnungen und Bahnbewegungen fuer den
19 ;Bohrablauf, stehen in einem seperaten Haupt-
20 ;programm, welches in einem Zyklus12 definiert
21 ;ist, und dann mit einem M99 an der Bohr-
22 ;position aufgerufen wird.
23 ;In diesem Programm definieren sie die
24 ;noetigen Parameter, das Werkzeug und die
25 ;Bohrpositionen, an denen sie mit M99 oder
26 ;Cycl Call den Zyklus 12 aufrufen. Im zweiten
27 ;Programm brauchen keine Aenderungen
28 ;vorgenommen werden.
29 ;
30 BLK FORM 0.1 Z X+0 Y-10 Z-40
31 BLK FORM 0.2  X+40  Y+10  Z+0
32 ;
33 ;Eingabe Parameter
34 FN 0: Q1 =+1 ;SICHERHEITSABSTAND
35 FN 0: Q2 =-40 ;TIEFE
36 FN 0: Q3 =-8 ;1. ZUSTELLTIEFE
37 FN 0: Q4 =+1 ;VERWEILZEIT OBEN
38 FN 0: Q5 =+200 ;VORSCHUB TIEFENZUSTELLUNG
39 FN 0: Q6 =+0 ;KOORDINATEN OBERFLÄCHE
40 FN 0: Q7 =+15 ;2. SICHERHEITSABSTAND
41 FN 0: Q8 =+0.5 ;DEGRESSIONSFAKTOR
42 FN 0: Q9 =+3 ;ANZAHL DER ZUSTELLUNGEN BIS
43 ;            ;RUECKZUG ZUM ENTSPANEN
44 FN 0: Q10 =-5 ;MINIMALE ZUSTELLTIEFE
45 FN 0: Q11 =+1 ;VERWEILZEIT UNTEN
46 ;Eingabe Parameter abgeschlossen
47 ;
48 ;Werkzeugaufruf Bohrer
49 TOOL CALL 223 Z S1000
50 ;
51 ;Fahren auf sicher Hoehe
52 L  Z+20 R0 F9998 M3
53 ;
54 ;Bohrablauf als Zyklus definieren
55 CYCL DEF 12.0 PGM CALL
56 CYCL DEF 12.1 PGM 10351_de.H
57 ;
58 ;Bohrposition anfahren und Zyklus aufrufen
59 L  X+5  Y+0 R0 M99
60 L  X+30 M99
61 ;
62 ;Freifahren und Programmende
63 L  Z+20 M2
64 END PGM 1035-DE MM