HEIDENHAIN TNC 640 User Manual page 253

Fixed Cycles: Contour Pocket | Programming Examples
11 TOOL CALL 2 Z S3000
12 CYCL DEF 22 ROUGH-OUT
Q10=5 ;PLUNGING DEPTH
Q11=100 ;FEED RATE FOR PLNGNG
Q12=350 ;FEED RATE F. ROUGHNG
Q18=1 ;COARSE ROUGHING TOOL
Q19=150 ;FEED RATE FOR RECIP.
Q208=30000 ;RETRACTION FEED RATE
13 CYCL CALL M3
14 L Z+250 R0 FMAX M2
15 LBL 1
16 L X+0 Y+30 RR
17 FC DR- R30 CCX+30 CCY+30
18 FL AN+60 PDX+30 PDY+30 D10
19 FSELECT 3
20 FPOL X+30 Y+30
21 FC DR- R20 CCPR+55 CCPA+60
22 FSELECT 2
23 FL AN-120 PDX+30 PDY+30 D10
24 FSELECT 3
25 FC X+0 DR- R30 CCX+30 CCY+30
26 FSELECT 2
27 LBL 0
28 END PGM C20 MM
HEIDENHAIN | User's manual for cycle programming | 10/2017
Tool call: fine roughing tool, diameter 15
Define the fine roughing cycle
Cycle call: Fine roughing
Retract in the tool axis, end program
Contour subprogram
7
253