HEIDENHAIN iTNC 530 (340 420) - Příručka (Stránka 444)

418 10 Programován : Q parametry
10.11 Př
k
la
dy pr
o
gra
m
ován
20 CALL LBL 10 Vyvolán obráběn
21 L Z+100 R0 FMAX M2 Vyjet nástroje, konec programu
22 LBL 10 Podprogram 10: obráběn
23 Q16 = Q6 Q10 Q108 Přepočet př davku a nástroje vzhledem k rádiusu válce
24 FN 0: Q20 = +1 Nastaven č tače řezů
25 FN 0: Q24 = +Q4 Kop rován prostorového úhlu startu (rovina Z/X)
26 Q25 = (Q5 Q4) / Q13 Výpočet úhlového kroku
27 CYCL DEF 7.0 NULOVY BOD Posunut nulového bodu do středu válce (osa X)
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 OTOCENI Výpočet natočen v rovině
32 CYCL DEF 10.1 ROT+Q8
33 L X+0 Y+0 R0 FMAX Předpolohován v rovině do středu válce
34 L Z+5 R0 F1000 M3 Předpolohován v ose vřetena
35 LBL 1
36 CC Z+0 X+0 Nastaven pólu v rovině Z/X
37 LP PR+Q16 PA+Q24 FQ11 Najet startovn polohy na válci, šikmo se zapichuj c do materiálu
38 L Y+Q7 R0 FQ12 Podélný řez ve směru Y+
39 FN 1: Q20 = +Q20 + +1 Aktualizace č tače řezů
40 FN 1: Q24 = +Q24 + +Q25 Aktualizace prostorového úhlu
41 FN 11: IF +Q20 GT +Q13 GOTO LBL 99 Dotaz, zda je již hotovo, pokud ano, skok na konec
42 LP PR+Q16 PA+Q24 FQ11 Přejet po přibližném “oblouku” pro dalš podélný řez
43 L Q+0 F0 FQ12 Podélný řez ve směru Y–
44 FN 1: Q20 = +Q20 + +1 Aktualizace č tače řezů
45 FN 1: Q24 = +Q24 + +Q25 Aktualizace prostorového úhlu
46 FN 12: IF +Q20 LT +Q13 GOTO LBL 1 Dotaz, zda je hotovo, jestliže ne, pak skok zpět na LBL 1
47 LBL 99
48 CYCL DEF 10.0 OTOCENI Zrušen otáčen
49 CYCL DEF 10.1 ROT+0
50 CYCL DEF 7.0 NULOVY BOD Zrušen posunut nulového bodu
51 CYCL DEF 7.1 X+0
52 CYCL DEF 7.2 Y+0
53 CYCL DEF 7.3 Z+0
54 LBL 0 Konec podprogramu
55 END PGM VALEC