0 BEGIN PGM 1010_NL MM 
1 ;Programma voor het definiëren van een
2 ;puntenpatroon in de vorm van een ellips. Voor
3 ;de bewerking wordt op de berekende posities
4 ;een bewerkingscyclus opgeroepen. In dit
5 ;programma is een boorcyclus waarmee eerst
6 ;wordt gecentreerd en vervolgens wordt geboord.
7 ;Na de definitie van alle benodigde parameters,
8 ;van het gereedschap en de bewerkingscyclus
9 ;wordt een subprogramma opgeroepen. Hierbij
10 ;wordt eerst de gehele ellipsbaan berekend.
11 ;Deze bestaat uit afzonderlijke X- en
12 ;Y-coördinaten. De afstand van de afzonderlijke
13 ;punten - en daarmee de nauwkeurigheid van de
14 ;baan - wordt bepaald door parameter
15 ;Q5=hoekstap die de hoek tussen twee punten
16 ;vastlegt. Nadat de complete contour is berekend,
17 ;worden de afzonderlijke bewerkingsposities
18 ;bepaald en genaderd en wordt de cyclus
19 ;opgeroepen.Programma voor het definiëren van
20 ;een puntenpatroon in de vorm van een ellips.
21 ;Voor de bewerking wordt op de berekende posities
22 ;een bewerkingscyclus opgeroepen. In dit
23 ;programma is een boorcyclus waarmee eerst wordt
24 ;gecentreerd en vervolgens wordt geboord. Na de
25 ;definitie van alle benodigde parameters, van
26 ;het gereedschap en de bewerkingscyclus wordt een
27 ;subprogramma opgeroepen. Hierbij wordt eerst de
28 ;gehele ellipsbaan berekend. Deze bestaat uit
29 ;afzonderlijke X- en Y-coördinaten. De afstand
30 ;van de afzonderlijke punten - en daarmee de
31 ;nauwkeurigheid van de baan - wordt bepaald door
32 ;parameter Q5=hoekstap die de hoek tussen twee
33 ;punten vastlegt. Nadat de complete contour is
34 ;berekend, worden de afzonderlijke
35 ;bewerkingsposities bepaald en genaderd en wordt
36 ;de cyclus opgeroepen.
37 ;
38 ;Invoer parameters
39 FN 0: Q1 =+46 ;HALVE AS VAN DE ELLIPS OP DE X-AS
40 FN 0: Q2 =+20 ;HALVE AS VAN DE ELLIPS OP DE Y-AS
41 FN 0: Q5 =+0.5 ;HOEKSTAP
42 FN 0: Q6 =+15 ;ROTATIE VAN DE ELLIPS
43 FN 0: Q8 =+50 ;MIDDELPUNT VAN DE ELLIPS OP DE X-AS
44 FN 0: Q9 =+40 ;MIDDELPUNT VAN DE ELLIPS OP DE Y-AS
45 FN 0: Q12 =+2 ;VEILIGHEIDSAFSTAND
46 FN 0: Q13 =+30 ;AANTAL BEWERKINGEN
47 ;Einde parameterinvoer
48 ;
49 BLK FORM 0.1 Z X+0 Y+0 Z-20
50 BLK FORM 0.2  X+100  Y+80  Z+0
51 ;
52 ;Gereedschapsoproep NC-aanboorbeitel
53 TOOL CALL 201 Z S1000
54 ;
55 ;Definitie bewerkingscyclus
56 CYCL DEF 1.0 DIEPBOREN
57 CYCL DEF 1.1 AFSTQ12
58 CYCL DEF 1.2 DIEPTE-2.5
59 CYCL DEF 1.3 VERPL10
60 CYCL DEF 1.4 STTIJD0
61 CYCL DEF 1.5 F100
62 ;
63 CALL LBL 20 ;Oproep subprogramma posities
64 ;
65 ;Gereedschapsoproep boor
66 TOOL CALL 225 Z S1000
67 ;
68 ;Definitie bewerkingscyclus
69 CYCL DEF 1.0 DIEPBOREN
70 CYCL DEF 1.1 AFSTQ12
71 CYCL DEF 1.2 DIEPTE-20
72 CYCL DEF 1.3 VERPL10
73 CYCL DEF 1.4 STTIJD0
74 CYCL DEF 1.5 F100
75 ;
76 CALL LBL 20 ;Oproep subprogramma posities
77 ;
78 ;Terugtrekken en programma-einde
79 L  Z+100 R0 F9998 M30
80 ;
81 ;Subprogramma voor het bepalen van de posities
82 LBL 20
83 ;Nulpunt in het midden van de ellips en rotatie instellen
84 CYCL DEF 7.0 NULPUNT
85 CYCL DEF 7.1  X+Q8
86 CYCL DEF 7.2  Y+Q9
87 CYCL DEF 10.0 ROTATIE
88 CYCL DEF 10.1  ROT+Q6
89 CALL LBL 10 ;Oproep van de berekening van de totale ellips
90 FN 4: Q48 =+Q40 DIV +Q13
91 FN 0: Q50 =+Q40
92 FN 0: Q36 =+0 ;Reset parameters
93 FN 0: Q40 =+0 ;Reset parameters
94 FN 0: Q46 =+0 ;Reset parameters
95 FN 0: Q47 =+0 ;Reset parameters
96 FN 0: Q50 =+1 ;Teller
97 CALL LBL 2
98 L  X+Q21  Y+Q22 R0 F9999 M3 ;Verplaatsen naar de eerste positie
99 L  Z+Q12 M99 ;Verplaatsen naar veilige hoogte en cyclusoproep
100 LBL 21
101 FN 1: Q46 =+Q46 + +Q48
102 LBL 22
103 FN 1: Q36 =+Q36 + +Q5
104 CALL LBL 2
105 CALL LBL 3
106 FN 12: IF +Q47 LT +Q46 GOTO LBL 22
107 L  X+Q21  Y+Q22 M99 ;Verplaatsen naar positie en cyclusoproep
108 FN 1: Q50 =+Q50 + +1 ;Teller verder stapsgewijs verplaatsen
109 FN 12: IF +Q50 LT +Q13 GOTO LBL 21 ;Teller vergelijken
110 ;Rotatie en nulpunt terugzetten
111 CYCL DEF 10.0 ROTATIE
112 CYCL DEF 10.1  ROT+0
113 CYCL DEF 7.0 NULPUNT
114 CYCL DEF 7.1  X+0
115 CYCL DEF 7.2  Y+0
116 LBL 0
117 ;
118 ;Berekening van de ellips
119 LBL 10
120 FN 0: Q40 =+0
121 FN 0: Q36 =+0 ;Starthoek
122 FN 0: Q4 =+360 ;Eindhoek
123 CALL LBL 2
124 LBL 1
125 FN 1: Q36 =+Q36 + +Q5 ;Hoek verder rekenen
126 CALL LBL 2
127 CALL LBL 3
128 FN 12: IF +Q36 LT +Q4 GOTO LBL 1 ;Vergelijking actuele hoek ten opzichte van eindhoek
129 FN 0: Q36 =+Q4
130 CALL LBL 2
131 LBL 0
132 LBL 2 ;Coördinaten berekening
133 FN 7: Q21 = COS +Q36
134 FN 3: Q21 =+Q21 * +Q1
135 FN 6: Q22 = SIN +Q36
136 FN 3: Q22 =+Q22 * +Q2
137 LBL 0
138 LBL 3 ;Hoek en coördinaten berekenen
139 FN 1: Q37 =+Q36 + +Q5
140 FN 7: Q31 = COS +Q37
141 FN 3: Q31 =+Q31 * +Q1
142 FN 6: Q32 = SIN +Q37
143 FN 3: Q32 =+Q32 * +Q2
144 FN 2: Q34 =+Q31 - +Q21
145 FN 2: Q35 =+Q32 - +Q22
146 FN 8: Q39 =+Q35 LEN +Q34
147 FN 1: Q40 =+Q40 + +Q39
148 FN 1: Q47 =+Q40 + +0
149 LBL 0
150 END PGM 1010_NL MM