0 BEGIN PGM 3230_NL MM 
1 ;Programma om een rand aan de boring van een radius te
2 ;frezen.
3 ;De bewerking wordt uitgevoerd met een schachtfrees.
4 ;De freesbaan wordt in een lineaire cirkelbaan in
5 ;X/Z-vlak verplaatst. Het aantal lineaire stappen per
6 ;kwadrant bepaalt u met de parameter Q6. Ook definieert
7 ;u hoe vaak deze freesbaan moet worden herhaald om de
8 ;radius rondom te frezen (Q4).
9 ;
10 BLK FORM 0.1 Z X+0 Y+0 Z-30
11 BLK FORM 0.2  X+30  Y+30  Z+0
12 ;
13 ;Boren
14 ;Gereedschapsoproep boor
15 TOOL CALL 237 Z S3000 F200
16 L  Z+100 R0 FMAX M3
17 L  X+15  Y+15 R0 FMAX
18 L  Z+2 R0 FMAX
19 L  Z-20 R0 F AUTO
20 L  Z+100 R0 FMAX
21 ;
22 ;Radiussen frezen
23 ;Parameter-invoer
24 FN 0: Q1 =+15 ;MIDDELPUNT 1E AS
25 FN 0: Q2 =+15 ;MIDDELPUNT 2E AS
26 FN 0: Q3 =+10 ;BORINGSRADIUS
27 FN 0: Q4 =+100 ;AANTAL FREESBANEN
28 FN 0: Q5 =+5 ;TE MAKEN RADIUS
29 FN 0: Q6 =+30 ;DELING VAN DE FREESBANEN
30 FN 0: Q7 =+2 ;VEILIGHEIDSAFSTAND
31 FN 0: Q8 =+300 ;AANZET DIEPTEVERPLAATSING
32 FN 0: Q9 =+1200 ;AANZET FREZEN
33 ;Einde parameterinvoer
34 ;
35 ;Gereedschapsoproep schachtfrees
36 TOOL CALL 6 Z S8000
37 ;
38 ;Berekeningen
39 FN 4: Q10 =+360 DIV +Q4 ;Hoekstap vlak
40 FN 2: Q11 =+Q4 - +1 ;Aantal herhalingen in het vlak
41 FN 4: Q12 =+90 DIV +Q6 ;Hoekstap freesbaan
42 FN 2: Q13 =+Q6 - +1 ;Aantal herhalingen per freesbaan
43 FN 1: Q14 =+Q3 + +Q5 ;Radiusmiddelpunt
44 FN 2: Q15 =+Q14 - +Q108 ;Radiuscompensatie
45 ;Einde berekeningen
46 ;
47 L  X+Q1  Y+Q2 R0 F9999 M3 ;Voorpositioneren
48 L  Z+Q7 ;Naar veilige hoogte verplaatsen
49 L  Z-Q5 FQ8 ;insteken
50 ;Nulpunt naar het middelpunt schuiven
51 CYCL DEF 7.0 NULPUNT
52 CYCL DEF 7.1  X+Q1
53 CYCL DEF 7.2  Y+Q2
54 LBL 1
55 CC  X-Q15  Z-Q5 ;CC voor radius definiëren
56 LP  PR+Q5  PA+90 R0 FQ9 ;Contour benaderen
57 LBL 2
58 LP IPA-Q12 ;Lineair radiussegment verplaatsen
59 CALL LBL 2 REPQ13 ;Herhaling oproepen
60 L  Z+Q7 ;Naar veilige hoogte verplaatsen
61 L  X+0  Y+0 ;Opnieuw voorpositioneren
62 ;Rotatie in het vlak
63 CYCL DEF 10.0 ROTATIE
64 CYCL DEF 10.1 IROT+Q10
65 CALL LBL 1 REPQ11 ;Herhaling freesbaan
66 ;
67 ;DRotatie terugzetten
68 CYCL DEF 10.0 ROTATIE
69 CYCL DEF 10.1  ROT+0
70 ;Nulpunt terugzetten
71 CYCL DEF 7.0 NULPUNT
72 CYCL DEF 7.1  X+0
73 CYCL DEF 7.2  Y+0
74 CYCL DEF 7.3  Z+0
75 ;Vrijzetten en programma-einde
76 L  Z+20 R0 FMAX M2
77 END PGM 3230_NL MM