HEIDENHAIN TNC 406 - 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