N220 G98 L10 *
N230 Q16 = Q6 - Q10 - Q108
N240 D00 Q20 P01 +1 *
N250 D00 Q24 P01 +Q4 *
N260 Q25 = (Q5 - Q4) / Q13
N270 G54 X+Q1 Y+Q2 Z+0 *
N280 G73 G90 H+Q8 *
N290 G00 G40 X+0 Y+0 *
N300 G01 Z+5 F1000 M3 *
N310 I+0 K+0 *
N320 G11 R+Q16 H+Q24 FQ11 *
N330 G98 L1 *
N340 G01 G40 Y+Q7 FQ11 *
N350 D01 Q20 P01 +Q20 P02 +1 *
N360 D01 Q24 P01 +Q24 P02 +Q25 *
N370 D11 P01 +Q20 P02 +Q13 P03 99 *
N380 G11 R+Q16 H+Q24 FQ12 *
N390 G01 G40 Y+0 FQ11 *
N400 D01 Q20 P01 +Q20 P02 +1 *
N410 D01 Q24 P01 +Q24 P02 +Q25 *
N420 D12 P01 +Q20 P02 +Q13 P03 1 *
N430 G98 L99 *
N440 G73 G90 H+0 *
N450 G54 X+0 Y+0 Z+0 *
N460 G98 L0 *
N999999 %ZYLIN G71 *
HEIDENHAIN TNCs der Serie 400
Unterprogramm 10: 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 Label 1
Drehung rücksetzen
Nullpunkt-Verschiebung rücksetzen
Unterprogramm-Ende
179