Example: Convex Sphere Machined With End Mill - HEIDENHAIN TNC 620 User Manual

Programming Q Parameters | Programming examples

Example: Convex sphere machined with end mill

Program run
This program requires an end mill.
The contour of the sphere is approximated by
many short lines (in the Z/X plane, defined in Q14).
The smaller you define the angle increment, the
smoother the curve becomes.
You can determine the number of contour cuts
through the angle increment in the plane (defined in
Q18).
The tool moves upward in three-dimensional cuts.
The tool radius is compensated automatically
0 BEGIN PGM SPHERE MM
1 FN 0: Q1 = +50
2 FN 0: Q2 = +50
3 FN 0: Q4 = +90
4 FN 0: Q5 = +0
5 FN 0: Q14 = +5
6 FN 0: Q6 = +45
7 FN 0: Q8 = +0
8 FN 0: Q9 = +360
9 FN 0: Q18 = +10
10 FN 0: Q10 = +5
11 FN 0: Q11 = +2
12 FN 0: Q12 = +350
13 BLK FORM 0.1 Z X+0 Y+0 Z-50
14 BLK FORM 0.2 X+100 Y+100 Z+0
15 TOOL CALL 1 Z S4000
16 L Z+250 R0 FMAX
17 CALL LBL 10
18 FN 0: Q10 = +0
19 FN 0: Q18 = +5
20 CALL LBL 10
21 L Z+100 R0 FMAX M2
22 LBL 10
23 FN 1: Q23 = +q11 + +q6
24 FN 0: Q24 = +Q4
25 FN 1: Q26 = +Q6 + +Q108
26 FN 0: Q28 = +Q8
27 FN 1: Q16 = +Q6 + -Q10
28 CYCL DEF 7.0 DATUM SHIFT
29 CYCL DEF 7.1 X+Q1
30 CYCL DEF 7.2 Y+Q2
HEIDENHAIN | TNC 620 | Conversational Programming User's Manual | 10/2017
Center in X axis
Center in Y axis
Starting angle in space (Z/X plane)
End angle in space (Z/X plane)
Angle increment in space
Sphere radius
Starting angle of rotational position in the X/Y plane
End angle of rotational position in the X/Y plane
Angle increment in the X/Y plane for roughing
Allowance in sphere radius for roughing
Set-up clearance for pre-positioning in the spindle axis
Feed rate for milling
Workpiece blank definition
Tool call
Retract the tool
Call machining operation
Reset allowance
Angle increment in the X/Y plane for finishing
Call machining operation
Retract the tool, end program
Subprogram 10: Machining operation
Calculate Z coordinate for pre-positioning
Copy starting angle in space (Z/X plane)
Compensate sphere radius for pre-positioning
Copy rotational position in the plane
Account for allowance in the sphere radius
Shift datum to center of sphere
10
465