HEIDENHAIN TNC 407 (280 580) User Manual User Manual
Page 208
7-23
TNC 425/TNC 415 B/TNC 407
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 + Q 108
35
L Y + 0 Z + 0 FQ11 ............................................. Pre-positioning at each arc beginning
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 QPEXAMP3 MM
Shift datum to center of sphere
Rotation for program start (starting plane angle)
Mill the sphere upward until the highest point is reached
Mill the highest point on the sphere and retract the tool
Rotate the coordinate system around the Z axis until the end
plane angle is reached
Reset rotation and datum shift
Determine starting and calculation values