HEIDENHAIN iTNC 530 (606 42x-02) ISO programming - Manual (Page 319)

HEIDENHAIN iTNC 530 319
9.1
1
Pr
ogr
amming Examples
N180 L10.0 * Call machining operation
N190 Q10 = +0 * Reset allowance
N200 Q18 = +5 * Angle increment in the X/Y plane for finishing
N210 L10.0 * Call machining operation
N220 G00 G40 Z+250 M2 * Retract in the tool axis, end program
N230 G98 L10 * Subprogram 10: Machining operation
N240 Q23 = Q11 + Q6 * Calculate Z coordinate for pre-positioning
N250 Q24 = +Q4 * Copy starting angle in space (Z/X plane)
N260 Q26 = Q6 + Q108 * Compensate sphere radius for pre-positioning
N270 Q28 = +Q8 * Copy rotational position in the plane
N280 Q16 = Q6 + -Q10 * Account for allowance in the sphere radius
N290 G54 X+Q1 Y+Q2 Z-Q16 * Shift datum to center of sphere
N300 G73 G90 H+Q8 * Account for starting angle of rotational position in the plane
N310 G98 L1 * Pre-position in the tool axis
N320 I+0 J+0 * Set pole in the X/Y plane for pre-positioning
N330 G11 G40 R+Q26 H+Q8 FQ12 * Pre-position in the plane
N340 I+Q108 K+0 * Set pole in the Z/X plane, offset by the tool radius
N350 G01 Y+0 Z+0 FQ12 * Move to working depth
N360 G98 L2 *
N370 G11 G40 R+Q6 H+Q24 FQ12 * Move upward in an approximated “arc”
N380 Q24 = Q24 - Q14 * Update solid angle
N390 D11 P01 +Q24 P02 +Q5 P03 2 * Inquire whether an arc is finished. If not finished, return to LBL 2.
N400 G11 R+Q6 H+Q5 FQ12 * Move to the end angle in space
N410 G01 G40 Z+Q23 F1000 * Retract in the tool axis
N420 G00 G40 X+Q26 * Pre-position for next arc
N430 Q28 = Q28 + Q18 * Update rotational position in the plane
N440 Q24 = +Q4 * Reset solid angle
N450 G73 G90 H+Q28 * Activate new rotational position
N460 D12 P01 +Q28 P02 +Q9 P03 1 * Unfinished? If not finished, return to label 1
N470 D09 P01 +Q28 P02 +Q9 P03 1 *
N480 G73 G90 H+0 * Reset the rotation
N490 G54 X+0 Y+0 Z+0 * Reset the datum shift
N500 G98 L0 * End of subprogram
N99999999 %SPHERE G71 *