HEIDENHAIN TNC 360 User Manual - Handbuch (Seite 153)

TNC 360 7-18
7 Programmieren mit Q-Parametern
20 LBL 10
21 CYCL DEF 7.0 NULLPUNKT
22 CYCL DEF 7.1 X+Q1
23 CYCL DEF 7.2 Y+Q2 ............................................. Nullpunkt ins Ellipsen-Zentrum verschieben
24 CYCL DEF 10.0 DREHUNG
25 CYCL DEF 10.1 ROT+Q8 ...................................... Drehung aktivieren, falls Q8 geladen
26 FN 2: Q35 = +Q6 - +Q5
27 FN 4: Q35 = +Q35 DIV +Q7 .................................. Winkelschritt berechnen
28 FN 0: Q36 = +Q5 ................................................... Aktueller Winkel für Berechnungen= Startwinkel setzen
29 FN 0: Q37 = +0 ..................................................... Zähler für gefräste Schritte setzen
30 CALL LBL 11 REP .................................................. UP-Aufruf zur Berechnungen der Ellipsenpunkte
31 L X+Q21 Y+Q22 R0 F MAX M03 .......................... Startpunkt anfahren in der Ebene
32 L Z+Q12 R0 F MAX M ........................................... Z auf Sicherheits-Abstand im Eilgang
33 L Z-Q9 R0 FQ10 M ................................................ Z auf Frästiefe im Eintauch-Vorschub
34 LBL 1
35 FN 1: Q36 = +Q36 + +Q35 ................................... Winkel aktualisieren
36 FN 1: Q37 = +Q37 + +1 ........................................ Zähler aktualisieren
37 CALL LBL 11 REP .................................................. UP-Aufruf zur Berechnung der Ellipsenpunkte
38 L X+Q21 Y+Q22 R0 FQ11 M ................................ nächsten Punkt anfahren
39 FN 12: IF +Q37 LT +Q7 GOTO LBL 1 ................... Unfertig?
40 CYCL DEF 10.0 DREHUNG
41 CYCL DEF 10.1 ROT+0 ......................................... Drehung rücksetzen
42 CYCL DEF 7.0 NULLPUNKT
43 CYCL DEF 7.1 X+0
44 CYCL DEF 7.2 Y+0 ................................................ Nullpunkt-Verschiebung rücksetzen
45 L Z+Q12 R0 F MAX M ........................................... Z auf Sicherheits-Abstand
46 LBL 0 ..................................................................... Unterprogramm Ende Ellipsen fräsen
47 LBL 11
48 FN 7: Q21 = COS +Q36
49 FN 3: Q21 = +Q21 * +Q3 ..................................... X-Koordinate Ellipsenpunkt berechnen
50 FN 6: Q22 = SIN +Q36
51 FN 3: Q22 = +Q22 * +Q4 ..................................... Y-Koordinate Ellipsenpunkt berechnen
52 LBL 0
53 END PGM 360079 MM
7.8 Programm-Beispiele