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

HEIDENHAIN TNC 620 291
8.13 Przyk
łady programowania
18 L Z+100 R0 FMAX M2 Przemieścić narzędzie poza materiałem, koniec programu
19 LBL 10 Podprogram 10: obróbka
20 CYCL DEF 7.0 PUNKT ZEROWY Przesunąć punkt zerowy do centrum elipsy
21 CYCL DEF 7.1 X+Q1
22 CYCL DEF 7.2 Y+Q2
23 CYCL DEF 10.0 OBRÓT Wyliczyć położenie przy obrocie na płaszczyźnie
24 CYCL DEF 10.1 ROT+Q8
25 Q35 = (Q6 - Q5) / Q7 Obliczyć przyrost (krok) kąta
26 Q36 = Q5 Skopiować kąt startu
27 Q37 = 0 Nastawić licznik przejść
28 Q21 = Q3 * COS Q36 X-współrzędną punktu startu obliczyć
29 Q22 = Q4 * SIN Q36 Y-współrzędną punktu startu obliczyć
30 L X+Q21 Y+Q22 R0 FMAX M3 Najechać punkt startu na płaszczyźnie
31 L Z+Q12 R0 FMAX Pozycjonować wstępnie na odstęp bezpieczeństwa w osi wrzeciona
32 L Z-Q9 R0 FQ10 Przemieścić narzędzie na głębokość obróbki
33 LBL 1
34 Q36 = Q36 + Q35 Zaktualizować kąt
35 Q37 = Q37 + 1 Zaktualizować licznik przejść
36 Q21 = Q3 * COS Q36 Obliczyć aktualną X-współrzędną
37 Q22 = Q4 * SIN Q36 Obliczyć aktualną Y-współrzędną
38 L X+Q21 Y+Q22 R0 FQ11 Najechać następny punkt
39 FN 12: IF +Q37 LT +Q7 GOTO LBL 1 Zapytanie czy nie gotowy, jeśli tak to skok do LBL 1
40 CYCL DEF 10.0 OBRÓT Zresetować obrót
41 CYCL DEF 10.1 ROT+0
42 CYCL DEF 7.0 PUNKT ZEROWY Zresetować przesunięcie punktu zerowego
43 CYCL DEF 7.1 X+0
44 CYCL DEF 7.2 Y+0
45 L Z+Q12 R0 FMAX Odsunąć narzędzie na odstęp bezpieczeństwa
46 LBL 0 Koniec podprogramu
47 END PGM ELIPSA MM