HEIDENHAIN TNC 640, Руководство пользователя, Страница: 477 / 948

Programming Q Parameters | Programming examples
10
HEIDENHAIN | TNC 640 | Conversational Programming User's Manual | 10/2017
477
31 CYCL DEF 7.3 Z-Q16
32 CYCL DEF 10.0 ROTATION
Account for starting angle of rotational position in the plane
33 CYCL DEF 10.1 ROT+Q8
34 LBL 1
Pre-position in the spindle axis
35 CC X+0 Y+0
Set pole in the X/Y plane for pre-positioning
36 LP PR+Q26 PA+Q8 R0 FQ12
Pre-position in the plane
37 CC Z+0 X+Q108
Set pole in the Z/X plane, offset by the tool radius
38 L Y+0 Z+0 FQ12
Move to working depth
39 LBL 2
40 LP PR+Q6 PA+Q24 FQ12
Move upward on an approximated arc
41 FN 2: Q24 = +Q24 - +Q14
Update solid angle
42 FN 11: IF +Q24 GT +Q5 GOTO LBL 2
Inquire whether an arc is finished. If not finished, return to
LBL 2
43 LP PR+Q6 PA+Q5
Move to the end angle in space
44 L Z+Q23 R0 F1000
Retract in the spindle axis
45 L X+Q26 R0 FMAX
Pre-position for next arc
46 FN 1: Q28 = +Q28 + +Q18
Update rotational position in the plane
47 FN 0: Q24 = +Q4
Reset solid angle
48 CYCL DEF 10.0 ROTATION
Activate new rotational position
49 CYCL DEF 10.0 ROT+Q28
50 FN 12: IF +Q28 LT +Q9 GOTO LBL 1
51 FN 9: IF +Q28 EQU +Q9 GOTO LBL 1
Unfinished? If not finished, return to LBL 1
52 CYCL DEF 10.0 ROTATION
Reset the rotation
53 CYCL DEF 10.1 ROT+0
54 CYCL DEF 7.0 DATUM SHIFT
Reset the datum shift
55 CYCL DEF 7.1 X+0
56 CYCL DEF 7.2 Y+0
57 CYCL DEF 7.3 Z+0
58 LBL 0
End of subprogram
59 END PGM SPHERE MM