31 example program, Example: shoulder with recess, Example program – HEIDENHAIN TNC 640 (34059x-02) Cycle programming User Manual
Page 383: Example program 13.31

Example program 13.31
13
TNC 640 | User's Manual Cycle Programming | 5/2013
383
13.31
Example program
Example: Shoulder with recess
0 BEGIN PGM SHOULDER MM
1 BLK FORM 0.1 Y X+0 Y-10 Z-35
Definition of workpiece blank
2 BLK FORM 0.2 X+87 Y+10 Z+2
3 TOOL CALL 12
Tool call
4 M140 MB MAX
Retract the tool
5 FUNCTION MODE TURN
Activate Turning mode
6 FUNCTION TURNDATA SPIN VCONST:ON VC:150
Constant surface speed
7 CYCL DEF 800 ADAPT ROTARY COORDINATE SYSTEM
Cycle definition adapt rotary coordinate system
Q497=+0
;PRECISION ANGLE
Q498=+0
;REVERSE TOOL
8 M136
Feed rate in mm per revolution
9 L X+165 Y+0 R0 FMAX
Move to starting point in the plane
10 L Z+2 R0 FMAX M304
Set-up clearance, turning spindle on
11 CYCL DEF 812 SHOULDER LONG. EXTENDED.
Cycle definition shoulder longitudinal
Q215=+0
;MACHINING OPERATION
Q460=+2
;SAFETY CLEARANCE
Q491=+160
;DIAMETER AT CONTOUR START
Q492=+0
;CONTOUR START IN Z
Q493=+150
;DIAMETER AT END OF CONTOUR
Q494=-40
;CONTOUR END IN Z
Q495=+0
;ANGLE OF CIRCUM. SURFACE
Q501=+1
;TYPE OF STARTING ELEMENT
Q502=+2
;SIZE OF STARTING ELEMENT
Q500=+1
;RADIUS OF CONTOUR EDGE
Q496=+0
;ANGLE OF FACE
Q503=+1
;TYPE OF END ELEMENT
Q504=+2
;SIZE OF END ELEMENT
Q463=+2.5
;MAX. CUTTING DEPTH
Q478=+0.25
;ROUGHING FEED RATE
Q483=+0.4
;OVERSIZE FOR DIAMETER