0  BEGIN PGM 51001_DE MM 
1  ;Programm, um eine Bohrung schraeg
2  ;in einem Werkstueck zu erstellen.
3  ;
4  ;Werkzeugaufruf
5  TOOL CALL 7 Z S4000 F300
6  ;
7  L  Z+100 R0 FMAX M3 ;Auf sichere Hoehe fahren
8  L  X+Q7  Y+Q8 R0 FMAX ;Vorpositionieren
9  ;Nullpunkt in die  Mitte der Bohrung
10 ;schieben. Z Verschiebung auf die
11 ;Position, um die die Bearbeitungsebene
12 ;geschwenkt wird.
13 CYCL DEF 7.0 NULLPUNKT
14 CYCL DEF 7.1  Z+Q9
15 CYCL DEF 7.2  X+Q7
16 CYCL DEF 7.3  Y+Q8
17 ;Bearbeitungsebene schwenken
18 CYCL DEF 19.0 BEARBEITUNGSEBENE
19 CYCL DEF 19.1  A+Q11  B+0  C+0
20 ;Drehachsen auf Position fahren
21 L  A+Q120  B+Q121  C+Q122 R0 FMAX
22 CYCL DEF 252 KREISTASCHE ~
    Q215=+0    ;BEARBEITUNGS-UMFANG ~
    Q223=+42   ;KREISDURCHMESSER ~
    Q368=+0    ;AUFMASS SEITE ~
    Q207=+600  ;VORSCHUB FRAESEN ~
    Q351=+1    ;FRAESART ~
    Q201=-80   ;TIEFE ~
    Q202=+5    ;ZUSTELL-TIEFE ~
    Q369=+0    ;AUFMASS TIEFE ~
    Q206=+300  ;VORSCHUB TIEFENZ. ~
    Q338=+0    ;ZUST. SCHLICHTEN ~
    Q200=+2    ;SICHERHEITS-ABST. ~
    Q203=+25   ;KOOR. OBERFLAECHE ~
    Q204=+50   ;2. SICHERHEITS-ABST. ~
    Q370=+1    ;BAHN-UEBERLAPPUNG ~
    Q366=+1    ;EINTAUCHEN ~
    Q385=+500  ;VORSCHUB SCHLICHTEN
23 L  X+0  Y+0 R0 FMAX
24 M99
25 M140 MB MAX F9999 ;Freifahren
26 ;Bearbeitungsebene Schwenken aufheben
27 CYCL DEF 19.0 BEARBEITUNGSEBENE
28 CYCL DEF 19.1  A+0  B+0  C+0
29 CYCL DEF 19.0 BEARBEITUNGSEBENE
30 CYCL DEF 19.1
31 ;Drehachsen auf Null zuruecksetzen
32 L  A+Q120  B+Q121  C+Q122 R0 FMAX
33 ;Nullpunktverschiebung aufheben
34 CYCL DEF 7.0 NULLPUNKT
35 CYCL DEF 7.1  X+0
36 CYCL DEF 7.2  Y+0
37 CYCL DEF 7.3  Z+0
38 END PGM 51001_DE MM