1 0 pr ogr amming examples – HEIDENHAIN TNC 640 (34059x-01) Cycle programming User Manual
Page 191

HEIDENHAIN TNC 640
191
7.
1
0
Pr
ogr
amming Examples
8 CYCL DEF 22 ROUGH-OUT
Cycle definition: Coarse roughing
Q10=5
;PLUNGING DEPTH
Q11=100
;FEED RATE FOR PLNGNG
Q12=350
;FEED RATE FOR ROUGHING
Q18=0
;COARSE ROUGHING TOOL
Q19=150
;RECIPROCATION FEED RATE
Q208=30000 ;RETRACTION FEED RATE
9 CYCL CALL M3
Cycle call: Coarse roughing
10 L Z+250 R0 FMAX M6
Tool change
11 TOOL CALL 2 Z S3000
Tool call: fine roughing tool, diameter 15
12 CYCL DEF 22 ROUGH-OUT
Define the fine roughing cycle
Q10=5
;PLUNGING DEPTH
Q11=100
;FEED RATE FOR PLNGNG
Q12=350
;FEED RATE FOR ROUGHING
Q18=1
;COARSE ROUGHING TOOL
Q19=150
;RECIPROCATION FEED RATE
Q208=30000 ;RETRACTION FEED RATE
13 CYCL CALL M3
Cycle call: Fine roughing
14 L Z+250 R0 FMAX M2
Retract in the tool axis, end program
15 LBL 1
Contour subprogram
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