%_N_10176938_MPF
;$PATH=/_N_WKS_DIR/_N_10176938_WPD
EXTERN HEXR (REAL,REAL)
HOME
SOFT
IF $A_IN[6]==0 GOTOF NOEND
MSG("END OF BAR")
MSG("REMOVE REMNANT FROM SPINDLE, CLOSE CHUCK, THEN HIT START")
BARLOAD
NOEND:
G90
M59 H100
M1
;***************** MAIN ROUGH ********************
T1 D1 G54
M8
SETMS(1)
G26 S2500
G96 S600 M4
G0 X.67 Z.005 Y0
G1 X-.05 F.01
G0 X.625 Z.05
CYCLE95("ROUGH",0.06,0.003,0.01,0.003,0.01,0.001,0.001,1,0,0,0)
G0 X6.0 Z3.0
M1
;**************** MAIN FINISH ***********************
T3 D1 G54
M8
SETMS(1)
G26 S3000
G96 S800 M4
G0 X.25 Z0 Y0
G1 X-.03 F.003
G0 X.625 Z.05 Y0
CYCLE95("ROUGH",0,0,0,0,0.01,0.001,0.003,5,0,0,0)
G0 X6.0 Z3.0 M5
M1
;*************** MAIN 5/16-18 THREAD ***************
T6 D1 G54
M8
SETMS(1)
G95 S1000 M3
G0 X.35 Z-.15 Y0
CYCLE97(0.05555,0,-0.15,-0.77,0.308,0.308,0,0,0.034,0,29,0,15,1,3,1)
G0 X6.0 Z3.0 M5
M1
;********** MAIN R.062 (.125 WIDE) GROOVER ************
T5 D1 G54
M8
SETMS(1)
G96 S400 M4
G0 X.55 Z-.781 Y0
G1 X.235 F.002
G0 X3.0
X6.0 Z3.0 M5
M1
;*************** MAIN 5/16-18 THREAD ***************
T6 D1 G54
M8
SETMS(1)
G95 S1000 M3
G0 X.35 Z-.15 Y0
CYCLE97(0.05555,0,-0.15,-0.77,0.308,0.308,0,0,0.034,0,29,0,0,1,3,1)
G0 Z.5
HOME
M5 M9
M1
;********** INDEX TO CUTOFF, FOR TAKEOVER ************
T7 D1 G54
SPOS[1]=0
G0 Z=.02 Z2=14.9
M1TAKEOVER("CUTOFF",14.9,200,14.15,0,0)
MIRROR Z0
M1
;***************** SUB ROUGH ****************
T1 D2 G55
M8
SETMS(2)
G26 S2500
G96 S600 M4
G0 X.52 Z.05
Y0
CYCLE95("SUBROUGH",0.06,0.003,0.01,0.003,0.008,0.001,0.001,1,0,0,0)
G0 X6.0 Z3.0
M1
;*************** SUB FINISH ***********************
T3 D2 G55
M8
SETMS(2)
G26 S2500
G96 S700 M4
G0 X.52 Z.05 Y.015
CYCLE95("SUBROUGH",0,0,0,0,0.001,0.001,0.003,5,0,0,0)
G0 X6.0 Z3.0 Y0 M5
M1
;************** SUB .078 INGERSOL SLOTTER **************
T8 D1 G55
M8
SETMS(3)
G94 S3500 M3
SPOS[2]=0
G0 C2=0
G0 X-.078 Z.1 Y.45
G1 Z-.123 F20
Y-.3 F8
G0 Z.5
X6.0 Z5.0 Y0 M5
M1
M1=24
;*************** SUB FINISH ***********************
T3 D2 G55
M8
SETMS(2)
G26 S2500
G96 S700 M4
G0 G41 X.52 Z-.3 Y.015
G1 X.504 F.003
Z-.076
G2 X0 Z0 CR=.41
G0 G40 Z.5
HOME
M5 M9
M1
M24
;************ PARTS CATCHER ************
PARTSCATCHER
L700 P1
M30
M32
%_N_CUTOFF_SPF
;$PATH=/_N_WKS_DIR/_N_10176938_WPD
G4 F.5
M25
G4 F.5
G94 G1 Z2=IC(1.219) F200
G4 F.5
M26
G4 F.5
;************
T7 D1 G54
SETMS(1)
G26 S3000
G96 S400 M4 M8
G0 Z.02
Y0
X.67
G1 X-.03 F.0035
G0 Z=IC(.1) Z2=IC(.2)
G0 X3.0
HOME
M5 M9
RET
%_N_NEWBAR_SPF
;$PATH=/_N_WKS_DIR/_N_10176938_WPD
M00 ;*** NEW BAR ***
T7 D1 G54
SETMS(1)
G26 S3000
G96 S400 M4 M8
G0 Z.02
Y0
X.67
G1 X-.04 F.0035
G0 X3.0
HOME
M5 M9
M17
%_N_ROUGH_SPF
;$PATH=/_N_WKS_DIR/_N_10176938_WPD
;#7__DlgK contour definition begin - Don't change!;*GP*;*RO*;*HD*
G18 G90 DIAMON ;*GP*
G0 Z.05 X.179 ;*GP*
G1 Z.01 ;*GP*
Z-.01 X.219 ;*GP*
Z-.219 ;*GP*
Z-.24469 X.308 ;*GP*
Z-.781 ;*GP*
X.504 CHR=.01 ;*GP*
Z-1.219 ;*GP*
X.625 ;*GP*
M17 ;*GP*
;CON,2,0.0000,4,4,MST:1,2,AX:Z,X,K,I;*GP*;*RO*;*HD*
;S,EX:.05,EY:.179;*GP*;*RO*;*HD*
;LL,EX:.01;*GP*;*RO*;*HD*
;LA,EX:-.01,EY:.219;*GP*;*RO*;*HD*
;LL,EX:-.219;*GP*;*RO*;*HD*
;LA,EY:.308,ASE:120;*GP*;*RO*;*HD*
;LL,EX:-.781;*GP*;*RO*;*HD*
;LU,EY:.504;*GP*;*RO*;*HD*
;F,LFASE:.01;*GP*;*RO*;*HD*
;LL,EX:-1.219;*GP*;*RO*;*HD*
;LU,EY:.625;*GP*;*RO*;*HD*
;#End contour definition end - Don't change!;*GP*;*RO*;*HD*
M17
%_N_SUBROUGH_SPF
;$PATH=/_N_WKS_DIR/_N_10176938_WPD
;#7__DlgK contour definition begin - Don't change!;*GP*;*RO*;*HD*
G18 G90 DIAMON ;*GP*
G0 Z.05 X-.1 ;*GP*
G2 Z0 X0 K=AC(.05) I=AC(0) ;*GP*
G3 Z-.076 X.504 K=AC(-.40976) I=AC(.02776) ;*GP*
G1 Z-.084 X.52 ;*GP*
M17 ;*GP*
;CON,2,0.0000,3,3,MST:1,2,AX:Z,X,K,I;*GP*;*RO*;*HD*
;S,EX:.05,EY:-.1;*GP*;*RO*;*HD*
;ACW,DIA:0/235,EX:0,EY:0,RAD:.05;*GP*;*RO*;*HD*
;ACCW,DIA:0/235,EX:-.076,EY:.504,RAD:.41;*GP*;*RO*;*HD*
;LA,EY:.52,ASE:135;*GP*;*RO*;*HD*
;#End contour definition end - Don't change!;*GP*;*RO*;*HD*
M17