HEIDENHAIN TNC 426 B User Manual page 294

22 LBL 0
23 Q 6 = Q6 - Q 0 - Q 08
24 FN 0: Q20 = +
25 FN 0: Q24 = +Q4
26 Q25 = (Q5 - Q4) / Q 3
27 CYCL DEF 7.0 DATUM SHIFT
28 CYCL DEF 7. X+Q
29 CYCL DEF 7.2 Y+Q2
30 CYCL DEF 7.3 Z+Q3
3 CYCL DEF 0.0 ROTATION
32 CYCL DEF 0. ROT+Q8
33 L X+0 Y+0 R0 F MAX
34 L Z+5 R0 F 000 M3
35 CC Z+0 X+0
36 LP PR+Q 6 PA+Q24 FQ
37 LBL
38 L Y+Q7 R0 FQ
39 FN : Q20 = +Q20 + +
40 FN : Q24 = +Q24 + +Q25
4 FN : IF +Q20 GT +Q 3 GOTO LBL 99
42 LP PR+Q 6 PA+Q24 FQ 2
43 L Y+0 R0 FQ
44 FN : Q24 = +Q24 + +Q25
45 FN : Q20 = +Q20 + +
46 FN 2: IF +Q20 LT +Q 3 GOTO LBL
47 LBL 99
48 CYCL DEF 0.0 ROTATION
49 CYCL DEF 0. ROT+0
50 CYCL DEF 7.0 DATUM SHIFT
5 CYCL DEF 7. X+0
52 CYCL DEF 7.2 Y+0
53 CYCL DEF 7.3 Z+0
54 LBL 0
55 END PGM CYLIN MM
HEIDENHAIN TNC 426 B, TNC 430
www.EngineeringBooksPdf.com
Subprogram 10: Machining operation
Account for allowance and tool, based on the cylinder radius
Set counter
Copy starting angle in space (Z/X plane)
Calculate angle increment
Shift datum to center of cylinder (X axis)
Account for rotational position in the plane
Pre-position in the plane to the cylinder center
Pre-position in the tool axis
Set pole in the Z/X plane
Move to starting position on cylinder, plunge-cutting obliquely into
the material
Longitudinal cut in Y+ direction
Update the counter
Update solid angle
Finished? If finished, jump to end.
Move in an approximated "arc" for the next longitudinal cut
Longitudinal cut in Y– direction
Update the counter
Update solid angle
Unfinished? If not finished, return to LBL 1
Reset the rotation
Reset the datum shift
End of subprogram
279