20 CALL LBL 10
21 L Z+100 R0 FMAX M2
22 LBL 10
23 Q16 = Q6 - Q10 - Q108
24 FN 0: Q20 = +1
25 FN 0: Q24 = +Q4
26 Q25 = (Q5 - Q4) / Q13
27 CYCL DEF 7.0 NULPUNT
28 CYCL DEF 7.1 X+Q1
29 CYCL DEF 7.2 Y+Q2
30 CYCL DEF 7.3 Z+Q3
31 CYCL DEF 10.0 ROTATIE
32 CYCL DEF 10.1 ROT+Q8
33 L X+0 Y+0 R0 FMAX
34 L Z+5 R0 F1000 M3
35 LBL 1
36 CC Z+0 X+0
37 LP PR+Q16 PA+Q24 FQ11
38 L Y+Q7 R0 FQ12
39 FN 1: Q20 = +Q20 + +1
40 FN 1: Q24 = +Q24 + +Q25
41 FN 11: IF +Q20 GT +Q13 GOTO LBL 99
42 LP PR+Q16 PA+Q24 FQ11
43 L Y+0 R0 FQ12
44 FN 1: Q20 = +Q20 + +1
45 FN 1: Q24 = +Q24 + +Q25
46 FN 12: IF +Q20 LT +Q13 GOTO LBL 1
47 LBL 99
48 CYCL DEF 10.0 ROTATIE
49 CYCL DEF 10.1 ROT+0
50 CYCL DEF 7.0 NULPUNT
51 CYCL DEF 7.1 X+0
52 CYCL DEF 7.2 Y+0
53 CYCL DEF 7.3 Z+0
54 LBL 0
55 END PGM CILIN
HEIDENHAIN iTNC 530
Bewerking oproepen
Gereedschap terugtrekken, einde programma
Subprogramma 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
Ruimtelijke hoek actualiseren
Klaar? Ja, dan naar het einde springen
Langs benaderde "boog" verplaatsen voor volgende snede in
lengterichting
Snede in lengterichting Y–
Teller voor het aantal sneden actualiseren
Ruimtelijke hoek actualiseren
Niet klaar? Indien niet klaar, dan terugspringen naar LBL 1
Rotatie terugzetten
Nulpuntverschuiving terugzetten
Einde subprogramma
659