Tap with Peck

[VK-8]

Hi.

I added the cycle Tap with Peck in post processor.  When I write peck = 3, I have good code:

T17 M6
G0 G90 G54 X0. Y0. S400 M3
G43 H17 Z25.
M8
Z2.
G99 G84 R2. Z-6.667 F400.
X0. Y0. Z-13.334
X0. Y0. Z-20.001
X10. Y0. Z-6.667
X10. Y0. Z-13.334
X10. Y0. Z-20.001
G80
Z25.
M09

When I write peck = 2, I have a  bad code:

T17 M6
G0 G90 G54 X0. Y0. S400 M3
G43 H17 Z25.
M8
Z2.
G99 G84 R2. Z-10. F400.
X0. Y0. Z-20.
G99 G84 Z-20. F400.  not the desired part
X10. Y0. Z-10.
X10. Y0. Z-20.
Z-20.  not the desired part
G80
Z25.
M09

 

I don't now,  where i did mistake

Edited April 17 by VK-8

[VK-8]

2 hours ago, VK-8 said:

Hi.

I added the cycle Tap with Peck in post processor. 

pdrlcst12            #Canned Tap Cycle with Peck Inc
      pdrlcommonb
#      result = newfs(17, feed)  # Set for tapping Feedrate format	  
		if peck1$ = 2,
	   [pcan1, pbld, n$, *sgdrlref, "G84", prdrlout, pxout, pyout, *pfzout2,
        *feed, strcantext, e$
		n$, [if dwell$ > 0, "M00"] e$
	 zabs = zabs - (refht_a - 2 - zabs), zinc = zinc / peck1$ 
		n$, *pfxout, *pfyout, pfzout, e$
		pcom_movea]
		
		if peck1$ = 3,
	  [pcan1, pbld, n$, *sgdrlref, "G84", prdrlout, pxout, pyout, *pfzout3,
        *feed, strcantext, e$
		n$, [if dwell$ > 0, "M00"] e$
	 zabs = zabs - ((refht_a - 2 - zabs)), zinc = zinc / peck1$ 
		n$, *pfxout, *pfyout, pfzout, e$
		n$, [if dwell$ > 0, "M00"] e$
	 zabs = zabs - ((refht_a - 2 - zabs) / 2), zinc = zinc / peck1$ 
		n$, pfxout, pfyout, pfzout, e$
      pcom_movea]
		else,
	 [pcan1, pbld, n$, *sgdrlref, "G84", prdrlout, pxout, pyout, *pfzout,
        *feed, strcantext, e$
		pcom_movea]	  
  	  

 

When I write peck = 3, I have good code:

T17 M6
G0 G90 G54 X0. Y0. S400 M3
G43 H17 Z25.
M8
Z2.
G99 G84 R2. Z-6.667 F400.
X0. Y0. Z-13.334
X0. Y0. Z-20.001
X10. Y0. Z-6.667
X10. Y0. Z-13.334
X10. Y0. Z-20.001
G80
Z25.
M09

When I write peck = 2, I have a  bad code:

T17 M6
G0 G90 G54 X0. Y0. S400 M3
G43 H17 Z25.
M8
Z2.
G99 G84 R2. Z-10. F400.
X0. Y0. Z-20.
G99 G84 Z-20. F400.  not the desired part
X10. Y0. Z-10.
X10. Y0. Z-20.
Z-20.  not the desired part
G80
Z25.
M09

 

I don't now,  where i did mistake

 

[H.tom]