HEIDENHAIN TNC 426 (280 476) - Manual (Page 419)

392 10 Programming: Q Parameters
1
0
.1
1 Pr
ogr
amming Examples
20 LBL 10 Subprogram 10: Machining operation
21 CYCL DEF 7.0 DATUM SHIFT Shift datum to center of ellipse
22 CYCL DEF 7.1 X+Q1
23 CYCL DEF 7.2 Y+Q2
24 CYCL DEF 10.0 DREHUNG Account for rotational position in the plane
25 CYCL DEF 10.1 ROT+Q8
26 Q35 = (Q6 - Q5) / Q7 Calculate angle increment
27 Q36 = Q5 Copy starting angle
28 Q37 = 0 Set counter
29 Q21 = Q3 * COS Q36 Calculate X coordinate for starting point
30 Q22 = Q4 * SIN Q36 Calculate Y coordinate for starting point
31 L X+Q21 Y+Q22 R0 F MAX M3 Move to starting point in the plane
32 L Z+Q12 R0 F MAX Pre-position in tool axis to setup clearance
33 L Z-Q9 R0 FQ10 Move to working depth
34 LBL 1
35 Q36 = Q36 + Q35 Update the angle
36 Q37 = Q37 + 1 Update the counter
37 Q21 = Q3 * COS Q36 Calculate the current X coordinate
38 Q22 = Q4 * SIN Q36 Calculate the current Y coordinate
39 L X+Q21 Y+Q22 R0 FQ11 Move to next point
40 FN 12: IF +Q37 LT +Q7 GOTO LBL 1 Unfinished? If not finished, return to LBL 1
41 CYCL DEF 10.0 DREHUNG Reset the rotation
42 CYCL DEF 10.1 ROT+0
43 CYCL DEF 7.0 DATUM SHIFT Reset the datum shift
44 CYCL DEF 7.1 X+0
45 CYCL DEF 7.2 Y+0
46 L Z+Q12 R0 F MAX Move to setup clearance
47 LBL 0 End of subprogram
48 END PGM ELLIPSE MM