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

Programming Q Parameters | Programming examples
10
HEIDENHAIN | TNC 640 | Conversational Programming User's Manual | 10/2017
473
26 Q36 = Q5
Copy starting angle
27 Q37 = 0
Set counter
28 Q21 = Q3 *COS Q36
Calculate X coordinate for starting point
29 Q22 = Q4 *SIN Q36
Calculate Y coordinate for starting point
30 L X+Q21 Y+Q22 R0 FMAX M3
Move to starting point in the plane
31 L Z+Q12 R0 FMAX
Pre-position in spindle axis to set-up clearance
32 L Z-Q9 R0 FQ10
Move to working depth
33 LBL1
34 Q36 = Q36 +Q35
Update the angle
35 Q37 = Q37 +1
Update the counter
36 Q21 = Q3 *COS Q36
Calculate the current X coordinate
37 Q22 = Q4 *SIN Q36
Calculate the current Y coordinate
38 L X+Q21 Y+Q22 R0 FQ11
Move to next point
39 FN 12: IF +Q37 LT +Q7 GOTO LBL 1
Unfinished? If not finished, return to LBL 1
40 CYCL DEF 10.0 ROTATION
Reset the rotation
41 CYCL DEF 10.1 ROT+0
42 CYCL DEF 7.0 DATUM SHIFT
Reset the datum shift
43 CYCL DEF 7.1 X+0
44 CYCL DEF 7.2 Y+0
45 L Z+Q12 R0 FMAX
Move to set-up clearance
46 LBL 0
End of subprogram
47 END PGM ELLIPSE MM