0 BEGIN PGM 1035_NL MM 
1 ;Boorprocedure met exponentiële afname van de
2 ;diepteinstelling.
3 ;In de eerste stap wordt met een gedefinieerde
4 ;diepte-instelling geboord. In de volgende
5 ;verplaatsingen wordt de diepte-instelling
6 ;exponentieel verlaagd, totdat de minimale
7 ;diepte-instelling is bereikt. Alle daarna nog
8 ;volgende verplaatsingen worden dan met deze
9 ;minimale aanzet verplaatst. De verplaatsingen
10 ;worden herhaald totdat de boordiepte is bereikt.
11 ;Na de verplaatsingen wordt naar
12 ;veiligheidsafstand via de bodem van de boring
13 ;teruggetrokken. Wanneer een door de operator
14 ;gedefinieerd aantal verplaatsingen is bereikt,
15 ;wordt het gereedschap compleet uit de boring
16 ;getrokken, om te verspanen.
17 ;De berekeningen en baanbewegingen voor de
18 ;boorprocedure staan in een afzonderlijk
19 ;hoofdprogramma, dat in een cyclus12 is
20 ;gedefinieerd en vervolgens met een M99 op de
21 ;boorpositie wordt opgeroepen. In dit programma
22 ;worden de benodigde parameters, het gereedschap
23 ;en de boorposities gedefinieerd waarop u met M99
24 ;of Cycl Call cyclus 12 oproept. In het tweede
25 ;programma hoeven geen wijzigingen te worden
26 ;uitgevoerd.
27 ;
28 BLK FORM 0.1 Z X+0 Y-10 Z-40
29 BLK FORM 0.2  X+40  Y+10  Z+0
30 ;
31 ;Invoer parameters
32 FN 0: Q1 =+1 ;VEILIGHEIDSAFSTAND
33 FN 0: Q2 =-40 ;DIEPTE
34 FN 0: Q3 =-8 ;1. DIEPTE-INSTELLING
35 FN 0: Q4 =+1 ;STILSTANDTIJD BOVEN
36 FN 0: Q5 =+200 ;AANZET DIEPTEVERPLAATSING
37 FN 0: Q6 =+0 ;COÖRDINATEN OPPERVLAK
38 FN 0: Q7 =+15 ;2. VEILIGHEIDSAFSTAND
39 FN 0: Q8 =+0.5 ;DEGRESSIEFACTOR
40 FN 0: Q9 =+3 ;AANTAL VERPLAATSINGEN TOT
41 ;            ;TERUGTREKKEN VOOR VERSPANEN
42 FN 0: Q10 =-5 ;MINIMALE DIEPTE-INSTELLING
43 FN 0: Q11 =+1 ;STILSTANDTIJD ONDER
44 ;Invoer parameters afgesloten
45 ;
46 ;Gereedschapsoproep boor
47 TOOL CALL 223 Z S1000
48 ;
49 ;Verplaatsen naar veilige hoogte
50 L  Z+20 R0 F9998 M3
51 ;
52 ;Boorvolgorde als cyclus definiëren
53 CYCL DEF 12.0 PGM CALL
54 CYCL DEF 12.1 PGM 10351_nl.H
55 ;
56 ;Boorpositie benaderen en cyclus oproepen
57 L  X+5  Y+0 R0 M99
58 L  X+30 M99
59 ;
60 ;Terugtrekken en programma-einde
61 L  Z+20 M2
62 END PGM 1035_NL MM