HEIDENHAIN TNC 640 (34059x-04) - Manual (Page 351)

Programming examples 9.13
9
TNC 640 | User's Manual
HEIDENHAIN Conversational Programming | 3/2014
351
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
Center in X axis
2 FN 0: Q2 = +50 Center in Y axis
3 FN 0: Q4 = +90 Starting angle in space (Z/X plane)
4 FN 0: Q5 = +0 End angle in space (Z/X plane)
5 FN 0: Q14 = +5 Angle increment in space
6 FN 0: Q6 = +45 Sphere radius
7 FN 0: Q8 = +0 Starting angle of rotational position in the X/Y plane
8 FN 0: Q9 = +360 End angle of rotational position in the X/Y plane
9 FN 0: Q18 = +10 Angle increment in the X/Y plane for roughing
10 FN 0: Q10 = +5 Allowance in sphere radius for roughing
11 FN 0: Q11 = +2 Set-up clearance for pre-positioning in the spindle axis
12 FN 0: Q12 = +350 Feed rate for milling
13 BLK FORM 0.1 Z X+0 Y+0 Z-50 Definition of workpiece blank
14 BLK FORM 0.2 X+100 Y+100 Z+0
15 TOOL CALL 1 Z S4000
Tool call
16 L Z+250 R0 FMAX Retract the tool
17 CALL LBL 10 Call machining operation
18 FN 0: Q10 = +0 Reset allowance
19 FN 0: Q18 = +5 Angle increment in the X/Y plane for finishing
20 CALL LBL 10 Call machining operation
21 L Z+100 R0 FMAX M2 Retract the tool, end program
22 LBL 10 Subprogram 10: Machining operation
23 FN 1: Q23 = +Q11 + +Q6 Calculate Z coordinate for pre-positioning
24 FN 0: Q24 = +Q4 Copy starting angle in space (Z/X plane)
25 FN 1: Q26 = +Q6 + +Q108 Compensate sphere radius for pre-positioning
26 FN 0: Q28 = +Q8 Copy rotational position in the plane
27 FN 1: Q16 = +Q6 + -Q10 Account for allowance in the sphere radius
28 CYCL DEF 7.0 DATUM SHIFT Shift datum to center of sphere
29 CYCL DEF 7.1 X+Q1
30 CYCL DEF 7.2 Y+Q2
31 CYCL DEF 7.3 Z-Q16