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

Example: Convex sphere machined with end mill

Program sequence
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
31 CYCL DEF 7.3 Z-Q16
32 CYCL DEF 10.0 ROTATION
TNC 620 | User's Manual
HEIDENHAIN Conversational Programming | 5/2013
Programming examples 8.13
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
Definition of workpiece blank
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
Account for starting angle of rotational position in the plane
8
307