HEIDENHAIN TNC 640, User Manual, Page: 476 / 948

Programming Q Parameters | Programming examples
10
476
HEIDENHAIN | TNC 640 | Conversational Programming User's Manual | 10/2017
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
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
Workpiece blank definition
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