How to move m09 after m05 using mpmaster X4

[Ariel Gubatina]

Hi,

 

I need some help on editing the mpmasterX4 post to output the m09 after the m05. I need to do this for my coolant thru tools, the machine(Matsuura) will alarm if the m09 is before the m05.

[Rob @ Target Machine]

As always, back up your post before making any changes.

 

The easiest way is to move the m5 up before scoolantx and scoolant are output.

 

Look for #<-- for my changes.

 

pretract        #End of tool path, toolchange
     phsm_off
     sav_absinc = absinc$
     absinc$ = one
     sav_coolant = coolant$
     coolant$ = zero

     pbld, n$, *sm05, e$   #<-- Add M5 here (see below)

#      if nextop$ = 1003, #Uncomment this line to leave coolant on until eof unless
#        [                 #  explicitely turned off through a canned text edit
       if all_cool_off,
         [
         #all coolant off with a single off code here
         if coolant_on, pbld, n$, *sall_cool_off, e$
         coolant_on = zero
         ]
       else,
         [
         local_int = zero
         coolantx = zero
         while local_int < 20,
           [
           coolantx = and(2^local_int, coolant_on)
           local_int = local_int + one
           if coolantx > zero,
             [
             coolantx = local_int
             pbld, n$, scoolantx, e$
             ]
           coolantx = zero
           ]
         coolant_on = zero
         ]
#        ]

     #cc_pos is reset in the toolchange here
     cc_pos$ = zero
     if convert_rpd$ = one,
       [
       gcode$ = one
       feed = maxfeedpm
       ipr_type = zero
       ]
     else, gcode$ = zero

     #pbld, n$, sccomp, *sm05, psub_end_mny, e$ #<-- Commented out (original code)
     pbld, n$, sccomp, psub_end_mny, e$         #<-- M05 moved before M09 (see above)

     pbld, n$, sgabsinc, sgcode, [if gcode$ = 1, sgfeed], *sg28, "Z0.", [if gcode$ = 1, feed], scoolant, e$          
     #if lock_codes = one & rot_on_x, pbld, n$, *sunlock, sunlockcomm, e$
     #pbld, n$, *sg28, "X0.", "Y0.", protretinc, e$
     #if lock_codes = one & rot_on_x & cuttype = 0, pbld, n$, *slock, slockcomm, e$
     if abs(fmtrnd(cabs)) > 360 & nextop$ <> 1003 & not(index),
       [
       if lock_codes = one, pbld, n$, *sunlock, sunlockcomm, e$
       rotretflg = 1
       pbld, n$, `sg28, protretinc, e$
       rotretflg = 0
       if lock_codes = one & cuttype = 0, pbld, n$, *slock, slockcomm, e$
       ]
     absinc$ = sav_absinc
     coolant$ = sav_coolant

 

HTH

[jhjr]

^^^^^^ what he said. It's a simple mod.

[Ariel Gubatina]

Thanks for the reply but it still outputs the m09 then m05.

 

 

 

 

As always, back up your post before making any changes.

 

The easiest way is to move the m5 up before scoolantx and scoolant are output.

 

Look for #<-- for my changes.

 

pretract        #End of tool path, toolchange
     phsm_off
     sav_absinc = absinc$
     absinc$ = one
     sav_coolant = coolant$
     coolant$ = zero

     pbld, n$, *sm05, e$   #<-- Add M5 here (see below)

#      if nextop$ = 1003, #Uncomment this line to leave coolant on until eof unless
#        [                 #  explicitely turned off through a canned text edit
       if all_cool_off,
         [
         #all coolant off with a single off code here
         if coolant_on, pbld, n$, *sall_cool_off, e$
         coolant_on = zero
         ]
       else,
         [
         local_int = zero
         coolantx = zero
         while local_int < 20,
           [
           coolantx = and(2^local_int, coolant_on)
           local_int = local_int + one
           if coolantx > zero,
             [
             coolantx = local_int
             pbld, n$, scoolantx, e$
             ]
           coolantx = zero
           ]
         coolant_on = zero
         ]
#        ]

     #cc_pos is reset in the toolchange here
     cc_pos$ = zero
     if convert_rpd$ = one,
       [
       gcode$ = one
       feed = maxfeedpm
       ipr_type = zero
       ]
     else, gcode$ = zero

     #pbld, n$, sccomp, *sm05, psub_end_mny, e$ #<-- Commented out (original code)
     pbld, n$, sccomp, psub_end_mny, e$         #<-- M05 moved before M09 (see above)

     pbld, n$, sgabsinc, sgcode, [if gcode$ = 1, sgfeed], *sg28, "Z0.", [if gcode$ = 1, feed], scoolant, e$          
     #if lock_codes = one & rot_on_x, pbld, n$, *sunlock, sunlockcomm, e$
     #pbld, n$, *sg28, "X0.", "Y0.", protretinc, e$
     #if lock_codes = one & rot_on_x & cuttype = 0, pbld, n$, *slock, slockcomm, e$
     if abs(fmtrnd(cabs)) > 360 & nextop$ <> 1003 & not(index),
       [
       if lock_codes = one, pbld, n$, *sunlock, sunlockcomm, e$
       rotretflg = 1
       pbld, n$, `sg28, protretinc, e$
       rotretflg = 0
       if lock_codes = one & cuttype = 0, pbld, n$, *slock, slockcomm, e$
       ]
     absinc$ = sav_absinc
     coolant$ = sav_coolant

 

HTH

[Guest CNC Apps Guy 1]

FInd this;

 

cool_zmove  : yes$  #Coolant off with last move

 

and set the yes$ to no$

 

HTH

[Ariel Gubatina]

Thanks for the help. It works!

 

 

FInd this;

 

cool_zmove  : yes$  #Coolant off with last move

 

and set the yes$ to no$

 

HTH

[Rob @ Target Machine]

Good catch James.

[Guest CNC Apps Guy 1]

Glad I could be of help.