HEIDENHAIN TNC 370 - Page 187

7 Programming with C2 Parameters
i
7.8 Examples for Exercise
20LBLlO
21 CYCL DEF 7.0 DATUM SHIFT
22 CYCL DEF 7.1 X+01
23 CYCL DEF 7.2 Y+Q2 .._.......................................... Shift datum to center of ellipse
24 CYCL DEF 10.0 ROTATION
25 CYCL DEF 10.1 ROT +Q8 Activate rotation, if 08 is loaded
26 FN2: Q35 = +Q6 - +Q5
27 FN4: 035 = +Q35 DIV +Q7 . . . . . . . . . . . . . . . . . . . . . . . . . . . Calculate angle increment
28 FNO: 036 = +Q5 . . .._............................................. Current angle for calculation = set start angle
29 FNO: 037 = +0 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Set counter for milled steps
30 CALL LBL 11 REP . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Call subprogram for calculating the points of the ellipse
31 L X+Q21 Y+Q22 RO F MAX MO3 Move to start point in the plane
32 L Z+Q12 RO F MAX M
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Rapid traverse in Z to setup clearance
33 L Z-Q9 RO FQIO M . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Plunge to milling depth at plunging feed rate
34 LBL 1
35 FNI : Q36 = +Q36 + +Q35 Update the angle
36 FNI : Q37 = +Q37 + +I . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Update the counter
37 CALL LBLI 1 REP . .._.__..................................._......_ Call subprogram for calculating the points of the ellipse
38 L X+021 Y+Q22 RO FQI 1 M . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Move to next point
39 FN 12: IF +Q37 LT +Q7 GOT0 LBL 1 Unfinished?
40 CYCL DEF 10.0 ROTATION
41 CYCL DEF
10.1 ROT+0 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Reset rotation
42 CYCL DEF 7.0 DATUM SHIFT
43 CYCL DEF 7.1 X+0
44 CYCL DEF 7.2 Y+O . . . . . . . . . . . . . .._.............................. Reset datum shift
45 L Z+Q12
RO F MAX M . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Move in Z to setup clearance
46 LBL 0 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . End of subprogram for milling the ellipse
47 LBL 11
48 FN7: Q21 = COS + 036
49 FN3: Q21 = +Q21 * + 03 ._.____,__.___........................ Calculate X coordinate
50 FN6: Q22 = SIN + Q36
51 FN3: Q22 = +Q22 * +Q4 Calculate Y coordinate
52 LBL 0
53 END PGM 360079 MM
i
TNC 370
7-l 9