HEIDENHAIN TNC 426 (280 462) - Příručka (Stránka 253)

10 Programován : Q parametry 240
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 NULOVY BOD
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 OTACENI
32 CYCL DEF 10.1 ROT+Q8
33 L X+0 Y+0 R0 F MAX
34 L Z+5 R0 F1000 M3
35 CC Z+0 X+0
36 LP PR+Q16 PA+Q24 FQ11
37 LBL 1
38 L Y+Q7 R0 FQ11
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 FQ12
43 L Y+0 R0 FQ11
44 FN 1: Q24 = +Q24 + +Q25
45 FN 1: Q20 = +Q20 + +1
46 FN 12: IF +Q20 LT +Q13 GOTO LBL 1
47 LBL 99
48 CYCL DEF 10.0 OTACENI
49 CYCL DEF 10.1 ROT+0
50 CYCL DEF 7.0 NULOVY BOD
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 VALEC MM
Podprogram 10: obráběn
Výpočet př davku a nástroje vztažený k poloměru válce
Nastavit č tač řezů
Zkop rovat prostorový startovac úhel (rovina Z/X)
Výpočet úhlového kroku
Posunout nulový bod do středu válce (osa X)
Výpočet polohy otočen v rovině
Předpolohován v rovině do středu válce
Předpolohován v ose vřetena
Nastaven pólu v rovině Z/X
Najet do startovac polohy na válci, šikmo zap chnout do materiálu
Řez po délce ve směru Y+
Aktualizace č tače řezů
Aktualizace prostorového úhlu
Dotaz, zda je již hotovo, pokud ano, pak skok na konec
Přibližným “obloukem” najet pro dalš řez po délce
Řez po délce ve směru Y–
Aktualizace č tače řezů
Aktualizace prostorového úhlu
Dotaz zda nen hotovo, pokud ano, pak skok zpět na LBL 1
Zrušit otočen
Zrušit posunut nulového bodu
Konec podprogramu
10.10 Přklady pr
ogramován