0 BEGIN PGM 4230_NL MM 
1 ;NC-programma om een transportschroef te
2 ;bewerken. Door de vorm van het object met
3 ;zijn ondersnijdingen moet het gereedschap
4 ;tijdens de bewerking schuin worden ingesteld.
5 ;Omdat bij het frezen van de radiussen een
6 ;compensatiebeweging van een van de rondassen
7 ;moet plaatsvinden, is de functie TCPM gebruikt.
8 ;De bewerking is in drie stappen opgedeeld:
9 ;voorbewerken, prefinishen en nabewerken.
10 ;In dit hoofdprogramma definieert u alle
11 ;benodigde parameters en gereedschappen.
12 ;Eerst definieert u enkele algemene parameters.
13 ;Vervolgens definieert u voor elke bewerkingsstap
14 ;het gereedschap en enkele parameters. Na het
15 ;definiëren volgt de oproep van nog een
16 ;NC-programma. Hierin berekent de besturing alle
17 ;overige gebruikte gegevens en bewerkt het object.
18 ;De contour van het object in het vlak X/Y is ook
19 ;in het opgeroepen programma geprogrammeerd.
20 ;Belangrijk! De bewerking moet met kogelfrezen
21 ;worden uitgevoerd. Bovendien moet er rekening mee
22 ;worden gehouden dat dit programma voor een machine
23 ;met kinematica B-kop en C-tafel is gemaakt.
24 ;
25 BLK FORM 0.1 Z X-35 Y-35 Z-40
26 BLK FORM 0.2  X+35  Y+35  Z+0
27 ;
28 ;Parameterinvoer
29 FN 0: Q9 =+3 ;STARTPUNT OP DE Z-AS
30 FN 0: Q1 =-40 ;EINDPUNT OP DE Z-AS
31 FN 0: Q2 =+45 ;ROTATIE VAN DE CONTOUR
32 FN 0: Q5 =+25 ;VEILIGE HOOGTE
33 FN 0: Q6 =+45 ;VEILIGE RADIUS
34 ;
35 ;Voorbewerken
36 ;
37 ;Gereedschapsoproep voor het voorbewerken
38 TOOL CALL "BALL_MILL_D10" Z S3000 F1000
39 TOOL CALL  DL-Q108 ;Lengtecompensatie in het middelpunt van de kogel
40 ;
41 ;Parameters voor de voorbewerking
42 FN 0: Q3 =-2 ;DIEPTE-INSTELLING
43 FN 0: Q4 =+90 ;INVALSHOEK VAN DE B-AS
44 FN 0: Q7 =+5 ;OVERMAAT
45 CALL PGM 42301_nl.h
46 ;
47 ;Gereedschapsoproep voor het pre-finishen
48 TOOL CALL "BALL_MILL_D8" Z S18000 F1000
49 TOOL CALL  DL-Q108 ;Lengtecompensatie in het middelpunt van de kogel
50 ;
51 ;Parameters voor het pre-finishen
52 FN 0: Q3 =-1 ;DIEPTE-INSTELLING
53 FN 0: Q4 =+75 ;INVALSHOEK VAN DE B-AS
54 FN 0: Q7 =+1 ;OVERMAAT
55 CALL PGM 42301_nl.h
56 ;
57 ;Gereedschapsoproep voor het nabewerken
58 TOOL CALL "BALL_MILL_D6" Z S20000 F600
59 TOOL CALL  DL-Q108 ;Lengtecompensatie in het middelpunt van de kogel
60 ;
61 ;Parameters voor het nabewerken
62 FN 0: Q3 =-0.5 ;DIEPTE-INSTELLING
63 FN 0: Q4 =+60 ;INVALSHOEK VAN DE B-AS
64 FN 0: Q7 =+0 ;OVERMAAT
65 CALL PGM 42301_nl.h
66 ;
67 ;Programmende
68 M30
69 END PGM 4230_NL MM