22
LBL
0
23
Q 6 = Q6 - Q 0 - Q 08
24
FN 0: Q20 = +
25
FN 0: Q24 = +Q4
26
Q25 = (Q5 - Q4) / Q 3
27
CYCL DEF 7.0 NULPUNT
28
CYCL DEF 7.
X+Q
29
CYCL DEF 7.2 Y+Q2
30
CYCL DEF 7.3 Z+0
3
CYCL DEF
0.0 ROTATIE
32
CYCL DEF
0.
ROT+Q8
33
L X+0 Y+0 R0 F MAX
34
L Z+5 R0 F 000 M3
35
CC Z+0 X+0
36
LP PR+Q 6 PA+Q24 FQ
37
LBL
38
L Y+Q7 R0 FQ
39
FN
: Q20 = +Q20 + +
40
FN
: Q24 = +Q24 + +Q25
4
FN
: IF +Q20 GT +Q 3 GOTO LBL 99
42
LP PR+Q 6 PA+Q24 FQ 2
43
L Y+0 R0 FQ
44
FN
: Q20 = +Q20 + +
45
FN
: Q24 = +Q24 + +Q25
46
FN
2: IF +Q20 LT +Q 3 GOTO LBL
47
LBL 99
48
CYCL DEF
0.0 ROTATIE
49
CYCL DEF
0.
ROT+0
50
CYCL DEF 7.0 NULPUNT
5
CYCL DEF 7.
X+0
52
CYCL DEF 7.2 Y+0
53
CYCL DEF 7.3 Z+0
54
LBL 0
55
END PGM CILIN MM
248
Onderprogramma 10: bewerking
Overmaat en gereedschap gerelateerd aan cilinderradius verrekenen
Teller voor het aantal sneden vastleggen
Starthoek werkbereik (vlak Z/X) kopiëren
Hoekstap berekenen
Nulpunt naar het midden van de cilinder (X-as) verschuiven
Rotatiepositie in het vlak verrekenen
Voorpositioneren in het vlak naar het midden van de cilinder
Voorpositioneren in de spilas
Pool vastleggen in het Z/X-vlak
Startpositie op cilinder benaderen, schuin in het materiaal instekend
Snede in lengterichting Y+
Teller voor het aantal sneden actualiseren
Uitruimhoek actualiseren
Klaar ? Ja, dan naar het einde springen
Langs benaderde "boog" verpl. voor volgende snede in lengtericht.
Snede in lengterichting Y–
Teller voor het aantal sneden actualiseren
Uitruimhoek actualiseren
Niet klaar ? Nee, dan terugspringen naar LBL 1
Rotatie terugzetten
Nulpuntverschuiving terugzetten
Einde onderprogramma
10 Programmeren: Q-parameters