User`s manual for cycle programming

Programming Examples 7.12
7
HEIDENHAIN | TNC 640 | User’s manual for cycle programming | 9/2015
225
Example: Pilot drilling, roughing-out and finishing
overlapping contours
0 BEGIN PGM C21 MM
1 BLK FORM 0.1 Z X+0 Y+0 Z-40
Definition of workpiece blank
2 BLK FORM 0.2 X+100 Y+100 Z+0
3 TOOL CALL 1 Z S2500
Tool call: Drill, diameter 12
4 L Z+250 R0 FMAX
Retract the tool
5 CYCL DEF 14.0 CONTOUR GEOMETRY
Define contour subprogram
6 CYCL DEF 14.1 CONTOUR LABEL 1 /2 /3 /4
7 CYCL DEF 20 CONTOUR DATA
Define general machining parameters
Q1=-20 ;MILLING DEPTH
Q2=1 ;TOOL PATH OVERLAP
Q3=+0.5 ;ALLOWANCE FOR SIDE
Q4=+0.5 ;ALLOWANCE FOR FLOOR
Q5=+0 ;SURFACE COORDINATE
Q6=2 ;SET-UP CLEARANCE
Q7=+100 ;CLEARANCE HEIGHT
Q8=0.1 ;ROUNDING RADIUS
Q9=-1 ;DIRECTION
8 CYCL DEF 21 PILOT DRILLING
Cycle definition: Pilot drilling
Q10=5 ;PLUNGING DEPTH
Q11=250 ;FEED RATE FOR PLNGNG
Q13=2 ;ROUGH-OUT TOOL
9 CYCL CALL M3
Cycle call: Pilot drilling
10 L +250 R0 FMAX M6
Tool change
11 TOOL CALL 2 Z S3000
Call the tool for roughing/finishing, diameter 12
12 CYCL DEF 22 ROUGH-OUT
Cycle definition: Rough-out
Q10=5 ;PLUNGING DEPTH
Q11=100 ;FEED RATE FOR PLNGNG
Q12=350 ;FEED RATE FOR ROUGH-OUT