HEIDENHAIN TNC 640 User Manual page 475

Programming Q Parameters | Programming examples
21 LBL 10
22 Q16 = Q6 -Q10 - Q108
23 FN 0: Q20 = +1
24 FN 0: Q24 = +Q4
25 Q25 = (Q5 -Q4) / Q13
26 CYCL DEF 7.0 DATUM SHIFT
27 CYCL DEF 7.1 X+Q1
28 CYCL DEF 7.2 Y+Q2
29 CYCL DEF 7.3 Z+Q3
30 CYCL DEF 10.0 ROTATION
31 CYCL DEF 10.1 ROT+Q8
32 L X+0 Y+0 R0 FMAX
33 L Z+5 R0 F1000 M3
34 LBL 1
35 CC Z+0 X+0
36 LP PR+Q16 PA+Q24 FQ11
37 L Y+Q7 R0 FQ12
38 FN 1: Q20 = +Q20 + +1
39 FN 1: Q24 = +Q24 + +Q25
40 FN 11: IF +Q20 GT +Q13 GOTO LBL 99
41 LP PR+Q16 PA+Q24 FQ11
42 L Y+0 R0 FQ12
43 FN 1: Q20 = +Q20 + +1
44 FN 1: Q24 = +Q24 + +Q25
45 FN 12: IF +Q20 LT +Q13 GOTO LBL 1
46 LBL 99
47 CYCL DEF 10.0 ROTATION
48 CYCL DEF 10.1 ROT+0
49 CYCL DEF 7.0 DATUM SHIFT
50 CYCL DEF 7.1 X+0
51 CYCL DEF 7.2 Y+0
52 CYCL DEF 7.3 Z+0
53 LBL 0
54 END PGM CYLIN
HEIDENHAIN | TNC 640 | Conversational Programming User's Manual | 10/2017
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 spindle 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 on 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
10
475