HEIDENHAIN TNC 320 (340 551-01) - Manual (Page 373)

HEIDENHAIN TNC 320 373
1
0
.13 Pr
ogr
amming Examples
40 LBL 2
41 LP PR+Q6 PA+Q24 R9 FQ12 Move upward in an approximated “arc”
42 FN 2: Q24 = +Q24 - +Q14 Update solid angle
43 FN 11: IF +Q24 GT +Q5 GOTO LBL 2 Inquire whether an arc is finished. If not finished, return to LBL 2.
44 LP PR+Q6 PA+Q5 Move to the end angle in space
45 L Z+Q23 R0 F1000 Retract in the tool axis
46 L X+Q26 R0 FMAX Pre-position for next arc
47 FN 1: Q28 = +Q28 + +Q18 Update rotational position in the plane
48 FN 0: Q24 = +Q4 Reset solid angle
49 CYCL DEF 10.0 ROTATION Activate new rotational position
50 CYCL DEF 10.0 ROT+Q28
51 FN 12: IF +Q28 LT +Q9 GOTO LBL 1
52 FN 9: IF +Q28 EQU +Q9 GOTO LBL 1 Unfinished? If not finished, return to label 1
53 CYCL DEF 10.0 ROTATION Reset the rotation
54 CYCL DEF 10.1 ROT+0
55 CYCL DEF 7.0 DATUM SHIFT Reset the datum shift
56 CYCL DEF 7.1 X+0
57 CYCL DEF 7.2 Y+0
58 CYCL DEF 7.3 Z+0
59 LBL 0 End of subprogram
60 END PGM SPHERE MM