% O0001(BUFFERSET-UP)(20/3/2018) (Y-280.93 NEW RT) G00G17G21G40G49G69G80G90 H00 M70 #133=0. M99 O0002(THREADING) (HEL.INT.MACRO) (G65P2D-Z-T-R-S-F-) (G66) (SPECIFYDCODEFORRADOFFSET) (FORINT.TOOLRAD=+) (FOREXT.TOOLRAD=-) (D=RADIUS#7) (Z=DEPTH#26) (T=ZPITCH#20) (R=ZSETUP#18) (S=RETRACTAMOUNT&DIRECTION)(#19) (ENDPOINT9O-CLOCK) (F=FEEDRATE)(#9) #105=#20 #103=#5003 #3=0. #21=#7-#[2000+#4307] G91G0X-#21 G90G0Z#18 #104=#26-#18 WHILE[#3GT#104]DO1 IF[[#3-#105]LT#104]THEN#105=-[#104-#3] G91G2Z-#105I#21F#9 #3=#3-#105 END1 G1X#19 G90G0Z#103 G91X[#21-#19] G90 M99 O0003(PROFILEMACRO) (G66/G65P3A-Z-Q-R-F-) (A=PROFILEPROGNO#1) (Z=ZDEPTH#26) (Q=DEPTHOFCUT#17) (R=ZSETUP#18) (F=FEEDRATE#9) #103=#5003(READZ) #104=#18 G90G0Z#104 WHILE[#104GT#26]DO1 #104=#104-#17 IF[#104LT#26]THEN#104=#26 G90G1Z#104F#9(G1) F#9 M98P#1 END1 G90G0Z#103 M99 O0004(HELINTERPOLATION) (MILLINGSAMEAS2) (HEL.INT.MACRO)(INTERNAL) (G65P4D-Z-T-R-S-F-) (SPECIFYDCODEFORRADOFFSET) (D) (SRELIEF019) (F) #101=#5001 #102=#5002 #103=#5003 #105=#20 #21=#7-#[2000+#4307] G91G0X-#21 G90G0Z#18 #104=#5003 WHILE[#104GT#26]DO1 IF[[#104-#105]LT#26]THEN#105=#104-#26 G91G3Z-#105I#21F#9 #104=#5003 END1 G3I#21 G1X#19 G90G0Z#103 X#101Y#102 M99 O0005(CIRINTERPOLATION) (G65P5S-D-T-F-) (CANBECONTROLEDBYMACRO#3) (G65P3A5.Z-Q-R-F-S-D-T-) (SPECIFYDFORRADOFFSET) (S=INSIDEBORERAD#19) (D=BORERAD#7) (T=DEPTHOFCUT#20) (F=FEEDRATE#9) #101=#5001 #102=#5002 #3=#19 #4=#[2000+#4307] G0X[[#101-#3]+#4] WHILE[#3LT#7]DO1 #3=#3+#20 IF[#3GT#7]THEN#3=#7 G1X[[#101-#3]+#4]F[#9/4] G3X[[#101-#3]+#4]Y#102I[#3-#4]F#9 END1 G0X#101Y#102 M99 O0006(STEPPEDCIR.INT) (G65P6Z-Q-R-S-D-T-F-) (SPECIFYDFORRADOFFSET) (ZDEPTH#26) (QDEPTHOFCUT#17) (RSTARTINGPOSITION#18) (S#19) (D#7) (T#20) (FFEED#9) #101=#5001 #102=#5002 #103=#5003 #105=#17 #13=#[2000+#4307] G90G1Z#18F#9 #104=#5003 WHILE[#104GT#26]DO1 IF[[#104-#105]LT#26]THEN#105=#104-#26 G91G1Z-#105F[#9/2] #104=#5003 #3=#19 WHILE[#3LT#7]DO2 #3=#3+#20 IF[#3GT#7]THEN#3=#7 G90G1X[[#101+#3]-#13]F[#9/2] G91G3I-[#3-#13]F#9 G90 END2 G1X#101 END1 G0Z#18. G90G0X#101Y#102Z#103. M99 O0007(SPIRALCIR.INT.) (FIX) (G65P7S-T-F-) (ZCANBECONTROLEDBYP3) (G65P3A7.Z-Q-R-S-T-F-) (SPECIFYDCODEFORRADOFFSETS) (S=RADIUS#19) (T=WIDTHOFCUT#20) (F=FEEDRATE#9) #101=#5001(XSTART) #102=#5002(YSTART) #104=0.(STARTANGLE) #106=#[2000+#4307](RADOFFSET) #105=0.(RADIUS) F#9(FEEDRATE) WHILE[#105LT[#19-#106]]DO1 #104=#104+10. #105=#105+[#20/36.] IF[#105GT[#19-#106]]THEN#105=#19-#106 /IF[#104GE360.]THEN#104=#104-360. #111=COS[#104]*#105 #112=SIN[#104]*#105 G90G03X[#101+#111]Y[#102+#112]R[#105*2.]F#9 END1 #3=1 #105=#19-#106 WHILE[#3LE3]DO1 #104=#104+130. /IF[#104GE360.]THEN#104=#104-360. #111=COS[#104]*#105 #112=SIN[#104]*#105 G03X[#101+#111]Y[#102+#112]R#105 #3=#3+1 END1 G1X#101Y#102(G3R[#105*0.5]) G0 M99 O0008(NPTTHREADING) (HEL.INT.MACRO) (INTERNALTHREADING) (SPECIFYDCODEFORRADOFFSET) (G65P8D-Z-T-R-F-) (D=RADIUS#7) (Z=ZDEPTH#26) (T=PITCH#20) (R=ZSETUP#18) (F=FEEDRATE#9) #101=#5001 #102=#5002 #103=#5003 #3=0. G90G0Z#18 #104=#26-#18 #21=#7-#[2000+#4307] #105=#20*0.03125(1:16/2) G1X[#101+#21]F#9 WHILE[#3GT#104]DO1 #4=-45. WHILE[#4GE-360.]DO2 #18=#18-[#20/8.] #21=#21-[#105/8.](360./45.=8.) #24=COS[#4]*#21 #25=SIN[#4]*#21 G2X[#101+#24]Y[#102+#25]Z#18R[#21+[#105/32.]] #4=#4-45. END2 #3=#3-#20 END1 G90G0X#101Y#102 Z#103 M99 O0009(POLARCO-ORDMACRO) (G65P9IJKW) (G65P9IJKWUH) (I=XCENTERPOINT#4) #114=#4 (J=YCENTERPOINT#5) #115=#5 (K=POLARRADIUS#6) #116=#6 (W=POLARANGLE#23+=C.C,-=C) #117=#23 (U=INCRAMENTALANGLE#21) (H=REPITION#11) IF[#11LT1.]THEN#11=1. #3=0. WHILE[#3LT#11]DO1 #117=#117+#21 #104=COS[#117]*#116 #105=SIN[#117]*#116 X[#114+#104]Y[#115+#105] #3=#3+1. END1 M99 O0010(2NDDEPTHCONTROLE) (M98P10) #18=#18-#17 IF[#18LT#26]THEN#18=#26 G90G1Z#18F[#9/3] F#9 M99 O0011(STEP H/S DRILLING) (G65 P11 Z- K- Q- R- F-) (Z=DRILLING DEPTH)(#26) (K=SMALL PECKING DEPTH)(#6) (Q=PECKING DEPTH)(#17) (R=Z STARTING POINT SET UP)(#18) (F=FEED RATE)(#9) G90G0Z#18 #103=#5003 #104=-#17 #105=#18-1. WHILE[#104GT[#26-#17]]DO1 IF[#104LT#26]THEN#104=#26 G73Z#104Q#6R[#105+1.]F#9 #105=#104 #104=#104-#17 END1 G0Z#103 M99 O0012(SLOTMILLING) (G65P12X-Y-Z-Q-R-F-) (X#24Y#25Z#26Q#17R#18F#9) #101=#5001(XSTART) #102=#5002(YSTART) #103=#5003(ZSTART) #104=#18 G90G0Z#104 WHILE[#104GT#26]DO1 #104=#104-#17 IF[#104LT#26]THEN#104=#26 G1X#24Y#25Z#104F#9 IF[#104EQ#26]GOTO99 #104=#104-#17 IF[#104LT#26]THEN#104=#26 G1X#101Y#102Z#104F#9 N99END1 G1X#101Y#102 G0Z#103 M99 O0013(V150.REAM TEST) N1G55S250M3 G90G0X0.Y0.Z300. G43Z20.H20M16 G73Z-95.Q3.R0.F80 G0Z150. M24 G0Z20. G73Z-95.Q3.R0.F80 G0Z300.H0M17 G91G28Z0.Y0. M30 O0015(MOULD MILLING PRG) N1G55S1000M3 G90G0X0.Y0.Z350. G43Z20.H1M16 G1Z-4.2F1000 /G65P16L22 G65P17L5 G0Z350.H0M17 G91G28Z0.Y0. M30 O0016(SUB FOR 15) G91G1Z-2.F500 G90G1X164.F500 G90G1Y-164.F500 G90G1X-164.F500 G90G1Y164.F500 M99 O0017(SUB FOR PRG 15-FACING) (DIA.32) G90G1Y-340.F500 G91G1X-30.F500 G90G1Y0.F500 G91G1X-30.F500 M99 O0021(NPT THREADING) (G65/G66 P21 D- Z- T- F-) (SPECIFY D CODE) (D=RADIUS #7) (Z=Z POS. #26) (T=PITCH #20) (F=FEED #9) #101=#5001 #102=#5002 #103=#5003 #21=#7-#[2000+#4307] G90G0Z#26 G91G01X[#21/2]Y-[#21/2]F#9 G03X[#21/2]Y[#21/2]Z[#20/8]R[#21/2] #4=90. WHILE[#4LE360.]DO1 #105=#20/32(1.16/2 RAD GROWTH) #21=#21+[#105/4.](360./90.=4) #24=COS[#4]*#21 #25=SIN[#4]*#21 G90G03X[#101+#24]Y[#102+#25]G91Z[#20/4]R[#21+[#105/32.]] #4=#4+90. END1 G91G03X-[#21/2]Y[#21/2]Z[#20/8]R[#21/2] G90G01X#101Y#102 G90G0Z#103 M99 O0022(INT THREADING) (HEL INT MACRO) (G65/G66 P22 D- Z- T- F) (SPECIFY D CODE FOR RAD OFFSET) (D=RADIUS #7) (Z=Z DEPTH POS.) (T=PITCH #20) (F=FEED RATE #9) #103=#5003 #21=#7-#[2000+#4307] G90G0Z#26 G91G1X[#21/2]Y-[#21/2]F#9 G03X[#21/2]Y[#21/2]Z[#20/8]R[#21/2] G03I-#21Z#20 G03X-[#21/2]Y[#21/2]Z[#20/8]R[#21/2] G1X-[#21/2]Y-[#21/2] G90G0Z#103 M99 O0023(TAPER HEL INTERPOLATION) (G65 P23 U- V- Z- Q- F-) (U TOP RAD #21) (V BOTTOM RAD #22) (Z BOTTOM Z POSITION #26) (Q STEP DOWN #17) (F FEED RATE #9) #101=#5001 #102=#5002 #103=#5003 #104=#103(Z CONTROL) #105=#21(RAD CONTROL) G90G3Y[#102+#105]R[#105/2]F[#9/2] WHILE[#104GT#26]DO1 #104=#104-#17 IF[#104LT#26]THEN#104=#26 #106=[#21-#22]*[#103-#104]/[#103-#26](RAD INC) #105=#21-#106 G1Y[#102+#105]Z#104F#9 G3J-#105 END1 G3J-#22 G3X#101Y#102R[#22/2] M99 O0024(HEL INTERPOLATION) (USED WITH 23) (HEL. INT. MACRO) (G65 P24 D- Z- T- F-) (D RAD #7) (Z Z DEPTH #26) (T Z STEP DOWN #20) (F FEED #9) #101=#5001 #102=#5002 #103=#5003 #104=#103 G91G3X#7R[#7/2]F[#9/2] WHILE[#104GT#26]DO1 #104=#104-#20 IF[#104LT#26]THEN#104=#26 G90G3Z#104I-#7F#9 END1 G3I-#7 G3X#101Y#102R[#7/2] M99 O0025(INDEXING TABLE BOTTOM PLATE) N1G54S350M3 G90G0X0.Y0.Z350. G43Z20.H7M8 G83Z-30.Q2.R3.F40 /X-43.5Y75.34 /X43.5 /Y-75.34 X-43.5 G0Z350.H0M9 G91G28Z0.Y0.M9 M30 O0600(600 BLOCKS) M98P1(2018) (G58)(JP X903.2)(Y-281.)(Z-482.94) (G59 Z-406.95) N1G58S550T2M3(16.0 DRILL) G90G0X-15.Y44.Z400. G43Z20.H1M16 G83Z-107.Q1.R5.F60 Y-44. G0X-100.Z450.H00M17 G91G28Z0M6 N2G58S200T3M3(019.5 DRILL) G90G0X-15.Y44.Z450. G43Z40.H2M16 G65P11Z-108.K1.Q5.R6.F80. Y-44. G65P11Z-108.K1.Q5.R6.F80. G0X-100.Z450.H00M17 G91G28Z0M6 N3M98P601L2(2 90,3 270) T8M6 N81 #500=57 M98P602L1(4 360,5 540) N82 M24 M00 #500=58 M98P602L1 M24 M00 T1M6 G91G28Y0.Z0 M17 M30 O0601(TOP) M24(2&3) M00 N3G59S300T4M3(019.DRILL) G90G0X-15.Y30.Z350. G43Z20.H3M16 G83Z-44.Q2.R2.F50. Y0. Y-30. G0X-100.Z350.H00M17 G91G28Z0.M6 N4G59S400T3M3(012.2 DRILL) G90G0X-15.Y-30.Z350. G43Z40.H4M16 G83Z-79.Q1.0R-40.F60 Y0. Y30. G0X-100.Z350.H00M17 G91G28Z0.M6 N3G59S240T5M3(019.DRILL) G90G0X-15.Y30.Z350. G43Z10.H3M16 G82Z-48.P500R-42.F40 Y0. Y-30. G0X-100.Z350.H00M17 G91G28Z0M6 N5G59S150T6M3(021.5 DRILL) G90G0X-15.Y-30.Z350. G43Z10.H5M16(SHOLDER) G82Z-3.P500R2.F80 Y0. Y30. G0X-100.Z350.H00M17 G91G28Z0.M6 N6G59S1800T7M3(INT THREADING) (R1/2 14 TAP)(D1.6) G90G0X-15.Y30.Z350. G43Z30.H6M16 G66P22D1.6Z-19.T1.814F30. Y30. Y0. Y-30. G67 G66P22D1.85Z-19.T1.814F30. Y-30. Y0. Y30. G67 G0X-100.Z350.H00M17 G91G28Z0.M6 N7G59S200T3M3(45.C/SINK) G90G0X-15.Y-30.Z350. G43Z10.H7M16 G82Z-10.6P100R-8.F20 Y0. Y30. G0X-100.Z350.H00M17 G91G28Z0M6 M00 M24 M00 M99 O0602(SIDES) N8G58S600T9M3(010.DRILL) G90G0X-15.Y96.Z300. G43Z10.H8M16 G73Z-50.Q2.R2.F80 G73Y71.Z-20.Q2.R2.F80 Y-71. G0X-100.Z400.H00M17 G91G28Z0M6 N9G58S800T10M3(013.S/DRILL) G90G0X-15.Y96.Z350. G43Z50.H9M16 G82Z-3.P500R2.F20 G0X-100.Z400.H00M17 G91G28Z0M6 N10G58S600T11M3(017.S/DRILL) G90G0X-15.Y71.Z350. G43Z15.H10M16 G82Z-4.5P500R2.F20 Y-71. G0X-100.Z450.H00M17 G91G28Z0M6 N11G58S900T12M3(05.DRILL) G90G0X-29.Y56.Z300. G43Z20.H11M16 G83Z-25.Q2.R2.F80 Y32. Y-32. Y-56.0 G0X-100.Z400.H00M17 G91G28Z0M6 N12G58S200T13M3(45.C/SINK) G90G0X-15.Y96.Z300. G43Z10.H12M16 G81Z-7.R-5.F20 G81Y71.Z-9.R-7.5 G81X-29.Y56.Z-3.4R0. Y32. Y-32. Y-56. G81X-15.Y-71.Z-9.R-7.5 G0X-100.Z400.H00M17 G91G28Z0.M6 N13G58S150T14M3(M6. 1TAP) G90G0X-29.Y56.Z300. G43Z20.H13 G84Z-12.R5.F150. Y32. Y-32. Y-56. G0X-100.Z400.H00M17 G91G28Z0M6 N14G58S250T15M3(60.C/SINK) G90G0X-15.Y44.Z300. G43Z15.H14M16 G82Z-13.6P500R-9.F20 Y-44. G0X-100.Z400.H00M17 G91G28Z0M6 N15G58S1700T8M3(18.6 B/BAR) G90G0X-15.Y-44.Z350. G43Z15.H15M16(MIDDLE) G0Z-14. M98P603 G0Z-44. M98P603 G0Z30. Y44. Z-14. M98P603 G0Z50. G0X-100.Z450.H00M17 G91G28Z0M6 M24 M00 M99 O0603(600 SUB) G91G1X-1.4F100 G3I1.4 M98P604L20(12. MM) G3I1.4 G0X1.4 G90 M99 O0604(600 SUB) G3Z-0.6I1.4F200 M99 O0605(DIA 91.1 & DRILL) G98P1(PRAM1623 TO 0) (DATUM TOP RIGHT CORNER) (G57 Z-589.5)(Y-220.72)(5/95) N1G57S950D11T2M3(050. 75.DEG I) (D11 25.1) G90G0X-130.Y-26.Z300. G43Z20.H1M16 Z0. G1X30.F500 G0Y-74. G1X-130. G0Y-55.Z-4. G1G41X-96.27F200. Y-50.F300. G2X-96.27Y-50.I46.27F420. G1Y-45. G0Z20. G0G40X-200.Z400.H00M17 G91G28Z0M6 N2G57S1200D12T3M3(032 I) (D12 16.)(ROUGHING)(DIA 100.) G90G0X-130.Y-55.Z350. G43Z20.H2M16 G65P3A607.Z-20.Q2.R-4.F600. G0G40X-100.Z400.H00M17 G91G28Z0M6 N3G57S2500D13T4M3(032.I) (D13 16.) G90G0X-120.Y-55.Z300. G43Z20.H3 Z-4.M16 G1G41X-95.55F1000. Y-50. G2X-95.55Y-50.I45.55 G1Y-45. G0Z20. G0G40X-200.Z400.H00M17 G91G28Z0M6 N4G57S2400D14T5M3(012. 45DEGI) (D14 11.9) G90G0X-120.Y-55.Z300. G43Z20.H4M16 Z-9.5 G1G41X-96.F700. Y-50. G2X-96.Y-50.I46. G1Y-45. G0Z20. G0G40X-200.Z400.H00M17 G91G28Z0M6 N5G57S750T1M3(010.DRILL) G90G0X-30.Y-20.Z300. G43Z10.H5M16 G73Z-45.Q2.R2.F110 X-58.Y-50. G0Z20. G0X-200.Z400.H00M17 G91G28Y0.Z0.M6 M30 O0606(FACE 2ND SIDE) M98P1 N1G54S300M3 G90G0X0.Y30.Z300. G43Z50.H1 Z0.M16 G1X220.F300 G0Y-30. G1X0. G0Z50.M17 G0Y100.Z400.H00 G91G28Y0Z0 M30 O0607(605 SUB ALT CUTTER) (DIA 100.PROFILE) G1G41X-100.F#9 Y-50. G2X-100.Y-50.I50. G1Y-45. G0G40X-130.Y-55. M99 O0608(600 BLOCK SIDE) (Z-525.55) N1G54S300M3 G90G0X0.Y0.Z350. G43Z10.H1M16 Z3.F200 G1Y-160.F200 G0Z4. Y0. Z2. G1Y-160. G0Z3. Y0. Z1. G1Y-160. G0Z3. Y0. Z0. G1Y-160. M17 G0Z350.H00 G91G28Y0Z0 M30 O7500(V75 HOUSING) M98P1(01 2021) M98P7501L2 T10M6 N10G58S150T1M3(D19. REAMER) G90G0X0.Y0.Z350.M16 G43Z50.H10 G81Z-142.R2.F38. G59X0.Y0. G0X-100.Z350.H00M17 G91G28Y0Z0M6 M16 M00 M17 M30 O7501(V75 HOUSING) M98P1(01/2021) (U-22.25) (JIG CENTRE Y-280.930) (G57)(JP X820.370)(Z-392.550) (G58 & G59 Z-439.180) (G58 Y+ G59 Y-)(Y+/-37.) M24(90) M00 N1G57S600M3T2(D50 CUTTER) G90G0X0.Y105.Z350.M16 G43Z20.H1 G0Z2. G1Y-70.F200 /G0Z20. /G0Y105. /G0Z1.5 /G1Y-105. G0Z20. G0Y105. G0Z0.5 G1Y-105.F150 G0Z20. G0G49X-100.Z380.H00M17 G91G28Z0.M6 N2G57S750M3T3(SAE-10 L) G00G90X0.Y38.Z300.M16 G43Z20.H2 G82Z-25.2R6.P1000F60 Y-38. G0G49X-100.Z380.H00M17 G91G28Z0.M6 N3G57S1500T1M3(INT TH D18 14UN) (7/8-14 UN) G90G0X0.Y-38.Z350.M16 G43Z10.H3 G66P22D2.28Z-20.T1.8143F60. Y-38. Y38. G67 G66P22D2.43Z-20.T1.8143F60. Y38. Y-38. G67 G0G49X-100.Z380.H00M17 G91G28Z0.M6 M24 M00 N1G58S600T4M3(D50. CUTTER) G90G0X0.Y100.Z300.M16(X0.Y135.) G43Z0.H1 G1Y-175.F150 G0G49X-100.Z380.H00M17 G91G28Z0M6 N4G58S400T5M3(PR BAR LONG) G0G90X0.Y38.3Z300.M16 G43Z10.H4 G82Z-68.6P500R0.F50 G59Y-38.3 G0G49X-100.Z380.H00M17 G91G28Z0M6 N5G58S1500T6M3(INT TH D21 16UN) (1-16 UN) G90G0X0.Y38.3Z300.M16 G43Z10.H5 G66P22D2.58Z-16.T1.5875F100. Y38.3 G59Y-38.3 G67 G0G49X-100.Z380.H00M17 G91G28Z0M6 N6G58S1200T7M3(19. BAR) G90G0X0.Y0.Z300.M16 G43Z10.H6 G76Z-72.I0.2R2.F80 G59X0.Y0. G0G49X-100.Z380.H00M17 G91G28Z0M6 N7G58S1000T8M3(S/SEAL BAR) (25.45-25.5) G90G0X0.Y0.Z300.M16 G43Z10.H7 G82Z-6.6P1000R2.F10 G59X0.Y0. G0G49X-100.Z380.H00M17 G91G28Z0.M6 N8G58S950T9M3(05.2 DRILL) G90G0X-15.875Y17.46Z300.M16 G43Z10.H8 G83Z-21.Q5.R2.F50. X15.875 Y-17.46 X-15.875 G59X-15.875Y17.46 X15.875 Y-17.46 X-15.875 G0G49X-100.Z380.H00M17 G91G28Z0M6 N9G58S200T1M3(M6-1 TAP) G90G0X-15.875Y17.46Z300.M16 G43Z10.H9 G84Z-14.R5.F200. X15.875 Y-17.46 X-15.875 G59X-15.875Y17.46 X15.875 Y-17.46 X-15.875 G0G49X-100.Z380.H00M17 G91G28Z0Y0.M6 M16 M00 M17 M30 %