Hello everyone,

I am using 2018 and when I create a face groove tool I would like the add the tools back clearance. Is this possible in 2018 or is it something I will have to wait until 2019 for?

I gave that a whirl, but still cannot find the correct place to put that. It is either placing the G80 at the top of the sequence or after every line in the sequence. 

Edit:

Got it to work by adding a "G80" line here:

        #Write the cycle profile, sequence are written now
        rc3 = one
        while rc3 <= size3,
          [
          #Write the lathe canned cycle profile
          string3 = rbuf (three, rc3)
          if rc3 = two,
            [
            #Add the finish spindle speed to the first move
            speed = n1_ss
            pbld, *string3, *speed, e$
            ]
          else,
            [
            if omitseq$ = one & rc3 = size3 + one, pbld, *string3, e$
            else, pbld, *string3, e$
            ]
          ]
		  pbld, "G80", e$
        #Close the buffer
        result = fclose (three)
        #Remove the ext file
        result = remove (sbufname3$)
        ]

The base is the generic fanuc, but I have already modified a lot of it to output what I need. I basically just need to figure out the LAP cycles then it will be done.

Hey guys I have another one. I am trying to add a G80 to the end of my G85 (G71 in Fanuc land) Canned cycle. For the life of me I am unable to find out where to place the code. I contacted my reseller who told me to put it on the ng70s, ng70e line under pread_g70. That does not work. 
 
This is what I am currently outputting:

(***************************************************)
NS1(TOOL - 7 OFFSET - 7)
(CHAMBER OD FINISH  INSERT - VCMT-331-SM)
G0 TG=7 OG=1
G97 S2339 M03
G0 G54 X.98 Z0. M8
G50 S3600
G96 S600
G85 NRUF29 U.1 F.004 U.02 W.01
NRUF29 G81
G0 X.7225 S600
G1 Z-.0092
X.8033 Z-.0496
G3 X.8125 Z-.0606 L.0156
G1 Z-.4731
G3 X.8059 Z-.4828 L.0156
G1 X.7275 Z-.5329
Z-.6046
G2 X.7583 Z-.62 L.0154
G1 G40 X.98
G0 Z0.
M9
G0 X40. M05
GOTO NEND
(***************************************************)

What I need is this:

(***************************************************)
NS1(TOOL - 7 OFFSET - 7)
(CHAMBER OD FINISH  INSERT - VCMT-331-SM)
G0 TG=7 OG=1
G97 S2339 M03
G0 G54 X.98 Z0. M8
G50 S3600
G96 S600
G85 NRUF29 U.1 F.004 U.02 W.01
NRUF29 G81
G0 X.7225 S600
G1 Z-.0092
X.8033 Z-.0496
G3 X.8125 Z-.0606 L.0156
G1 Z-.4731
G3 X.8059 Z-.4828 L.0156
G1 X.7275 Z-.5329
Z-.6046
G2 X.7583 Z-.62 L.0154
G1 G40 X.98
G80
G0 Z0.
M9
G0 X40. M05
GOTO NEND
(***************************************************)

That worked great thank you very much.

Hello everyone,

I am currently making a post for some OSP-200LA lathes that we have here. I have been able to get the post to output all of the necessary code, the only problem is for some of the output formats I cannot get it to post a decimal. I have tried to change the output number to one that I created and it still will not work. 

Here is the fs Statements:

# --------------------------------------------------------------------------
# Format statements - n=nonmodal, l=leading, t=trailing, i=inc, d=delta
# --------------------------------------------------------------------------
#Default english/metric position format statements
fs2 1   0.7 0.6     #Decimal, absolute, 7 place, default for initialize (
fs2 2   0.4 0.3     #Decimal, absolute, 4/3 place
fs2 3   0.4 0.3d    #Decimal, delta, 4/3 place
#Common format statements
fs2 4   1 0 1 0     #Integer, not leading
fs2 5   2 0 2 0l    #Integer, force two leading
fs2 6   3 0 3 0l    #Integer, force three leading
fs2 7   4 0 4 0l    #Integer, force four leading
fs2 9   0.1 0.1     #Decimal, absolute, 1 place
fs2 10  0.2 0.2     #Decimal, absolute, 2 place
fs2 11  0.3 0.3     #Decimal, absolute, 3 place
fs2 12  0.4 0.4     #Decimal, absolute, 4 place
fs2 13  0.5 0.5     #Decimal, absolute, 5 place
fs2 14  0.3 0.3d    #Decimal, delta, 3 place
fs2 15  0.2 0.1     #Decimal, absolute, 2/1 place
fs2 16  0 4 0 4t    #No decimal, absolute, 4 trailing
#Default english/metric feed format statements
fs2 17  0.2 0.1     #Decimal, absolute, 2/1 place
fs2 18  0.4 0.3     #Decimal, absolute, 4/3 place
fs2 19  0.5 0.4     #Decimal, absolute, 5/4 place
fs2 20  1 0 1 0n    #Integer, forced output

