HEIDENHAIN TNC 620 (81760x-01) - Instrukcja (Strona 341)

Przykłady programowania 9.13
9
TNC 620 | Instrukcja obsługi dla operatora HEIDENHAIN-dialog tekstem otwartym | 4/2014
341
30 CYCL DEF 7.2 Y+Q2
31 CYCL DEF 7.3 Z-Q16
32 CYCL DEF 10.0 OBRÓT
Wyliczyć kąt startu położenia obrotu na płaszczyźnie
33 CYCL DEF 10.1 ROT+Q8
34 LBL 1
Pozycjonować wstępnie w osi wrzeciona
35 CC X+0 Y+0 Wyznaczyć biegun na płaszczyźnie X/Y dla pozycjonowania
wstępnego
36 LP PR+Q26 PA+Q8 R0 FQ12 Pozycjonować wstępnie na płaszczyźnie
37 CC Z+0 X+Q108 Wyznaczyć biegun na płaszczyźnie Z/X, przesunięty o
promień narzędzia
38 L Y+0 Z+0 FQ12 Najeżdżanie na głębokość
39 LBL 2
40 LP PR+Q6 PA+Q24 FQ12
Przemieszczenie po „łuku” blisko przedmiotu, w górę
41 FN 2: Q24 = +Q24 - +Q14 Zaktualizować kąt przestrzenny
42 FN 11: IF +Q24 GT +Q5 GOTO LBL 2 Zapytanie czy łuk gotowy, jeśli nie, to z powrotem do LBL2
43 LP PR+Q6 PA+Q5 Najechać kąt końcowy w przestrzeni
44 L Z+Q23 R0 F1000 Przemieścić swobodnie w osi wrzeciona
45 L X+Q26 R0 FMAX Pozycjonować wstępnie dla następnego łuku
46 FN 1: Q28 = +Q28 + +Q18 Zaktualizować położenie obrotu na płaszczyźnie
47 FN 0: Q24 = +Q4 Zresetować kąt przestrzenny
48 CYCL DEF 10.0 OBRÓT Aktywować nowe położenie obrotu
49 CYCL DEF 10.0 ROT+Q28
50 FN 12: IF +Q28 LT +Q9 GOTO LBL 1
51 FN 9: IF +Q28 EQU +Q9 GOTO LBL 1
Zapytanie czy nie gotowa, jeśli tak, to powrót do LBL 1
52 CYCL DEF 10.0 OBRÓT Zresetować obrót
53 CYCL DEF 10.1 ROT+0
54 CYCL DEF 7.0 PUNKT ZEROWY
Zresetować przesunięcie punktu zerowego
55 CYCL DEF 7.1 X+0
56 CYCL DEF 7.2 Y+0
57 CYCL DEF 7.3 Z+0
58 LBL 0
Koniec podprogramu
59 END PGM KUGEL MM