0 BEGIN PGM 4020_NL MM 
1 ;Programma voor de bewerking van een 3D-rechtlijnig
2 ;vlak.
3 ;Het gereedschap wordt daarbij over vijf assen
4 ;verplaatst. Deze vijfassige beweging is
5 ;onafhankelijk van de kinematica, alleen het
6 ;terugzwenken van de assen dient u op de machine
7 ;aan te passen.
8 ;
9 ;Invoer parameters
10 FN 0: Q1 =+0 ;X-COÖRDINAAT 1E PUNT
11 FN 0: Q2 =+0 ;Y-COÖRDINAAT 1E PUNT
12 FN 0: Q3 =-10 ;Z-COÖRDINAAT 1E PUNT
13 FN 0: Q4 =+60 ;X-COÖRDINAAT 2E PUNT
14 FN 0: Q5 =+0 ;Y-COÖRDINAAT 2E PUNT
15 FN 0: Q6 =-25 ;Z-COÖRDINAAT 2E PUNT
16 FN 0: Q7 =+60 ;X-COÖRDINAAT 3E PUNT
17 FN 0: Q8 =+60 ;Y-COÖRDINAAT 3E PUNT
18 FN 0: Q9 =-10 ;Z-COÖRDINAAT 3E PUNT
19 FN 0: Q10 =+0 ;X-COÖRDINAAT 4E PUNT
20 FN 0: Q11 =+60 ;Y-COÖRDINAAT 4E PUNT
21 FN 0: Q12 =-5 ;Z-COÖRDINAAT 4E PUNT
22 FN 0: Q20 =+500 ;AANZET DIEPTEVERPLAATSING
23 FN 0: Q21 =+1500 ;AANZET FREZEN
24 FN 0: Q22 =+1000 ;AANZET ZIJDELINGSE VERPLAATSING
25 FN 0: Q27 =+1200 ;AANZET TERUGTREKKEN
26 FN 0: Q28 =+9999 ;AANZET VOORPOSITIONEREN
27 FN 0: Q23 =+1 ;OVERMAAT DIEPTE
28 FN 0: Q24 =+30 ;INCREMENTELE HOOGTE BIJ HET POSITIONEREN
29 FN 0: Q25 =+50 ;VEILIGHEIDSAFSTAND
30 FN 0: Q26 =+40 ;AANTAL SNEDEN
31 FN 0: Q29 =+2 ;VOORBEWERKINGSFACTOR
32 ;Einde parameterinvoer
33 ;
34 BLK FORM 0.1 Z X+0 Y+0 Z-60
35 BLK FORM 0.2  X+60  Y+60  Z+0
36 ;
37 ;Gereedschapsoproep schachtfrees (voorbewerken)
38 TOOL CALL 11 Z S15000
39 ;
40 ;Programma 40201_nl.h als cyclus definiëren
41 CYCL DEF 12.0 PGM CALL
42 CYCL DEF 12.1 PGM 40201_nl.H
43 ;
44 L  A+0  C+0 R0 FQ28 ;Zwenkassen naar nul verplaatsen
45 L  Z+100 R0 FQ28 M3 ;Naar veilige hoogte verplaatsen
46 CALL LBL 21 ;Berekeningen oproepen
47 L  X+Q1  Y+Q2 FQ28 M99 ;Startpositie benaderen en cyclus oproepen
48 ;
49 L  A+0  C+0 R0 FQ28 ;Zwenkassen naar nul verplaatsen
50 M129 ;Functie TCPM deactiveren
51 ;
52 ;Gereedschapsoproep schachtfrees (nabewerken)
53 TOOL CALL 24 Z S18000
54 ;
55 ;Parameters invoeren die voor het nabewerken
56 ;veranderen.
57 FN 0: Q20 =+500 ;AANZET DIEPTEVERPLAATSING
58 FN 0: Q21 =+1200 ;AANZET FREZEN
59 FN 0: Q22 =+1000 ;AANZET ZIJDELINGSE VERPLAATSING
60 FN 0: Q27 =+1200 ;AANZET TERUGTREKKEN
61 FN 0: Q28 =+9999 ;AANZET VOORPOSITIONEREN
62 FN 0: Q23 =+0 ;OVERMAAT
63 FN 0: Q29 =+1 ;VOORBEWERKINGSFACTOR
64 ;Einde parameterinvoer
65 ;
66 L  Z+100 R0 FQ28 M3 ;Naar veilige hoogte verplaatsen
67 CALL LBL 21 ;Berekeningen oproepen
68 L  X+Q1  Y+Q2 R0 FQ28 M99 ;Startpositie benaderen en cyclus oproepen
69 L  Z+100 R0 FMAX M5 ;Vrijzetten
70 L  A+0  C+0 R0 FQ28 ;Zwenkassen naar nul verplaatsen
71 FUNCTION RESET TCPM ;Functie TCPM resetten
72 L  Z+100 R0 FQ28 M30 ;Einde van programma
73 ;
74 LBL 21 ;Berekeningen
Q1013 = ATAN ( ( Q3 - Q6 ) / ( Q4 - Q1 ) )
Q1014 = ATAN ( ( Q9 - Q6 ) / ( Q8 - Q5 ) )
Q1015 = ATAN ( ( Q12 - Q9 ) / ( Q7 - Q10 ) )
Q1016 = ATAN ( ( Q12 - Q3 ) / ( Q11 - Q2 ) )
75 CC  X+Q9  Y+Q1013
76 LBL 0
77 END PGM 4020_NL MM