HEIDENHAIN TNC 410 - Instrukcja (Strona 240)

227 HEIDENHAIN TNC 410
22 LBL 10
23 Q16 = Q6 Q10 Q108
24 FN 0: Q20 = +1
25 FN 0: Q24 = +Q4
26 Q25 = (Q5 Q4) / Q13
27 CYKL DEF 7.0 PUNKT ZEROWY
28 CYKL DEF 7.1 X+Q1
29 CYKL DEF 7.2 Y+Q2
30 CYKL DEF 7.3 Z+0
31 CYKL DEF 10.0 OBRÓT
32 CYKL DEF 10.1 OBR+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: Q20 = +Q20 + +1
45 FN 1: Q24 = +Q24 + +Q25
46 FN 12: IF +Q20 LT +Q13 GOTO LBL 1
47 LBL 99
48 CYKL DEF 10.0 OBRÓT
49 CYKL DEF 10.1 OBR+0
50 CYKL DEF 7.0 PUNKT ZEROWY
51 CYKL DEF 7.1 X+0
52 CYKL DEF 7.2 Y+0
53 CYKL DEF 7.3 Z+0
54 LBL 0
55 END PGM CYLIN MM
Podprogram 10: obróbka
Wyliczyć naddatek i narz dzie w odniesieniu do promienia cylindra
Nastawić licznik przejść
Skopiować k t startu przestrzeni (płaszczyzna Z/X)
Obliczyć przyrost (krok) k ta
Przesun ć punkt zerowy na środek cylindra (X oś)
Wyliczyć położenie przy obrocie na płaszczyźnie
Pozycjonować wst pnie na płaszczyźnie na środek cylindra
Pozycjonować wst pnie w osi wrzeciona
Wyznaczyć biegun na płaszczyźnie Z/X
Najechać pozycj startu na cylindrze, ukośnie pogł biaj c w materiał
Skrawanie wzdłużne w kierunku Y+
Zaktualizować licznik przejść
Zaktualizować k t przestrzenny
Zapytanie czy już gotowe, jeśli tak, to skok do końca
Przemieszczać po „łuku” blisko przedmiotu dla nast pnego
skrawania wzdłużnego
Skrawanie wzdłużne w kierunku Y+
Zaktualizować licznik przejść
Zaktualizować k t przestrzenny
Zapytanie czy nie gotowy, jeśli tak to powrót do LBL 1
Wycofać obrót
Wycofać przesuni cie punktu zerowego
Koniec podprogramu
10.10 Przykłady pr
ogramowania