Advertenties
18 L Z+100 R0 FMAX M2
19 LBL 10
20 CYCL DEF 7.0 NULPUNT
21 CYCL DEF 7.1 X+Q1
22 CYCL DEF 7.2 Y+Q2
23 CYCL DEF 10.0 ROTATIE
24 CYCL DEF 10.1 ROT+Q8
25 Q35 = (Q6 - Q5) / Q7
26 Q36 = Q5
27 Q37 = 0
28 Q21 = Q3 * COS Q36
29 Q22 = Q4 * SIN Q36
30 L X+Q21 Y+Q22 R0 FMAX M3
31 L Z+Q12 R0 FMAX
32 L Z-Q9 R0 FQ10
33 LBL 1
34 Q36 = Q36 + Q35
35 Q37 = Q37 + 1
36 Q21 = Q3 * COS Q36
37 Q22 = Q4 * SIN Q36
38 L X+Q21 Y+Q22 R0 FQ11
39 FN 12: IF +Q37 LT +Q7 GOTO LBL 1
40 CYCL DEF 10.0 ROTATIE
41 CYCL DEF 10.1 ROT+0
42 CYCL DEF 7.0 NULPUNT
43 CYCL DEF 7.1 X+0
44 CYCL DEF 7.2 Y+0
45 L Z+Q12 R0 FMAX
46 LBL 0
47 END PGM ELLIPS MM
HEIDENHAIN TNC 620
Gereedschap terugtrekken, einde programma
Subprogramma 10: bewerking
Nulpunt naar het centrum van de ellips verschuiven
Rotatiepositie in het vlak verrekenen
Hoekstap berekenen
Starthoek kopiëren
Teller voor het aantal sneden vastleggen
X-coördinaat van het startpunt berekenen
Y-coördinaat van het startpunt berekenen
Startpunt benaderen in het vlak
Voorpositioneren naar veiligheidsafstand in de spilas
Naar bewerkingsdiepte verplaatsen
Hoek actualiseren
Teller voor het aantal sneden actualiseren
Actuele X-coördinaat berekenen
Actuele Y-coördinaat berekenen
Volgende punt benaderen
Niet klaar? Indien niet klaar, dan terugspringen naar LBL 1
Rotatie terugzetten
Nulpuntverschuiving terugzetten
Naar veiligheidsafstand verplaatsen
Einde subprogramma
453
Advertenties
