HEIDENHAIN iTNC 530 (340 49x-03) - Instrukcja (Strona 623)

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