Coolant issue

[PcRobotic]

Hello everyone,

   I'm having issue with coolant where same tool using different operation and it shows M8, M9.....

 

  For the screenshot of COOLANT SETTING in Machine Definition:

  https://drive.google.com/file/d/0B4UZsmondnEzM0tncmg2d3JSU1E/view?usp=sharing

 

  For the screenshot of COOLANT TAB in Machine Definition:\

  https://drive.google.com/file/d/0B4UZsmondnEzMUJqZ2NFd0F0Mm8/view?usp=sharing

 

 

I believe some off us see this issue and it is sometimes getting hesitate to have ON/ OFF coolant at where the coolant pump is very weak.  Therefore, it cannot get the coolant back immediately.  Please read the G-CODEs below the dotted lines and thank you for your time to help me out.

 

 

==================================

 %

O0369(CORE INSERT - OP1.NC POST REV.179)

N202(.5000, 1/2 EM, CB,)

(3FLTS .750LOC, 1.00LOH)

G0 G17 G40 G49 G80 G90

G53 Z0. M19

M45(VACCUM ON)

T2 M6(FINISH PROFILE, CUT#87)

G90 G54(XY STK= -.001)

(ADOC= .6250)

X.2441 Y-.1619 S8500 M3

G43(D2)H2 Z1. T10 /M8(DOC= Z-.9991) ====================> Good coolant code

M81(POT DOWN)

G90 Z.0625

G1 Z-.9991 F25.

G41 D2 X.0691 Y-.465

(CUTTING...)

G3 X.0691 Y-.615 R.15

G1 G40 X.2441 Y-.9181

G0 Z1. M9 ====================> BAD coolant code

(.5000, 1/2 EM, CB,)

(3FLTS .750LOC, 1.00LOH)

(FINISH BOSS, CUT#88)

(4 X .125 MULTI-ROUGH)

(1 X .005 MULTI-FINISH)

(G54 - ADOC= .6250)

(D2, DOC= Z-.3491)

X-1.9803 Y-1.3781 M8 ====================> BAD coolant code

Z.0625

G1 Z-.3491

G41 D2 X-1.8053 Y-1.075

G3 X-1.7852 Y-1. R.15

(CUTTING...)

G1 G40 X-1.6003 Y-.6219

G0 Z1. ====================> No coolant needed, good

(.5000, 1/2 EM, CB,)

(3FLTS .750LOC, 1.00LOH)

(FINISH BOSS, CUT#89)

(G54 - ADOC= .6250)

(D2, DOC= Z-.2729)

X-1.5716 Y-1.3781

Z.0625

G1 Z-.2729

G41 D2 X-1.3966 Y-1.075

G3 X-1.3765 Y-1. R.15

G2 X-1.3765 Y-1. I.5515

G3 X-1.3966 Y-.925 R.15

G1 G40 X-1.5716 Y-.6219

G0 Z1.====================> No coolant needed, good

S8000 M3

(.5000, 1/2 EM, CB,)

(3FLTS .750LOC, 1.00LOH)

(FINISH TOP SURFACE OF BOSS, CUT#90)

(G54 - ADOC= .6250)

(DOC= Z-.0554)

X-.1562

(CUTTING...)

G3 X-.3312 Y-1.075 R.15

G1 X-.1562 Y-1.3781

G0 Z1. M9 ====================> Good coolant code

G90 G53 Z0. M5

M46(VACUUM OFF)

M82(POT UP)

G53 Y0.

M1

T1 M6

G54 X0.

M30

(46,819CHARS - 46.97KB)

%

 

 

 

 

============================ Post EDIT=====================

ptlchg_com      #Tool change common blocks

pbld, no_spc$, "G43", [if (comp_type = two | PocketFinishEnable) & opcode$ <> 3 & opcode$ <> 16, spaces$ = 0, "(",*tloffno$,")"], *tlngno$, spaces$ = sav_spc,

      pfzout, next_tool$, [if mr5$ = 1, *sslash, no_spc$, *scoolant, else, scoolant],      last_op_id = op_id$      spaces$=0

ptlchg_com      #Tool change common blocks

pbld, no_spc$, "G43", [if (comp_type = two | PocketFinishEnable) & opcode$ <> 3 & opcode$ <> 16, spaces$ = 0, "(",*tloffno$,")"], *tlngno$, spaces$ = sav_spc,

      pfzout, next_tool$, [if mr5$ = 1, *sslash, no_spc$, *scoolant, else, scoolant],      last_op_id = op_id$

      #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

ptlchg0$         #Call from NCI null tool change (tool number repeats)

#if coolant$ <> 0 & coolant$ <> sav_coolant & sav_coolant, pbld, no_spc$, scoolant, e$

      #pbld, no_spc$, [if mr5$ = 1, *sslash, no_spc$, *scoolant, else, scoolant], e$      #sav_coolant = coolant$      #if coolant$ = 1, sm09 = sm09_0      #if coolant$ = 2, sm09 = sm09_1      #if coolant$ = 3, sm09 = sm09_2

      pbld, no_spc$, "G43", [if (comp_type = two | PocketFinishEnable) & opcode$ <> 3 & opcode$ <> 16, spaces$ = 0, "(",*tloffno$,")"], *tlngno$, spaces$ = sav_spc,      pfzout, next_tool$, [if mr5$ = 1, no_spc$, *sslash, *scoolant, else, scoolant], 

      #if coolant$ <> 0 & coolant$ <> sav_coolant & sav_coolant, pbld, no_spc$, scoolant, e$      #pbld, no_spc$, [if mr5$ = 1, *sslash, no_spc$, *scoolant, else, scoolant], e$      #sav_coolant = coolant$      #if coolant$ = 1, sm09 = sm09_0      #if coolant$ = 2, sm09 = sm09_1      #if coolant$ = 3, sm09 = sm09_2

      pbld, no_spc$, "G43", [if (comp_type = two | PocketFinishEnable) & opcode$ <> 3 & opcode$ <> 16, spaces$ = 0, "(",*tloffno$,")"], *tlngno$, spaces$ = sav_spc,      pfzout, next_tool$, [if mr5$ = 1, no_spc$, *sslash, *scoolant, else, scoolant],

pretract        #End of tool path, toolchange

sav_coolant = coolant$

      coolant$ = zero

#      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, no_spc$, *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, no_spc$, scoolantx, e$              ]            coolantx = zero            ]          coolant_on = zero          ]#        ]

coolant$ = sav_coolant

pretract0        #End of tool path, null toolchange

coolant$ = sav_coolant

prestart        #Restart coolant and spindle after M01      if strcantext = sm00 | strcantext = sm01,        [        if v9_coolant,          [          if coolant$, pbld, no_spc$, *scoolant, e$          ]        else,          [          if coolantx, pbld, no_spc$, *scoolantx, e$          ]        if speed,          [          pbld, no_spc$, pgear, e$          pbld, no_spc$, [if speed < 1, "", else, pfspindleout], e$          ]        !speed, !spdir2        ]

pncoutput       #Movement output      pcom_moveb      comment$      if coolant$ <> 0 & coolant$ <> sav_coolant,        [        pbld, no_spc$, sm09, e$        sav_coolant = coolant$

phelout #Output to NC of helical interpolation

      if plane$ = zero,        [        result = nwadrs(strk, lead)        lead = abs(zinc/sweep$*360)        ]      if plane$ = one,        [        result = nwadrs(stri, lead)        lead = abs(xinc/sweep$*360)        ]      if plane$ = two,        [        result = nwadrs(strj, lead)        lead = abs(yinc/sweep$*360)        ]      pcan1, pbld, no_spc$, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,        pxout, pyout, pzout, *lead, pcout, parc, feed, strcantext, scoolant, e$pcom_moveb      #Common motion preparation routines, before                    pxyzcout      ps_inc_calcpncoutput       #Movement output      pcom_moveb      comment$      if coolant$ <> 0 & coolant$ <> sav_coolant,        [        pbld, no_spc$, sm09, e$        sav_coolant = coolant$        ]      if coolant$ = 1, sm09 = sm09_0      if coolant$ = 2, sm09 = sm09_1      if coolant$ = 3, sm09 = sm09_2      if cool_zmove = yes$ & (nextop$=1003 | (nextop$=1011 & t$<>abs(nexttool))), coolant$ = zero

pcanceldc$       #Cancel canned drill cycle      result = newfs (three, zinc)      z$ = initht$      prv_zia = initht$      pxyzcout      !zabs, !zinc      prv_gcode$ = zero      if cool_zmove = yes$ & (nextop$=1003 | (nextop$=1011 & t$<>abs(nexttool))), coolant$ = zero