22
LBL
0
23
Q 6 = Q6 - Q 0 - Q 08
24
FN 0: Q20 = +
25
FN 0: Q24 = +Q4
26
Q25 = (Q5 - Q4) / Q 3
27
CYCL DEF 7.0 NULLPUNKT
28
CYCL DEF 7.
X+Q
29
CYCL DEF 7.2 Y+Q2
30
CYCL DEF 7.3 Z+Q3
3
CYCL DEF
0.0 DREHUNG
32
CYCL DEF
0.
ROT+Q8
33
L X+0 Y+0 R0 FMAX
34
L Z+5 R0 F 000 M3
35
CC Z+0 X+0
36
LP PR+Q 6 PA+Q24 FQ
37
LBL
38
L Y+Q7 R0 FQ
39
FN
: Q20 = +Q20 + +
40
FN
: Q24 = +Q24 + +Q25
4
FN
: IF +Q20 GT +Q 3 GOTO LBL 99
42
LP PR+Q 6 PA+Q24 FQ 2
43
L Y+0 R0 FQ
44
FN
: Q20 = +Q20 + +
45
FN
: Q24 = +Q24 + +Q25
46
FN
2: IF +Q20 LT +Q 3 GOTO LBL
47
LBL 99
48
CYCL DEF
0.0 DREHUNG
49
CYCL DEF
0.
ROT+0
50
CYCL DEF 7.0 NULLPUNKT
5
CYCL DEF 7.
X+0
52
CYCL DEF 7.2 Y+0
53
CYCL DEF 7.3 Z+0
54
LBL 0
55
END PGM ZYLIN MM
HEIDENHAIN TNC 3 0
Unterprogramm 0: Bearbeitung
Aufmaß und Werkzeug bezogen auf Zylinder-Radius verrechnen
Schnittzähler setzen
Startwinkel Raum (Ebene Z/X) kopieren
Winkelschritt berechnen
Nullpunkt in die Mitte des Zylinders (X-Achse) verschieben
Drehlage in der Ebene verrechnen
Vorpositionieren in der Ebene in die Mitte des Zylinders
Vorpositionieren in der Spindelachse
Pol setzen in der Z/X-Ebene
Startposition auf Zylinder anfahren, schräg ins Material eintauchend
Längsschnitt in Richtung Y+
Schnittzähler aktualisieren
Raumwinkel aktualisieren
Abfrage ob bereits fertig, wenn ja, dann ans Ende springen
Angenäherten Bogen fahren für nächsten Längsschnitt
Längsschnitt in Richtung Y
Schnittzähler aktualisieren
Raumwinkel aktualisieren
Abfrage ob unfertig, wenn ja dann Rücksprung zu LBL
Drehung rücksetzen
Nullpunkt-Verschiebung rücksetzen
Unterprogramm-Ende
8