HEIDENHAIN TNC 310 (286 140) - Instrukcja (Strona 193)

179 HEIDENHAIN TNC 310
20 LBL 10
21 CYKL DEF 7.0 PUNKT ZEROWY
22 CYKL DEF 7.1 X+Q1
23 CYKL DEF 7.2 Y+Q2
24 CYKL DEF 10.0 OBRÓT
25 CYKL DEF 10.1 OBR+Q8
26 Q35 = (Q6 - Q5) / Q7
27 Q36 = Q5
28 Q37 = 0
29 Q21 = Q3 * COS Q36
30 Q22 = Q4 * SIN Q36
31 L X+Q21 Y+Q22 R0 F MAX M3
32 L Z+Q12 R0 F MAX
33 L Z-Q9 R0 FQ10
34 LBL 1
35 Q36 = Q36 + Q35
36 Q37 = Q37 + 1
37 Q21 = Q3 * COS Q36
38 Q22 = Q4 * SIN Q36
39 L X+Q21 Y+Q22 R0 FQ11
40 FN 12: IF +Q37 LT +Q7 GOTO LBL 1
41 CYKL DEF 10.0 OBRÓT
42 CYKL DEF 10.1 OBR+0
43 CYKL DEF 7.0 PUNKT ZEROWY
44 CYKL DEF 7.1 X+0
45 CYKL DEF 7.2 Y+0
46 L Z+Q12 R0 F MAX
47 LBL 0
48 END PGM ELIPSA MM
Podprogram 10: obróbka
Przesun¹æ punkt zerowy do centrum elipsy
Wyliczyæ po³o¿enie przy obrocie na p³aszczyŸnie
Obliczyæ przyrost (krok) k¹ta
Skopiowaæ k¹t startu
Nastawiæ licznik przejœæ
X-wspó³rzêdn¹ punktu startu obliczyæ
Y-wspó³rzêdn¹ punktu startu obliczyæ
Najechaæ punkt startu na p³aszczyŸnie
Pozycjonowaæ wstêpnie na odstêp bezpieczeñstwa w osi wrzeciona
Przemieœciæ narzêdzie na g³êbokoœæ obróbki
Zaktualizowaæ k¹t
Zaktualizowaæ licznik przejœæ
Obliczyæ aktualn¹ X-wspó³rzêdn¹
Obliczyæ aktualn¹ Y-wspó³rzêdn¹
Najechaæ nastêpny punkt
Zapytanie czy nie gotowy, jeœli tak to powrót do LBL 1
Wycofaæ obrót
Wycofaæ przesuniêcie punktu zerowego
Odsun¹æ narzêdzie na odstêp bezpieczeñstwa
Koniec podprogramu
10.10
Przyk³ady
pr
ogramowania
Mkap10.pm6 15.12.2005, 09:53 179