%O0001(BUFFER SET-UP)(25/11/96) #131=#3002 G91G28Z0 G00G17G21G40G49G69G80G90 H00M70#133=0.M99 O0002(THREADING) (HEL. INT. MACRO)(G65 P2 D- Z- T- R- S- F-) (SPECIFY D CODE FOR RAD OFFSET)(FOR INT. TOOL RAD=+)(FOR EXT. TOOL RAD=-)(D= RADIUS #7)(Z=DEPTH #26)(T=Z PITCH #20)(R=Z SET UP #18) (S=RETRACT AMOUNT & DIRECTION)(#19)(END POINT 9 O-CLOCK)(F=FEED RATE)(#9)#103=#5003 #3=0.#21=#7-#[2000+#4307] G91G0X-#21 G90G0Z#18#104=#26-#18 WHILE[#3GT#104]DO1 IF[[#3-#20]LT#104]THEN#20=-[#104-#3] G91G2Z-#20I#21F#9#3=#3-#20END1 G1X#19 G90G0Z#103 G91X[#21-#19]G90M99 O0003(PROFILE MACRO) (G65 P3 A- Z- Q- R- F-)(A=PROFILE PROG NO #1) (Z=Z DEPTH #26)(Q=DEPTH OF CUT #17) (R=Z SET UP #18) (F=FEED RATE #9) #103=#5003(READ Z) #104=#18 G90G0Z[#104+0.5] G0Z#104F#9(G1) WHILE[#104GT#26 ]DO1#104=#104-#17IF[#104LT#26]THEN#104=#26G90G0Z#104F[#9/3](G1)F#9M98P#1 END1 G90G0Z#103 M99 O0004 (HEL INTERPOLATION) (MILLING SAME AS 2)(HEL. INT. MACRO)(INTERNAL)(G65 P4 D- Z- T- R- S- F-) (SPECIFY D CODE FOR RAD OFFSET)(D)(S RELIEF 019) (F)#101=#5001 #102=#5002 #103=#5003 #105=#20 #21=#7-#[2000+#4307] G91G0X-#2 1 G90G0Z#18#104=#5003 WHILE[#104GT#26]DO1IF[[#104-#105]LT#26]THEN#105=#104-#26G91G3Z-#105I#21F#9 #104=#5003 END1 G3I#21 G1X#19 G90G0Z#103 X#101Y#102 M99 O0005(CIR INTERPOLATION) (G65 P5 S- D- T- F-) (CAN BE CONTROLED BY MACRO #3) (G65 P3 A5. Z- Q- R- F- S- D- T-)(SPECIFY D FOR RAD OFFSET) (S=INSIDE BORE RAD #19)(D=BORE RAD #7)(T=DEPTH OF CUT #20) (F=FEED RATE #9) #101=#5001 #102=#5002 #3=#19 #4=#[2000+#4307] G0X[[#101-#3]+#4]WHILE[#3LT#7]DO1 #3=#3+#20IF[#3GT#7]THEN#3=#7G1X[[#101-#3]+#4]F[#9/2] G3X[[#101-#3]+#4]Y#102I[#3-#4]F#9END1 G 0X#101Y#102 M99 O0006(STEPPED CIR. INT)(G65 P6 Z- Q- R- S- D- T- F-)(SPECIFY D FOR RAD OFFSET) (Z DEPTH #26) (Q DEPTH OF CUT #17) (R STARTING POSITION #18)(S #19)(D #7) (T #20)(F FEED #9)#101=#5001 #102=#5002 #103=#5003 #105=#17 #13=#[2000+#4307]G90G0Z#18#104=#5003 WHILE[#104GT#26]DO1IF[[#104-#105]LT#26]THEN#105=#104-#26 G91G1Z-#105F[#9/3] #104=#5003 #3=#19 WHILE[#3LT#7]DO2 #3=#3+#20IF[#3GT#7]THEN#3=#7G90G1X[[#101+#3]-#13]F[#9/2] G91G3I-[#3-#13]F#9 G90END2 G90G0X#101 END1 Z#18.G90G0X#101Y#102Z#103./M1M3 M99 O0009(POLAR CO-ORD MACRO)(G65 P9 I J K W) (G65 P9 I J K W U H) (I=X CENTER POINT #4)#114=#4(J=Y CENTER POINT #5)#115=#5 (K=POLAR RADIUS #6)#116=#6(W=POLAR ANGLE #23 +=C.C,-=C)#117=#23 (U=INCRAMENTAL ANGLE #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]*#116X[#114+#104]Y[#11 5+#105] #3=#3+1. END1 M99 O0010(2 ND DEPTH CONTROLE) (M98 P10)#104=#104-#17IF[#104LT#26]THEN#104=#26G 90G1Z#104F[#9/3]F#9M99 O0011(STEP H/S DRILLING) (G65 P11 Z- K- Q- R- F-) (Z=DRILLING DEPTH)(#26)(K=SMALL PE CKING 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]]DO1IF[#104LT#26]THEN#104=#26G73Z#104Q#6R[#105+1.]F#9 #105=#104#104=#1 04-#17END1 G0Z#103M99 O0012(SLOT MILLING)(G65 P12 X- Y- Z- Q- R- F-)(X#24 Y#25 Z#26 Q#17 R#18 F#9) #101=