0 BEGIN PGM 3085_NL MM 
1 ;NC-programma om een concaaf boogsegment te
2 ;maken. Het is mogelijk aan het begin en het
3 ;einde van de boog verschillende radiussen
4 ;voor het profiel te definiëren.
5 ;Verder kunnen de start- en eindhoek in het
6 ;profiel, evenals in het X/Y-vlak variabel
7 ;worden gedefinieerd.
8 ;Aan het begin van het NC-programma definieert
9 ;u het gereedschap en alle voor de bewerking
10 ;benodigde parameters. Vervolgens roept de
11 ;besturing een volgens NC-programma op. Daarin
12 ;worden alle berekeningen en baanbewegingen
13 ;uitgevoerd. U hoeft het opgeroepen NCprogramma
14 ;niet te wijzigen.
15 ;In dit voorbeeld is de bewerking in twee stappen
16 ;geprogrammeerd. Daarvoor zijn na de eerste
17 ;programmaoproep de parameters die voor de
18 ;nabewerking moeten worden gewijzigd opnieuw
19 ;gedefinieerd en het NCprogramma voor de
20 ;bewerking wordt een tweede keer opgeroepen.
21 ;
22 BLK FORM 0.1 Z X+0 Y+0 Z-40
23 BLK FORM 0.2  X+200  Y+100  Z+0
24 ;
25 TOOL CALL "BALL_MILL_D10" Z S2800
26 TOOL CALL  Z DL-Q108
27 L  Z+20 R0 F9998 M3
28 ;Parameter-invoer
29 ;Algemene parameters
30 FN 0: Q1 =+100 ;BOOGMIDDELPUNT X
31 FN 0: Q2 =+0 ;BOOGMIDDELPUNT Y
32 FN 0: Q3 =+0 ;BOOGMIDDELPUNT Z
33 FN 0: Q6 =+25 ;STARTRADIUS VAN DE CONTOUR IN HET X/Z-VLAK
34 FN 0: Q16 =+10 ;EINDRADIUS VAN DE CONTOUR IN HET X/Z-VLAK
35 FN 0: Q7 =+90 ;STARTHOEK VAN DE CONTOUR IN HET X/Z-VLAK
36 FN 0: Q17 =+270 ;EINDHOEK VAN DE CONTOUR IN HET X/Z-VLAK
37 FN 0: Q8 =+0 ;STARTHOEK VAN DE CONTOUR IN HET X/Y-VLAK
38 FN 0: Q18 =+180 ;EINDHOEK VAN DE CONTOUR IN HET X/Y-VLAK
39 FN 0: Q10 =+60 ;RADIUS OP HET MIDDELPUNT VAN DE CONTOUR IN HET X/Y-VLAK
40 FN 0: Q25 =+10 ;VEILIGHEIDSAFSTAND
41 FN 0: Q26 =+100 ;AANTAL SNEDEN
42 FN 0: Q27 =+50 ;AANTAL LINEAIRE ELEMENTEN PER SNEDE
43 ;
44 ;Parameter voorbewerking
45 FN 0: Q20 =+100 ;AANZET DIEPTEVERPLAATSING
46 FN 0: Q21 =+300 ;AANZET FREZEN
47 FN 0: Q22 =+300 ;AANZET VOORPOSITIONERING
48 FN 0: Q23 =+8 ;OVERMAAT OP DE Z-AS
49 FN 0: Q29 =+2 ;VOORBEWERKINGSFACTOR
50 ;Einde parameterinvoer
51 ;
52 ;Berekening radiuscorrectie
53 FN 2: Q6 =+Q6 - +Q108
54 FN 2: Q16 =+Q16 - +Q108
55 ;
56 ;Gereedschap voorpositioneren
57 L  X+Q1  Y+Q2 R0 F9999
58 ;
59 ;Programma-oproep voor de bewerking
60 CALL PGM 30851_nl
61 ;
62 ;Parameter nabewerking
63 FN 0: Q20 =+200 ;AANZET DIEPTEVERPLAATSING
64 FN 0: Q21 =+500 ;AANZET FREZEN
65 FN 0: Q22 =+1000 ;AANZET VOORPOSITIONERING
66 FN 0: Q23 =+0 ;OVERMAAT OP DE Z-AS
67 FN 0: Q29 =+1 ;VOORBEWERKINGSFACTOR
68 ;Einde parameterinvoer
69 ;
70 ;Gereedschap voorpositioneren
71 L  X+Q1  Y+Q2 R0 F9999
72 ;
73 ;Programma-oproep voor de bewerking
74 CALL PGM 30851_nl
75 ;
76 ;Vrijzetten en programma-einde
77 L  Z+50 R0 F9998 M2
78 END PGM 3085_NL MM