HEIDENHAIN TNC 410 - Manual (Page 242)

229 HEIDENHAIN TNC 410
1
0.1
0 Pr
ogr
amming Examples
23 LBL 10
24 FN 1: Q23 = +Q11 + +Q6
25 FN 0: Q24 = +Q4
26 FN 1: Q26 = +Q6 + +Q108
27 FN 0: Q28 = +Q8
28 FN 1: Q16 = +Q6 + -Q10
29 CYCL DEF 7.0 DATUM SHIFT
30 CYCL DEF 7.1 X+Q1
31 CYCL DEF 7.2 Y+Q2
32 CYCL DEF 7.3 Z-Q16
33 CYCL DEF 10.0 ROTATION
34 CYCL DEF 10.1 ROT+Q8
35 CC X+0 Y+0
36 LP PR+Q26 PA+Q8 R0 FQ12
37 LBL 1
38 CC Z+0 X+Q108
39 L Y+0 Z+0 FQ12
40 LBL 2
41 LP PR+Q6 PA+Q24 R0 FQ12
42 FN 2: Q24 = +Q24 - +Q14
43 FN 11: IF +Q24 GT +Q5 GOTO LBL 2
44 LP PR+Q6 PA+Q5
45 L Z+Q23 R0 F1000
46 L X+Q26 R0 F MAX
47 FN 1: Q28 = +Q28 + +Q18
48 FN 0: Q24 = +Q4
49 CYCL DEF 10.0 ROTATION
50 CYCL DEF 10.1 ROT+Q28
51 FN 12: IF +Q28 LT +Q9 GOTO LBL 1
52 FN 9: IF +Q28 EQU +Q9 GOTO LBL 1
53 CYCL DEF 10.0 ROTATION
54 CYCL DEF 10.1 ROT+0
55 CYCL DEF 7.0 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
60 END PGM BALL MM Subprogram 10: Machining operation
Calculate Z coordinate for pre-positioning
Copy starting angle in space (Z/X plane)
Compensate sphere radius for pre-positioning
Copy rotational position in the plane
Account for allowance in the sphere radius
Shift datum to center of sphere
Account for starting angle of rotational position in the plane
Set pole in the X/Y plane for pre-positioning
Pre-position in the plane
Pre-position in the tool axis
Set pole in the Z/X plane, offset by the tool radius
Move to working depth
Move upward in an approximated “arc”
Update solid angle
Inquire whether an arc is finished. If not finished, return to LBL 2.
Move to the end angle in space
Retract in the tool axis
Pre-position for next arc
Update rotational position in the plane
Reset solid angle
Activate new rotational position
Unfinished? If not finished, return to label 1
Reset the rotation
Reset the datum shift
End of subprogram