0 BEGIN PGM 5105_DE MM 
1 ;NC-Programm, um eine Passfedernut in eine
2 ;Welle zu fraesen und diese Nut anschliessend
3 ;an der Oberkante mit einem Formwerkzeug 
4 ;zu entgraten.
5 ;Fuer das Fraesen der Nut ist ein 
6 ;Standardzyklus programmiert. Um die
7 ;Werkzeugbahn fuer das Entgraten zu berechnen,
8 ;ist ein NC-Programm als Zyklus
9 ;definiert.
10 ;
11 BLK FORM CYLINDER Y D80 L200 DIST+0
12 ;
13 ;Werkzeugaufruf fuer das Nutfraesen
14 TOOL CALL "MILL_D6_ROUGH" Z S555
15 ;
16 ;Zyklusdefinition fuer das Nutfraesen. Als Koordinaten Oberflaeche
17 ;muss der Wellenradius definiert werden.
18 CYCL DEF 253 NUTENFRAESEN ~
   Q215=+0    ;BEARBEITUNGS-UMFANG ~
    Q218=+63   ;NUTLAENGE ~
    Q219=+22   ;NUTBREITE ~
    Q368=+0.1  ;AUFMASS SEITE ~
    Q374=+90   ;DREHLAGE ~
    Q367=+0    ;NUTLAGE ~
    Q207=+500  ;VORSCHUB FRAESEN ~
    Q351=+1    ;FRAESART ~
    Q201=-9    ;TIEFE ~
    Q202=+5    ;ZUSTELL-TIEFE ~
    Q369=+0    ;AUFMASS TIEFE ~
    Q206=+150  ;VORSCHUB TIEFENZ. ~
    Q338=+0    ;ZUST. SCHLICHTEN ~
    Q200=+2    ;SICHERHEITS-ABST. ~
    Q203=+40   ;KOOR. OBERFLAECHE ~
    Q204=+50   ;2. SICHERHEITS-ABST. ~
    Q366=+2    ;EINTAUCHEN ~
    Q385=+500  ;VORSCHUB SCHLICHTEN ~
    Q439=+3    ;BEZUG VORSCHUB
19 ;
20 L  X+0  Y-50  Z+50 R0 FMAX M3 M99 ;Positionieren und Zyklusaufruf
21 ;
22 ;Werkzeugaufruf fuer das Entgraten
23 ;Mit den Werten DL und DR bestimmen Sie den 
24 ;Schnittpunkt der Werkzeugschneide
25 TOOL CALL "NC_DEBURRING_D8" Z S555 DL-1 DR-3
26 ;
27 ;Definition vom NC-Programm 51051_de.H als
28 ;Zyklus
29 SEL CYCLE "51051_de.h"
30 ;
31 ;Parametereingabe fuer das Entgraten
Q201 = - 1 ;TIEFE
Q222 = 80 ;WELLENDURCHMESSER
Q200 = 2 ;SICHERHEITS-ABST.
Q204 = 50 ;2.SICHERHEITS-ABST.
Q207 = 300 ;VORSCHUB FRAESEN
32 ;
33 ;Die folgenden Paramter muessen Sie nur
34 ;definieren, wenn zwischen dem
35 ;Bearbeitungsschritt Nutfraesen und dem 
36 ;Entgraten weitere Zyklen abgearbeitet
37 ;werden.
38 ;Q218 = 63 ;NUTLAENGE
39 ;Q219 = 22 ;NUTBREITE
40 ;Q374 = 90 ;DREHLAGE
41 ;Q367 = 0 ;NUTLAGE
42 ;Q203 = 40 ;KOORDINATENOBERFL.
43 ;Parametereingabe Ende
44 ;
45 L  X+0  Y-50  Z+50 R0 FMAX M99 ;Positionieren und Zyklusaufruf
46 ;
47 M140 MB MAX F9999 ;Freifahren
48 M30 ;Programmende
49 ;
50 END PGM 5105_DE MM