HEIDENHAIN TNC 640 (34059x-05) Cycle programming - Manual (Page 312)

Cycles: Special Functions
11.11 Programming examples
11
312
TNC 640 | User's Manual Cycle Programming | 1/2015
Q216=+0 ;CENTER IN 1ST AXIS
Q217=+0 ;CENTER IN 2ND AXIS
18 CYCL CALL Call the cycle
19 TOOL CALL 11 Z Tool call: Recessing tool for radial recess
20 CC X+0 Y+0
21 LP PR+25 PA+0 R0 FMAX
Retract the tool
22 CYCL DEF 291 COUPLG. TURNG. INTERP.
Activate interpolation turning
Q560=+1 ;SPINDLE COUPLING
Q336=+0 ;ANGLE OF SPINDLE
Q216=+0 ;CENTER IN 1ST AXIS
Q217=+0 ;CENTER IN 2ND AXIS
23 CYCL CALL
Call the cycle
24 LP PR+15.2 PA+0 RR FMAX Position the tool in the working plane
25 L Z+10 FMAX
26 L Z-11 F7000
Position the tool in the spindle axis
27 LBL 3 Recessing on lateral surface, infeed: 0.2 mm, depth: 6 mm
28 CC X+0.1 Y+0
29 CP IPA+180 DR+ F10000
30 CC X-0.1 Y+0
31 CP IPA+180 DR+
32 CALL LBL 3 REP15
33 LBL 4
Retract from recess, step: 0.4 mm
34 CC X-0.2 Y+0
35 CP IPA+180 DR+
36 CC X+0.2 Y+0
37 CP IPA+180 DR+
38 CALL LBL 4 REP8
39 L LP PR+25 FMAX
40 Z+200 R0 FMAX
Retract to clearance height, deactivate radius compensation
41 CYCL DEF 291 COUPLG. TURNG. INTERP.
Terminate interpolation turning
Q560=+0 ;SPINDLE COUPLING
Q336=+0 ;ANGLE OF SPINDLE
Q216=+0 ;CENTER IN 1ST AXIS
Q217=+0 ;CENTER IN 2ND AXIS
42 CYCL CALL
Call the cycle
43 M30
44 END PGM 1 MM