HEIDENHAIN TNC 426B (280 472) ISO programming - Příručka (Stránka 285)

10 Programován : Q parametr 270
N200 G98 L10 *
N210 G54 X+Q1 Y+Q2 *
N220 G73 G90 H+Q8 *
N230 Q35 = (Q6 Q5) / Q7
N240 D00 Q36 P01 +Q5 *
N250 D00 Q37 P01 +0 *
N260 Q21 = Q3 * COS Q36
N270 Q22 = Q4 * SIN Q36
N280 G00 G40 X+Q21 Y+Q22 M3 *
N290 Z+Q12 *
N300 G01 Z Q9 FQ10 *
N310 G98 L1 *
N320 Q36 = Q36 + Q35
N330 Q37 = Q37 + 1
N340 Q21 = Q3 * COS Q36
N350 Q22 = Q4 * SIN Q36
N360 G01 X+Q21 Y+Q22 FQ11 *
N370 D12 P01 +Q37 P02 +Q7 P03 1 *
N380 G73 G90 H+0 *
N390 G54 X+0 Y+0 *
N400 G00 G40 Z+Q12 *
N410 G98 L0 *
N999999 %ELIPSA G71 *
Podprogram 10: Obráběn
Posunut nulového bodu do středu elipsy
Přepočet otáčen v rovině
Výpočet úhlového kroku
Kop rován startovn ho úhlu
Nastaven č tače řezů
Výpočet souřadnice X startovn ho bodu
Výpočet souřadnice Y startovn ho bodu
Najet do startovn ho bodu v rovině
Předpolohován na bezpečnou vzdálenost v ose vřetena
Najet na hloubku obráběn
Aktualizace úhlu
Aktualizace č tače řezů
Výpočet aktuáln souřadnice X
Výpočet aktuáln souřadnice Y
Najet do dalš ho bodu
Dotaz, zda nen ještě hotovo, pokud ano, pak skok na Label 1
Zrušen otáčen
Zrušen posunut nulového bodu
Najet na bezpečnou vzdálenost
Konec podprogramu
10.10 Přklady pr
ogramován
Mkap10.pm6 27.06.2006, 14:55 270