HEIDENHAIN TNC 310 (286 140) - Příručka (Stránka 191)

179 HEIDENHAIN TNC 310
20 LBL 10
21 CYCL DEF 7.0 NULOVY BOD
22 CYCL DEF 7.1 X+Q1
23 CYCL DEF 7.2 Y+Q2
24 CYCL DEF 10.0 NATOCENI
25 CYCL DEF 10.1 ROT+Q8
26 Q35 = (Q6 Q5) / Q7
27 Q36 = Q5
28 Q37 = 0
29 Q21 = Q3 * COS Q36
30 Q22 = Q4 * SIN Q36
31 L X+Q21 Y+Q22 R0 FMAX M3
32 L Z+Q12 R0 FMAX
33 L Z Q9 R0 FQ10
34 LBL 1
35 Q36 = Q36 + Q35
36 Q37 = Q37 + 1
37 Q21 = Q3 * COS Q36
38 Q22 = Q4 * SIN Q36
39 L X+Q21 Y+Q22 R0 FQ11
40 FN 12: IF +Q37 LT +Q7 GOTO LBL 1
41 CYCL DEF 10.0 NATOCENI
42 CYCL DEF 10.1 ROT+0
43 CYCL DEF 7.0 NULOVY BOD
44 CYCL DEF 7.1 X+0
45 CYCL DEF 7.2 Y+0
46 L Z+Q12 R0 FMAX
47 LBL 0
48 END PGM ELIPSA MM
Podprogram 10: Obráběn
Posunut nulového bodu do středu elipsy
Přepočet natočen v rovině
Výpočet úhlového kroku
Kop rován úhlu startu
Nastaven č tače řezů
Výpočet souřadnice X bodu startu
Výpočet souřadnice Y bodu startu
Najet do bodu startu 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 ještě nehotovo, je li tomu tak, pak skok na LBL 1
Zrušen natočen
Zrušen posunut nulového bodu
Odjet na bezpečnou vzdálenost
Konec podprogramu
10.10 Přklady pr
ogramován