HEIDENHAIN TNC 620 User Manual page 381

N270 G73 G90 H+Q8*
N280 G00 G40 X+0 Y+0*
N290 G01 Z+5 F1000 M3*
N300 G98 L1*
N310 I+0 K+0*
N320 G11 R+Q16 H+Q24 FQ11*
N330 G01 G40 Y+Q7 FQ12*
N340 D01 Q20 P01 +Q20 P02 +1*
N350 D01 Q24 P01 +Q24 P02 +Q25*
N360 D11 P01 +Q20 P02 +Q13 P03 99*
N370 G11 R+Q16 H+Q24 FQ11*
N380 G01 G40 Y+0 FQ12*
N390 D01 Q20 P01 +Q20 P02 +1*
N400 D01 Q24 P01 +Q24 P02 +Q25*
N410 D12 P01 +Q20 P02 +Q13 P03 1*
N420 G98 L99*
N430 G73 G90 H+0*
N440 G54 X+0 Y+0 Z+0*
N450 G98 L0*
N99999999 %CYLIN G71 *
HEIDENHAIN | TNC 620 | ISO Programming User's Manual | 9/2016
Programming examples 9.12
Account for rotational position in the plane
Pre-position in the plane to the cylinder center
Pre-position in the spindle axis
Set pole in the Z/X plane
Move to starting position on cylinder, plunge-cutting
obliquely into the material
Longitudinal cut in Y+ direction
Update the counter
Update solid angle
Finished? If finished, jump to end
Move in an approximated "arc" for the next longitudinal cut
Longitudinal cut in Y– direction
Update the counter
Update solid angle
Unfinished? If not finished, return to LBL 1
Reset the rotation
Reset the datum shift
End of subprogram
9
381