HEIDENHAIN TNC 370 User Manual page 189

7 Programming with 0 Parameters
L
7.8 Examples for Exercise
20 LBLIO
21 FNl:Q15=+05++Q4
22 FNO: 021 = + 01
23 FNl:Q24=+04++Q108
Determine starting and calculation values
24 FNO: Q26 = + 06
25 CYCL DEF 7.0 DATUM
26 CYCL DEF 7.1 X+09
27 CYCL DEF 7.2 Y+QlO
:
Shift datum to center of sphere
28 CYCL DEF 7.3 Z-04
29 CYCL DEF 10.0 ROTATION
30 CYCL DEF 10.1 ROT + Q6
>
Rotation for program start (starting plane angle)
31 cc x+0 Y+O
32 LP PR + Q24 PA + Q6 RO FQI 1 . . . . . . . . . . . . . . . . . . . . . . . . Pre-positioning before machining
33 LBL 1
34 cc z+o x+01 08
35 L Y+O Z+O FQI 1 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Pre-positioning at beginning of each arc
36 LBL2
37 LP PR+Q4 PA+Q21 RO FQI 1
38 FN2: Q21 = + Q21 - + Q3
39 FNI 1: IF + Q21 GT + 02 GOT0 LBL2
I
Mill the sphere upward until the highest point is reached
40 LP PR+Q4 PA+Q2
41 L Z+Q15 RO FIOOO
>
Mill the highest point and then retract the tool
42 L X+Q24 RO FMAX
43 FNI : Q26 = + 026 + + 08 . . . . . . . ..__._...___.............. Prepare the next rotation increment
44 FNO: Q21 = + 01 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Reset solid angle for machining to the starting value
45 CYCL DEF 10.0 ROTATION
46 CYCL DEF 10.1 ROT + Q26
I
Rotate the coordinate system about the Z axis until
47 FN12: IF + Q26 LT + Q7 GOT0 LBLI
plane end angle is reached
48 FN9: IF + 026 EQU + Q7 GOT0 LBLI
49 CYCL DEF 10.0 ROTATION
50 CYCL DEF 10.1 ROT + 0
51 CYCL DEF 7.0 DATUM
Reset rotation and datum shift
52 CYCL DEF 7.1 X+0
53 CYCL DEF 7.2 Y+O
54 CYCL DEF 7.3 Z+O
1
55 LBL 0 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . End of subprogram
56 END PGM 360712 MM
--
L
TNC 370
7-21
L