G71 Threading Cycle

[kennebec]

Below is posted code for .625-32 ID thread

 

N1 is fine with depth of cut set to "D.0034" and Thread height of "H.0338"(diametral value)

 

$A.MIN%

(A.OKU)

(PN)

(REV)

N1G50S2500M8

G0T0000M42

G97S1100M3

( 625-32 ID THREAD )

G0X.5412Z.069

Z.0578

G71X.625Z-.38B30D.0034U0.H.0338F.0313M73

Z.069

G0X20.Z20.M9

M01

N2G50S2500M8

G0T0000M42

G96S450M3

 

M01

 

N3 is a deburr pass; what I always have to try and remember, and obviously by this note I sometimes forget, is when I recall the thread cycle to Deburr the thread it MUST start in the same location as it did when we turned the thread, the only difference is the DOC I want my DOC to be about .001 less than the thread height and I run 1 spring pass, DCALC sets my DOC and I do not see how to change it...

 

N3G50S2500M8

G0T0000M42

G97S1100M3

( RCL N5)(DEBURR 625-32 ID THREAD )

G0X.5412Z.069

Z.05 this should be the same as N1 Z.0578

G71X.625Z-.38B30D.0034U0.H.0338F.0313M73 I want D.0034 to be D.0328 and M73 to Be M74

Z.069

G0X20.Z20.M9

(A.OKU)

(08/27/13)

M30

%

 

# Thread output

# --------------------------------------------------------------------------

fmt "H" 2 thddepth$ #Thread height absolute

fmt "H" 2 H1 #Diametrical Thread Depth Absolute Localized in PG76Old DEM 02/13/07

fmt "D" 2 thdfirst$ #First depth cut in thread

fmt "U" 2 thdlast$ #Last depth cut in thread

fmt "U" 2 thdfinish$ #G76 thread finish allowance

fmt "R" 3 thdrdlt #Thread R delta G92 and G76

fmt "U" 3 thd_dirx #Incremental X move for G76 mult starts

fmt "W" 3 thd_dirz #Incremental Z move for G76 mult starts

fmt "P" 5 nspring$ #Number of spring cuts

fmt "L" 5 thdpull #G76 thread pull off

fmt 5 thdang #G76 threading angle

#fmt "I" 5 thdang #G76 threading angle

fmt "F" 2 thdlead$

fmt "D" 2 dcalc #D output calculated value

# --------------------------------------------------------------------------

 

 

pg76old #G76 threading old style

H1=thddepth$*2 #DEM 02/13/07

dcalc = ((thddepth$ / 2) / 6) + 0.002

pbld, n$, *sthdgcode, pfxout, pfzout, *thdang, *dcalc, *thdfinish$, *H1, *thdlead$, "M73", e$

[kennebec]

Thanks For the looks, I spoke with our reseller as I have seen suggested here many times and they helped me out, again...

for any one who may be interested we used a misc integer to reverse the "Dcalc " used for the 1st canned thread pass