HEIDENHAIN TNC 426 (280 476) - Instrukcja (Strona 427)

400 10 Programowanie: Q parametry
10.11 Pr
ogrammierBeispiele
20 CALL LBL 10 Wywołać obróbk
21 L Z+100 R0 F MAX M2 Przemieścić narz dzie poza materiałem, koniec programu
22 LBL 10 Podprogram 10: Obróbka
23 Q16 = Q6 Q10 Q108 Wyliczyć naddatek i narz dzie w odniesieniu do promienia cylindra
24 FN 0: Q20 = +1 Nastawić licznik przejść
25 FN 0: Q24 = +Q4 Skopiować k t startu przestrzeni (płaszczyzna Z/X)
26 Q25 = (Q5 Q4) / Q13 Obliczyć przyrost (krok) k ta
27 CYKL DEF 7.0 PUNKT ZEROWY Przesun ć punkt zerowy na środek cylindra (X oś)
28 CYKL DEF 7.1 X+Q1
29 CYKL DEF 7.2 Y+Q2
30 CYKL DEF 7.3 Z+Q3
31 CYKL DEF 10.0 OBRÓT Wyliczyć położenie przy obrocie na płaszczyźnie
32 CYKL DEF 10.1 OBR+Q8
33 L X+0 Y+0 R0 F MAX Pozycjonować wst pnie na płaszczyźnie na środek cylindra
34 L Z+5 R0 F1000 M3 Pozycjonować wst pnie w osi wrzeciona
35 LBL 1
36 CC Z+0 X+0 Wyznaczyć biegun na płaszczyźnie Z/X
37 LP PR+Q16 PA+Q24 FQ11 Najechać pozycj startu na cylindrze, ukośnie pogł biaj c w materiał
38 L Y+Q7 R0 FQ11 Skrawanie wzdłużne w kierunku Y+
39 FN 1: Q20 = +Q20 + +1 Zaktualizować licznik przejść
40 FN 1: Q24 = +Q24 + +Q25 Zaktualizować k t przestrzenny
41 FN 11: IF +Q20 EQU +Q13 SKOK (GOTO)
LBL 99 Zapytanie czy już gotowe, jeśli tak, to skok do końca
42 LP PR+Q16 PA+Q24 FQ11 Przemieszczenie po “łuku” blisko przedmiotu dla nast pnego
skrawania wzdłużnego
43 L Y+0 R0 FQ11 Skrawanie wzdłużne w kierunku Y–
44 FN 1: Q20 = +Q20 + +1 Zaktualizować licznik przejść
45 FN 1: Q24 = +Q24 + +Q25 Zaktualizować k t przestrzenny
46 FN 12: IF +Q20 EQU +Q13 SKOK (GOTO)
LBL 1 Zapytanie czy nie gotowy, jeśli tak to skok do LBL 1
47 LBL 99
48 CYKL DEF 10.0 OBRÓT Wycofać obrót
49 CYKL DEF 10.1 OBR+0
50 CYKL DEF 7.0 PUNKT ZEROWY Wycofać przesuni cie punktu zerowego
51 CYKL DEF 7.1 X+0
52 CYKL DEF 7.2 Y+0
53 CYKL DEF 7.3 Z+0
54 LBL 0 Koniec podprogramu
55 END PGM CYLIN.
BHB430.BOOK Seite 400 Dienstag, 27. Juni 2006 1:29 13