BHB_TNC360 - heidenhain

7 Programmieren mit Q-Parametern
7.8 Programm-Beispiele
7-16
27 LBL 1 ..................................................................... Unterprogramm Lochkreis
28 FN 0: Q10 = +0 ..................................................... Zähler für fertige Bohrungen vorbelegen
29 FN 10: IF +Q6 NE +0 GOTO LBL 10 ..................... Wenn Fortschalt-Winkel eingegeben dann Sprung auf
LBL 10
30 FN 4: Q6 = +360 DIV +Q3 .................................... Fortschaltwinkel berechnen, Bohrungen auf 360° verteilen
31 LBL 10
32 FN 1: Q11 = +Q5 + +Q6 ....................................... Zweite Bohrposition berechnen aus Start-Winkel und Fortschalt-Winkel
33 CC X+Q1 Y+Q2 ..................................................... Pol ins Lochkreis-Zentrum
34 LP PR+Q4 PA+Q5 R0 F MAX M3 ......................... 1. Bohrung anfahren in der Ebene
35 L Z+Q7 R0 F MAX M99 ......................................... Z auf Sicherheits-Abstand, Zyklus aufrufen
36 FN 1: Q10 = +Q10 + +1 ........................................ Gefertigte Bohrung zählen
37 FN 9: IF +Q10 EQU +Q3 GOTO LBL 99 ............... Schon fertig?
38 LBL 2
39 LP PR+Q4 PA+Q11 R0 F MAX M99 ..................... Zweite und weitere Bohrungen machen
40 FN 1: Q10 = +Q10 + +1 ........................................ Gefertigte Bohrung zählen
41 FN 1: Q11 = +Q11 + +Q6 ..................................... Winkel für nächste Bohrung berechnen (aktualisieren)
42 FN 12: IF +Q10 LT +Q3 GOTO LBL 2 ................... Unfertig?
43 LBL 99
44 L Z+200 R0 F MAX ................................................ Z freifahren
45 LBL 0 ..................................................................... Unterprogramm-Ende
46 END PGM 3600715 MM
TNC 360