4th Axis Indexing Post Help

[X-L Engineering Corp]

Good morning everyone hope everyone had a good holiday weekend I need some help with one of my posts. I had received some help on someone else’s thread and I would like to get it a little closer to what I need coming out of my post. What I'm looking for is this to come out at my index> M21(180/A0.) as you can see I need to have the Incremental and Absolute in the Parentheses this is for my older machines that still have Haas indexers on them.

This is a section of my post that I have thanks to PeterM.

 

ptlchg_com #Tool change common blocks

 

pindex

if safe_index,

[

#if lock_codes = one & not(index) & rot_on_x, pbld, n$, *sunlock, sunlockcomm, e$

pbld, n$, pgear, e$

pcan1, pbld, n$, *sgcode, sgfeed, sgplane, [if not(index), sgabsinc, pwcs], strcantext, e$

pbld, n$, "M21", "(", pfcout, ")", e$

if lock_codes = one & not(index) & rot_on_x, pbld, n$, *sunlock, "(", 034, "A", 034, " UNLOCK)", e$

if convert_rpd$ = one,

[

gcode$ = one

feed = maxfeedpm

ipr_type = zero

]

pbld, n$, sgcode, [if gcode$ = 1, sgfeed], pfxout, pfyout, pfspindleout, [if gcode$ = 1, *feed], e$

]

else,

[

#if lock_codes = one & not(index) & rot_on_x, pbld, n$, *sunlock, sunlockcomm, e$

pbld, n$, pgear, e$

if convert_rpd$ = one,

[

gcode$ = one

feed = maxfeedpm

ipr_type = zero

]

pcan1, pbld, n$, *sgcode, sgfeed, sgplane, [if not(index), sgabsinc, pwcs], [if gcode$ = 1, sgfeed], pfxout, pfyout,

pfspindleout, next_tool$, [if gcode$ = 1, *feed], strcantext, e$

pbld, n$, "M21", "(", pfcout, ")", e$

#if lock_codes = one & not(index) & rot_on_x & cuttype = 0, pbld, n$, *slock, slockcomm, e$

]

#phsm1_on #must remain before G43

 

Any help would be appreciated

 

Ted

[Jack Neelands™]

pbld, n$, "M21", "(", pindex, "/", pfcout, ")", e$

 

 

is the 180 that you wish to index ?...

[X-L Engineering Corp]

Yes that is what the operator would put into the control box for the Haas Head it works in incremental.

 

And thanks I'll give that a try

[X-L Engineering Corp]

M21(/A0.) is what I got must be missing something?

[Jack Neelands™]

try pfcindex

 

...brb i will find the right address for the output

[Jack Neelands™]

Try this instead of pindex "pcout" and if not you may have to ask peter for more help...I wish I had more time to work on it with you Ted

[Mike-T]

By changing a parameter on the Haas control box, you could use absolute if you want.

[X-L Engineering Corp]

Been doing this since before me so the guy's are used to doing it one way

[Jack Neelands™]

Could you send me a zip to go file with this on it and maybe I can check it out later this afternoon Ted?

[X-L Engineering Corp]

you got mail