HEIDENHAIN 530 (340 49x-07) - Manual (Page 362)

362 Programming: Q-Parameters
9.12 Pr
ogr
amming Examples
17 CALL LBL 10 Call machining operation
18 Q10 = +0 Reset allowance
19 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 in the tool axis, end program
22 LBL 10 Subprogram 10: Machining operation
23 Q23 = +Q11 + +Q6 Calculate Z coordinate for pre-positioning
24 Q24 = +Q4 Copy starting angle in space (Z/X plane)
25 Q26 = +Q6 + +Q108 Compensate sphere radius for pre-positioning
26 Q28 = +Q8 Copy rotational position in the plane
27 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
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 tool 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