fil-styring - heidenhain

20 LBL 10 Underprogram 10: Bearbejdning
21 CYCL DEF 7.0 NULPUNKT Forskydning af nulpunkt i centrum af ellipsen
22 CYCL DEF 7.1 X+Q1
23 CYCL DEF 7.2 Y+Q2
24 CYCL DEF 10.0 DREJNING Beregning af drejeposition i planet
25 CYCL DEF 10.1 ROT+Q8
26 Q35 = (Q6 - Q5) / Q7 Beregning af vinkelskridt
27 Q36 = Q5 Kopiering af startvinkel
28 Q37 = 0 Fastsættelse af tæller af fræsetrin
29 Q21 = Q3 * COS Q36 Beregning af X-koordinat til startpunkt
30 Q22 = Q4 * SIN Q36 Beregning af Y-koordinat til startpunkt
31 L X+Q21 Y+Q22 R0 FMAX M3 Kørsel til startpunkt i planet
32 L Z+Q12 R0 FMAX Forpositionering af sikkerheds-afstand i spindelaksen
33 L Z-Q9 R0 FQ10 Kør til bearbejdningsdybde
34 LBL 1
35 Q36 = Q36 + Q35 Aktualisering af vinkel
36 Q37 = Q37 + 1 Aktualisering af fræsetrin-tæller
37 Q21 = Q3 * COS Q36 Beregning af aktuel X-koordinat
38 Q22 = Q4 * SIN Q36 Beregning af aktuel Y-koordinat
39 L X+Q21 Y+Q22 R0 FQ11 Kørsel til næste punkt
40 FN 12: IF +Q37 LT +Q7 GOTO LBL 1 Spørg om ufærdig, hvis ja så spring tilbage til LBL 1
41 CYCL DEF 10.0 DREJNING Tilbagestilling af drejning
42 CYCL DEF 10.1 ROT+0
43 CYCL DEF 7.0 NULPUNKT Tilbagestilling af nulpunkt-forskydning
44 CYCL DEF 7.1 X+0
45 CYCL DEF 7.2 Y+0
46 L Z+Q12 F0 FMAX Kørsel til sikkerheds-afstand
47 LBL 0 Underprogram-slut
48 END PGM ELLIPS MM
HEIDENHAIN iTNC 530 517
11.11 Programmerings-eksempler