HEIDENHAIN TNC 406 - Manual (Page 230)

HEIDENHAIN TNC 406, TNC 416 209
1
0.9 Q P
ar
amet
ers with Special F
u
nctions
20 L Z+250 R0 F MAX M Retract electrode
21 CALL LBL 10 Call machining operation
22 L Z+100 R0 F MAX M2 Retract in the tool axis, end program
23 LBL 10 Subprogram 10: Machining operation
24 CYCL DEF 7.0 DATUM SHIFT Shift datum to center of ellipse
25 CYCL DEF 7.1 X+Q1
26 CYCL DEF 7.2 Y+Q2
27 CYCL DEF 10.0 ROTATION Account for rotational position in the plane
28 CYCL DEF 10.1 ROT+Q8
29 FN2 Q35 = Q6 - Q5 Starting angle - end angle
30 FN4 Q35 = Q35 DIV Q7 Calculate angle increment
31 FN0 Q37 = 0 Set counter
32 FN7 Q36 = COS Q5
33 FN3 Q21 = Q3 * Q36 Calculate X coordinate for starting point
34 FN7 Q36 = SIN Q5
35 FN3 Q22 = Q4 * Q36 Calculate Y coordinate for starting point
36 L X+Q21 Y+Q22 R0 F MAX M36 Move to starting point in the plane; eroding ON
37 L Z+Q12 R0 F MAX M Pre-position in tool axis to setup clearance
38 L Z-Q9 R0 FQ10 M Move to working depth
39 LBL 1
40 FN1 Q36 = Q5 + Q35 Update the angle
41 FN1 Q37 = Q37 + 1 Update the counter
42 FN7 Q38 = COS Q36
43 FN3 Q21 = Q3 * Q38 Calculate the current X coordinate
44 FN6 Q38 = SIN Q36
45 FN3 Q22 = Q4 * Q38 Calculate the current Y coordinate
46 L X+Q21 Y+Q22 R0 FQ11 M Move to next point
47 FN 12: IF +Q37 LT +Q7 GOTO LBL 1 Unfinished? If not finished, return to LBL 1
48 CYCL DEF 10.0 ROTATION Reset the rotation
49 CYCL DEF 10.1 ROT+0
50 CYCL DEF 7.0 DATUM SHIFT Reset the datum shift
51 CYCL DEF 7.1 X+0
52 CYCL DEF 7.2 Y+0
53 L Z+Q12 R0 F MAX M37 Move to safety clearance; eroding OFF
54 LBL 0 End of subprogram
55 END PGM ELLIPSE MM