HEIDENHAIN ITNC 530 - CONVERSATIONAL PROGRAMMING - Page 349

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