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