HEIDENHAIN TNC 620 (340 56x-02) - Instrukcja (Strona 293)

HEIDENHAIN TNC 620 293
8.13 Przyk
łady programowania
20 L Z+100 R0 FMAX M2 Przemieścić narzędzie poza materiałem, koniec programu
21 LBL 10 Podprogram 10: obróbka
22 Q16 = Q6 - Q10 - Q108 Wyliczyć naddatek i narzędzie w odniesieniu do promienia cylindra
23 FN 0: Q20 = +1 Nastawić licznik przejść
24 FN 0: Q24 = +Q4 Skopiować kąt startu przestrzeni (płaszczyzna Z/X)
25 Q25 = (Q5 - Q4) / Q13 Obliczyć przyrost (krok) kąta
26 CYCL DEF 7.0 PUNKT ZEROWY Przesunąć punkt zerowy na środek cylindra (X-oś)
27 CYCL DEF 7.1 X+Q1
28 CYCL DEF 7.2 Y+Q2
29 CYCL DEF 7.3 Z+Q3
30 CYCL DEF 10.0 OBRÓT Wyliczyć położenie przy obrocie na płaszczyźnie
31 CYCL DEF 10.1 ROT+Q8
32 L X+0 Y+0 R0 FMAX Pozycjonować wstępnie na płaszczyźnie na środek cylindra
33 L Z+5 R0 F1000 M3 Pozycjonować wstępnie w osi wrzeciona
34 LBL 1
35 CC Z+0 X+0 Wyznaczyć biegun na płaszczyźnie Z/X
36 LP PR+Q16 PA+Q24 FQ11 Najechać pozycję startu na cylindrze, ukośnie wcinając w materiał
37 L Y+Q7 R0 FQ12 Skrawanie wzdłużne w kierunku Y+
38 FN 1: Q20 = +Q20 + +1 Zaktualizować licznik przejść
39 FN 1: Q24 = +Q24 + +Q25 Zaktualizować kąt przestrzenny
40 FN 11: IF +Q20 GT +Q13 GOTO LBL 99 Zapytanie czy już gotowe, jeśli tak, to skok do końca
41 LP PR+Q16 PA+Q24 FQ11 Przemieszczenie po “łuku” blisko przedmiotu dla następnego
skrawania wzdłużnego
42 L Y+0 R0 FQ12 Skrawanie wzdłużne w kierunku Y–
43 FN 1: Q20 = +Q20 + +1 Zaktualizować licznik przejść
44 FN 1: Q24 = +Q24 + +Q25 Zaktualizować kąt przestrzenny
45 FN 12: IF +Q20 LT +Q13 GOTO LBL 1 Zapytanie czy nie gotowy, jeśli tak to skok do LBL 1
46 LBL 99
47 CYCL DEF 10.0 OBRÓT Zresetować obrót
48 CYCL DEF 10.1 ROT+0
49 CYCL DEF 7.0 PUNKT ZEROWY Zresetować przesunięcie punktu zerowego
50 CYCL DEF 7.1 X+0
51 CYCL DEF 7.2 Y+0
52 CYCL DEF 7.3 Z+0
53 LBL 0 Koniec podprogramu
54 END PGM ZYLIN