No feedrate output if previous feedrate is the same.

[JohnA]

Hi everyone,

It's been a long time since I've posted. I've already searched this topic but the recommended fix didn't work for me. I'm on X4 and I can't get my post to output a feedrate on a toolchange if the feedrate from a previous tool is the same. I know I can change the feedrate and get it to work but I'd like to just fix this, if possible. It works fine with the MPMaster post. Adding the prv_fr=-9999 to my ptlchg post block did not work. Maybe I didn't put it in the right place.

Thanks all,

 

JohnA

[JohnA]

Oh, this is for vertical mill...sorry.

[André Lapointe@In-House Soluti]

Make sure that you write it prv_fr$

HTH

[JohnA]

Andre, I did as you said and it still is not outputting the feedrate. Any other suggestions?

[André Lapointe@In-House Soluti]

Try this, it comes from the mpmaster post.

code:

---

ptlchg1002$      #Call at actual toolchange, end last path here

if op_id$ <> last_op_id,

[

pset_mach #Set rotary switches by reading machine def parameters

if cuttype = 1, sav_rev = rev * m_one #Save the current rev value so Axis Sub doesn't start again at 0 (avoid unwind)

]

pspindle

whatline$ = four #Required for vector toolpaths

if gcode$ = 1000,

[

#Null toolchange

]

else,

[

#Toolchange and Start of file

if gcode$ = 1002,

[

#Actual toolchange

pretract

]

if stagetool = one, prv_next_tool$ = m_one

prv_xia = vequ(xh$)

prv_feed = c9k <--- add this line------

]

---

HTH

[JohnA]

Dang it, still no luck...

[Brad Lisle]

This is from mpmaster.pst

code:

---

ptlchg_com #Tool change common blocks

if force_output | sof,

[

result = force(ipr_type,ipr_type)

result = force(absinc$,absinc$)

result = force(plane$,plane$)

]

pcom_moveb

pcheckaxis #Check for valid rotary axis

c_mmlt$ #Multiple tool subprogram call

#ptoolcomment

if sof & scomm_sav <> snull,

[

spaces$ = 0

n$, pspc, scomm_str, *scomm_sav, scomm_end, e$

spaces$ = sav_spc

]

if sof = 0, scomm_sav = snull

comment$

pcomment3

pmisccheck

pcan

if stagetool >= zero,

[

if omitseq$ = 1 & tseqno > 0,

[

if tseqno = 2, n$ = t$

pbld, *n$, *t$, "M06", ptoolcomm, e$

]

else, pbld, n$, *t$, "M06", ptoolcomm, e$

]

spaces$=0

if output_z = yes$,

[

preadbuf5

if (opcode$ > 0 & opcode$ < 16) | opcode$ = 19,

[

n$, pspc, scomm_str, "MAX - ", *max_depth, scomm_end, e$

n$, pspc, scomm_str, "MIN - ", *min_depth, scomm_end, e$

]

]

spaces$=sav_spc

pstock

if plane$ < 0 | opcode$ = 3 | opcode$ = 16, plane$ = 0

sav_absinc = absinc$

if wcstype > one, absinc$ = zero

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, sgplane, [if not(index), sgabsinc, pwcs], pfcout, strcantext, e$

if lock_codes = one & not(index) & rot_on_x & cuttype = 0, pbld, n$, *slock, slockcomm, 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$

#<------NOTE: *feed (* = force output)

]

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, sgplane, [if not(index), sgabsinc, pwcs], [if gcode$ = 1, sgfeed], pfcout, pfxout, pfyout,

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

#<------NOTE: *feed (* = force output)

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

]

phsm1_on #must remain before G43

pbld, n$, "G43", *tlngno$, pfzout, scoolant, next_tool$, e$

pcan2 #Added so M and G codes in canned text will output before phsm2_on

phsm2_on #must remain after G43

sav_coolant = coolant$

if coolant$ = 1, sm09 = sm09_0

if coolant$ = 2, sm09 = sm09_1

if coolant$ = 3, sm09 = sm09_2

absinc$ = sav_absinc

pcom_movea

toolchng = zero

c_msng$ #Single tool subprogram call

plast

---

[Brad Lisle]

ok the BOLD function didn't work look for the "#<------NOTE:" there are two locations