HEIDENHAIN TNC 620 Benutzerhandbuch Seite 458

39 LBL 2
40 LP PR+Q6 PA+Q24 FQ12
41 FN 2: Q24 = +Q24 - +Q14
42 FN 11: IF +Q24 GT +Q5 GOTO LBL 2
43 LP PR+Q6 PA+Q5
44 L Z+Q23 R0 F1000
45 L X+Q26 R0 FMAX
46 FN 1: Q28 = +Q28 + +Q18
47 FN 0: Q24 = +Q4
48 CYCL DEF 10.0 DREHUNG
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
52 CYCL DEF 10.0 DREHUNG
53 CYCL DEF 10.1 ROT+0
54 CYCL DEF 7.0 NULLPUNKT
55 CYCL DEF 7.1 X+0
56 CYCL DEF 7.2 Y+0
57 CYCL DEF 7.3 Z+0
58 LBL 0
59 END PGM KUGEL MM
458
Angenäherten „Bogen" nach oben fahren
Raumwinkel aktualisieren
Abfrage ob ein Bogen fertig, wenn nicht, dann zurück zu LBL 2
Endwinkel im Raum anfahren
In der Spindelachse freifahren
Vorpositionieren für nächsten Bogen
Drehlage in der Ebene aktualisieren
Raumwinkel rücksetzen
Neue Drehlage aktivieren
Abfrage ob unfertig, wenn ja, dann Rücksprung zu LBL 1
Drehung rücksetzen
Nullpunkt-Verschiebung rücksetzen
Unterprogramm-Ende
10 Programmieren: Q-Parameter