help with post

[mrmead]

could someone help me find were to fix this problem

TOOL CALL 2 Z S1069 ;1/4-20 TAP DRILL pcomment$ ptlchg$

L M6 pcomment$ ptlchg$

L M13 pcomment$ ptlchg$

CYCL DEF 200 DRILLING ~ pdrill$ p__3:1422

Q200=1. ;SET-UP CLEARANCE ~ pdrill$ p__3:1422

Q201=-.5604 ;DEPTH ~ pdrill$ p__3:1422

Q206=43 ;FEED RATE FOR PLNGNG ~ pdrill$ p__3:1422

Q202=.5604 ;PLUNGING DEPTH ~ pdrill$ p__3:1422

Q210=.5 ;DWELL TIME AT TOP ~ pdrill$ p__3:1422

Q203=0. ;SURFACE COORDIANTE ~ pdrill$ p__3:1422

Q204=1. ;2ND SET-UP COORDINATE ~ pdrill$ p__3:1422

Q211=.5 ;DWELL TIME AT DEPTH pdrill$ p__3:1422

L X1. Y0. FMAX M99 pdrill$ pstartpos_dr

L Z.1 FMAX M99 pdrill$ pdrill$

L pdrill_2$ pxycalc

X0. Y-1. FMAX M99 pdrill_2$ pdrill_2$

L Z.5 FMAX ptlchg0$ ptlchg0dr2

CYCL DEF 200 DRILLING ~ ppeck$ p__4:1467

Q200=.5 ;SET-UP CLEARANCE ~ ppeck$ p__4:1467

Q201=-2.0604 ;DEPTH ~ ppeck$ p__4:1467

Q206=43 ;FEED RATE FOR PLNGNG ~ ppeck$ p__4:1467

Q202=.5 ;PLUNGING DEPTH ~ ppeck$ p__4:1467

Q210=0. ;DWELL TIME AT TOP ~ ppeck$ p__4:1467

Q203=0. ;SURFACE COORDIANTE ~ ppeck$ p__4:1467

Q204=.5 ;2ND SET-UP COORDINATE ~ ppeck$ p__4:1467

Q211=0. ;DWELL TIME AT DEPTH ppeck$ p__4:1467

L X-1. Y0. FMAX M99 ppeck$ pstartpos_dr

L ppeck_2$ pxycalc

ppeck_2$ pdrill_2$

L Z.5 FMAX M9 pcanceldc$ pcanceldc$

L M5 ptlchg$ ptlchg$

if i drill multiple holes the second l line is wrong it should say"L X0. Y1. FMAX M99" in 1 line

thanks in advance,

[Watcher]

set the variable fastmode=1

[mrmead]

if i drill multiple holes the second l line is wrong it should say"L X0. Y1. FMAX M99" in 1 line

sorry fastmode was there for debugging purposes.

[dwsz71]

Mike,

 

Look in the pdrill_2 post block for *strl. If it's not there try adding it after the n,. You may just be missing the *.

 

code:

---

pdrill_2$        #Canned Drill Cycle, additional points

pdrlcommonb

n$, *strl, pfxout, pfyout, strr0, smaxrate, strm99, e$

pcom_movea

---

HTH

[mrmead]

code:

pdrill_2$ # Canned Drill Cycle

pdrillclc

pdrill5ax_2

if cancelflg = 1, zabs = refht$

if cancelflg = 1, pn, *sg00, *zabs, pfmax,e$

pn, "L", pdrlxyrotf, pccomp, "FMAX", "M99",e$

[Watcher]

Ops.

[dwsz71]

Mike,

 

That "L" should do the trick. I would temporarily change the "FMAX" to "WTF" to verify that is line is being output. If it doesn't change in the code at least you can move on to a different section.

 

Which post is that?

[mrmead]

its a post we have had for years .bridgeport.

[mrmead]

the code does change dave . but this "pdrlxyrotf"

which i believe is the xy position it always goes in line after i cant see why!

[dwsz71]

OH, sorry! I just re-read the problem. Your getting the "L" just on the line above. Debugging's a PITA. Looks like another post block is calling an e$ before outputting the position and completing the pdrill_2 post block. Look to see which of two other post blocks call pxycalc.

 

If you want to, email it to me, and I'll take a look at it.

[mrmead]

dave you've got mail

[dwsz71]

I think i found it...

 

code:

---

pxycalc    # Calculate Output variables X, Y, and Z

@x$, @y$, @z$, @xs$, @ys$

 

if not(vtoolx$ = 0 & vtooly$ = 0 & (vtoolz$ = 0 | vtoolz$ = 1))

& (opcode$ <> 16 & (opcode$ <> 3 | (opcode$ = 3 & startflg = 1)))

& rotaxis$ =0, pmx0$

 

xabs = x$

yabs = y$

zabs = z$

xinc = x$ - prv_x$

yinc = y$ - prv_y$

zinc = z$ - prv_z$

if rotaxis$ <> zero & add_rad <> zero, pgetz

if rotaxis$ = one, aabs = xs$

if rotaxis$ = two, babs = ys$

xtotal = xtotal + xinc

ytotal = ytotal + yinc

ztotal = ztotal + zinc

!x$, !y$, !z$, !xs$, !ys$,e$ <--I think it's seperating the line here

---