HEIDENHAIN TNC 360 User Manual - Manual (Page 154)

TNC 360 7-20
7 Programming with Q Parameters
20 LBL 10
21 FN1: Q15 = + Q5 + + Q4
22 FN0: Q21 = + Q1
23 FN1: Q24 = + Q4 + + Q108
24 FN0: Q26 = + Q6
25 CYCL DEF 7.0 DATUM
26 CYCL DEF 7.1 X+Q9
27 CYCL DEF 7.2 Y+Q10
28 CYCL DEF 7.3 Z–Q4
29 CYCL DEF 10.0 ROTATION
30 CYCL DEF 10.1 ROT + Q6
31 CC X+0 Y+0
32 LP PR + Q24 PA + Q6 R0 FQ11 ......................... Pre-positioning before machining
33 LBL 1
34 CC Z+0 X+Q108
35 L Y+0 Z+0 FQ11 ................................................. Pre-positioning at beginning of each arc
36 LBL 2
37 LP PR+Q4 PA+Q21 R0 FQ11
38 FN2: Q21 = + Q21 – + Q3
39 FN11: IF + Q21 GT + Q2 GOTO LBL2
40 LP PR+Q4 PA+Q2
41 L Z+Q15 R0 F1000
42 L X+Q24 R0 FMAX
43 FN1: Q26 = + Q26 + + Q8 ................................. Prepare the next rotation increment
44 FN0: Q21 = + Q1 ................................................ Reset solid angle for machining to the starting value
45 CYCL DEF 10.0 ROTATION
46 CYCL DEF 10.1 ROT + Q26
47 FN12: IF + Q26 LT + Q7 GOTO LBL1
48 FN9: IF + Q26 EQU + Q7 GOTO LBL1
49 CYCL DEF 10.0 ROTATION
50 CYCL DEF 10.1 ROT + 0
51 CYCL DEF 7.0 DATUM
52 CYCL DEF 7.1 X+0
53 CYCL DEF 7.2 Y+0
54 CYCL DEF 7.3 Z+0
55 LBL 0 .................................................................. End of subprogram
56 END PGM 360712 MM
7.8 Example for exercise
Determine starting and calculation values
Shift datum to center of sphere
Rotation for program start (starting plane angle)
Mill the sphere upward until the highest points is reached
Mill the highest point and then retract the tool
Reset rotation and datum shift
Rotate the coordinate system about the Z axis until
plane end angle is reached