HEIDENHAIN TNC 620 User Manual page 367

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
HEIDENHAIN | TNC 620 | Conversational Programming User's Manual | 10/2015
Programming examples 9.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
9
367