9 q p ar amet ers with special f u nctions – HEIDENHAIN TNC 406 User Manual
Page 232

HEIDENHAIN TNC 406, TNC 416
211
1
0.9 Q P
ar
amet
ers with Special F
u
nctions
18 FN 0: Q1 = +90
Circle segment 2: center X
19 FN 0: Q2 = +25
Circle segment 2: center Y
20 FN 0: Q3 = +5
Circle segment 2: number of cavities
21 FN 0: Q4 = +35
Circle segment 2: radius
22 FN 0: Q6 = +30
Circle segment 2: angle increment
23 CALL LBL 1
Call subprogram 1 for arc
24 LBL 1
Subprogram 1
25 FN 0: Q10 = +0
Reset counter for completed cavities
26 FN 10: IF +Q6 NE +0 GOTO LBL 10
If angle increment does not equal 0, go to LBL 10
27 FN 4: Q6 = +360 DIV +Q3
Calculate angle increment for full circle
28 LBL 10
29 FN 1: Q11 = +Q5 + +Q6
Angle for second eroding position
30 CC X+Q1 Y+Q2
Position pole at center
31 LP PR+Q4 PA+Q5 R0 F MAX M3
Account for rotational position in the plane
32 L Z+Q7 R0 F MAX M
Pre-position electrode at set-up clearance
33 L Z+Q8 R F M36
First cavity; eroding ON
34 L Z+Q7 R F MAX M37
Retract electrode; eroding OFF
35 FN 1: Q10 = +Q10 + +1
Increment counter for completed cavities
36 FN 9: IF +Q10 EQU +Q3 GOTO LBL 99
If finished, jump to LBL 99
37 LBL 2
38 LP PR+Q4 PA+Q11 R0 F MAX M
Move to next cavity
39 L Z+Q8 R F M36
Eroding
40 L Z+Q7 R F MAX M37
Retract electrode; eroding OFF
41 FN 1: Q10 = +Q10 + +1
Increment counter for completed cavities
42 FN 1: Q11 = +Q11 + +Q6
Calculate angle for next cavity
43 FN 12: IF +Q10 LT +Q3 GOTO LBL 2
If not yet finished, jump to LBL 2
44 LBL 99
45 L Z+200 R F MAX M
Retract electrode
46 LBL 0
End of subprogram
47 END PGM HOLES MM