Peck Tapping in post

[gms1]

Ive done a search and set up my post for rigid peck tapping. Problem is, the post always outputs the Q no matter if I have a peck set or not. I know there is a simple way to make it only show the Q command when I have it set in the operations page, I just cant find it. I tried putting a * in front of peck1$, it just isnt working and it keeps putting out Q0. if I dont enter anything in the peck field.

 

ptap$ #Canned Tap Cycle

pdrlcommonb

#RH/LH based on spindle direction

if use_pitch, pbld, n$, "G95", e$

if use_pitch = 0,

[

n$, *sm05, e$

n$, "M29", *speed, e$

pcan1, pbld, n$, *sgdrlref, *sgdrill, pdrlxy, pfzout, pcout,

*peck1$, prdrlout, *feed, strcantext, e$

]

 

This is my tapping cycle. The * added in front of peck1$ isnt working. Any ideas?

[Charlie Pierson]

the * forces the output of peck1$

Try removing peck1$ if you'll never need it:

 

pcan1, pbld, n$, *sgdrlref, *sgdrill, pdrlxy, pfzout, pcout, prdrlout, *feed, strcantext, e$

 

or, if you'll need it sometimes then replace

peck1$ w/ a routine of your own which checks to see if peck1$ is non-zero and outputs it if it is.

 

cp

[gms1]

Ouch.. I guess I'll have to try and setup a peck2 routine for it. I do have to use it *occasionally*, the majority of the time its straight rigid tapping but I would still like to have it setup now so I dont have to go back and get it.

 

Thanks Charlie

[Roger Martin from CNC Software]

Like Charlie said, the ‘*’ forces the variable to always be output.

Just taking off the ‘*’ from peck1$ would properly be good enough, but…

To be sure that you get no Q unless the value you entered is greater than 0, you could do this –

Create a new postblock that outputs peck1$ based on a logic test and replace the reference to peck1$ in the ptap postblock with a call to this new ppeck1 postblock.

 

code:

---

ppeck1   # Only output peck1$ is value is greater than zero

if peck1$ > 0, *peck1$

 

ptap$ #Canned Tap Cycle

pdrlcommonb

#RH/LH based on spindle direction

if use_pitch, pbld, n$, "G95", e$

if use_pitch = 0,

[

n$, *sm05, e$

n$, "M29", *speed, e$

pcan1, pbld, n$, *sgdrlref, *sgdrill, pdrlxy, pfzout, pcout,

ppeck1, prdrlout, *feed, strcantext, e$

]

---

[gms1]

Wow thanks a bunch Roger. I will be sure to get this is in the post pronto.