# These formats used for 'Date' & 'Time'
fs2 21  2.2 2.2lt   #Decimal, force two leading & two trailing (time2)
fs2 22  2 0 2 0t    #Integer, force trailing                   (hour)
fs2 23  0 2 0 2lt   #Integer, force leading & trailing         (min)

# This format statement is used for sequence number output
# Number of places output is determined by value for "Increment Sequence Number" in CD
# Max depth to the right of the decimal point is set in the fs statement below
fs2 24  0^7 0^7     #Decimal, 7 place, omit decimal if integer value

#Canned Thread Cycle Output
fs2 25  0.4 0.3		#Decimal, absolute, 4/3 place

Here is the thread output:

# --------------------------------------------------------------------------
# Thread output
# --------------------------------------------------------------------------
fmt  "H" 25  thddepth$   #Thread height absolute
fmt  "D" 25  thdfirst$   #First depth cut in thread
fmt  "Q" 2  thdlast$    #Last depth cut in thread
fmt  "U" 25  thdfinish$  #G76 thread finish allowance
fmt  	 3  thdrdlt     #Thread R delta G92 and G76
fmt  	 3  thd_dirx    #Incremental X move for G76 mult starts
fmt  "K" 3  thd_dirz    #Incremental Z move for G76 mult starts
fmt  "P" 5  nspring$    #Number of spring cuts
fmt      5  thdpull     #G76 thread pull off
fmt  "B" 25  thdang      #G76 threading angle

Here is the G71 Threading Code:

pg76$            #G71 threading
      comment$
      gcode$ = zero
      lrapid$
      sav_xa = vequ(copy_x)
      if thdface$ = zero, copy_x = thdx3$
      else, copy_z = thdx3$
      if thdface$ = zero, copy_z = thdz2$
      else, copy_x = thdz2$
      pcom_moveb
      nstart_cnt = zero
      while nstart_cnt < nstarts$, pg71nstart
      pcom_movea
      prv_gcode$ = m_one
      copy_x = vequ(sav_xa)
      copy_x = copy_x + (thd_dirx * (nstarts$ - one))
      copy_z = copy_z + (thd_dirz * (nstarts$ - one))
      pcom_moveb
      pe_inc_calc
      !gcode$, !xabs, !yabs, !zabs, !xinc, !yinc, !zinc

pg71nstart      #G71 threading, for multiple starts
	  pg71
      nstart_cnt = nstart_cnt + one
      if nstarts$ <> one & nstart_cnt <> nstarts$,
      pbld, n$, *sgcode, thd_dirx, thd_dirz, e$

pg71         #G71 threading new style
        pbld, n$, *sthdgcode, pfxout, pfzout, pffr, thdang, thdfirst$, thdfinish$, thddepth$, e$

Here is the current output:

(TOOL - 8 OFFSET - 8)
(CHAMBER THREAD OD  INSERT - 16ER A 60)
G0 T0808
G97 S1646 M03
G0 G54 X.9116 Z.2145 M8
G71 X.7303 Z-.51 F.0625 B60. D180 U30 H407
M9

This is what I need it to output as:

(TOOL - 8 OFFSET - 8)
(CHAMBER THREAD OD  INSERT - 16ER A 60)
G0 T0808
G97 S1646 M03
G0 G54 X.9116 Z.2145 M8
G71 X.7303 Z-.51 F.0625 B60. D.018 U.003 H.0407
M9

Any help would be greatly appreciated. 

Matt

Anyone?

Hi all I do most of the programming for the mills at my shop and a couple of the older Matsuura MC-500Vs which run Yasnac M5 have a canned helix bore cycle which we typically use for thread milling. My question is, is there a way to make a custom drill cycle to emulate this so I don't have to program it by hand? I have been dabbling in post editing and get a good amount of it but I am no so sure about everything, so my apologies if I ask for a little more explanation. Ill post a sample of code with it in use.

G01 Z-4500 F60

G46 X0 D20

G01 X0450 F13

G15I0450K555L2F20

G01 G46 X0

G00 Z10000

Thanks for any help.

Matt