0 BEGIN PGM 3200_NL MM 
1 ;NC-programma voor het maken van een
2 ;kabeldoorvoer. Deze bestaat uit een boring
3 ;en een sleuf, die als knikbeveiliging met
4 ;een radius worden afgerond. De bewerking
5 ;vindt plaats met niet meer dan één
6 ;gereedschap.
7 ;Aan het begin van het programma definieert
8 ;u alle voor de bewerking benodigde parameters
9 ;en het gereedschap. Hierbij moet erop worden
10 ;gelet dat het loodrecht kan insteken en de
11 ;snijkantlengte in de gereedschapsas langer is
12 ;dan de afrondingsradius die moet worden gemaakt.
13 ;Vervolgens positioneert de besturing het
14 ;gereedschap op de boorpositie en daarna op de
15 ;veiligheidsafstand. Vervolgens verplaatst de
16 ;besturing het gereedschap met de gedefinieerde
17 ;booraanzet naar de boordiepte. Wanneer deze
18 ;bereikt is, trekt het gereedschap zich terug
19 ;naar de diepte van de sleuf en beweegt dan, in
20 ;de aanzet van de frees, met de sleuflengte.
21 ;Houd er rekening mee dat deze beweging altijd
22 ;in X+ richting plaatsvindt. De richting van de
23 ;sleuf wordt met de parameter Rotatie
24 ;gedefinieerd. Wanneer het eindpunt van de sleuf
25 ;is bereikt, verplaatst de besturing het
26 ;gereedschap naar de veiligheidsafstand en
27 ;daarna weer naar het middelpunt van de boring.
28 ;Daar wordt het gereedschap op de Z-as naar het
29 ;startpunt van de radius verplaatst.
30 ;De radius deelt de besturing in afzonderlijke
31 ;lineaire programmadelen en nadert deze in een
32 ;herhaling van een programmadeel. Het aantal
33 ;banen legt u in parameter Q12 vast.
34 ;
35 ;
36 ;
37 BLK FORM 0.1 Z X-10 Y-10 Z-30
38 BLK FORM 0.2  X+30  Y+10  Z+0
39 ;
40 ;EINVOER
41 FN 0: Q1 =+0 ;X-POSITIE BORING
42 FN 0: Q2 =+0 ;Y-POSITIE BORING
43 FN 0: Q3 =+10 ;ROTATIEPOSITIE
44 FN 0: Q4 =+2 ;VEILIGHEIDSAFSTAND
45 FN 0: Q5 =-30 ;BOORDIEPTE
46 FN 0: Q6 =+300 ;AANZET DIEPTEVERPLAATSING
47 FN 0: Q7 =-5 ;DIEPTE SLEUF
48 FN 0: Q8 =+6000 ;AANZET TERUGTREKKEN
49 FN 0: Q9 =+20 ;LENGTE SLEUF
50 FN 0: Q10 =+1000 ;AANZET FREZEN
51 FN 0: Q11 =+10 ;AFRONDINGSRADIUS
52 FN 0: Q12 =+45 ;AANTAL STAPPEN IN RADIUS
53 ;EINDE INVOER
54 ;
55 ;Gereedschapsoproep frees
56 TOOL CALL 5 Z S9000
57 L  Z+100 R0 FMAX M3 ;Vrijzetten
58 ;
59 ;Berekeningen
60 FN 2: Q21 =+Q7 - +Q11 ;Cirkelmiddelpunt Z
61 FN 4: Q22 =+90 DIV +Q12 ;Hoekstap
62 FN 2: Q23 =+Q12 - +1 ;Aantal herhalingen
63 ;Einde berekeningen
64 ;
65 ;Nulpunt naar het middelpunt van de boring verschuiven
66 CYCL DEF 7.0 NULPUNT
67 CYCL DEF 7.1  X+Q1
68 CYCL DEF 7.2  Y+Q2
69 ;rotatie
70 CYCL DEF 10.0 ROTATIE
71 CYCL DEF 10.1  ROT+Q3
72 ;
73 L  X+0  Y+0 R0 FMAX ;Voorpositioneren naar het middelpunt van de boring
74 L  Z+Q4 F9999 ;Naar veiligheidsafstand verplaatsen
75 L  Z+Q5 FQ6 ;Boren
76 L  Z+Q7 FQ8 ;Terugtrekking naar sleufdiepte
77 L  X+Q9 FQ10 ;Frezen sleuf
78 L  Z+Q4 FQ8 ;Terugtrekken naar veiligheidsafstand
79 L  X+0  Y+0 R0 FMAX ;Voorpositioneren naar het middelpunt van de boring
80 CC  Z+Q21  X+Q11 ;Middelpunt radius
81 LP  PR+Q11  PA-90 R0 FQ6 ;Startpunt van de radius naderen
82 LBL 2 ;Lus
83 LP IPA+Q22 FQ10 ;Hoekstap naderen
84 CALL LBL 2 REPQ23 ;Herhaling lus
85 L  Z+Q4 R0 FMAX ;Naar veiligheidsafstand verplaatsen
86 L  Z+100 R0 FMAX M5 ;Vrijzetten
87 ;
88 ;Nulpuntverschuiving en rotatie terugzetten
89 CYCL DEF 10.0 ROTATIE
90 CYCL DEF 10.1  ROT+0
91 CYCL DEF 7.0 NULPUNT
92 CYCL DEF 7.1  X+0
93 CYCL DEF 7.2  Y+0
94 CYCL DEF 7.3  Z+0
95 M30 ;Einde van programma
96 END PGM 3200_NL MM