Coolant - Air blow

[kccadcam]

Back again,,,,

quote:

---

Mpmaster for X MR1/SP2 and above. It's our master configurable 4-Axis G-Code post. Rotary settings are configured in the Machine Definition.

---

Configuring Matsuura H600 cell post.

I have created:

code:

---

#( )======================================

#*>=========================<***************************************

#( COOLANT AIRBLOW COMMANDS )======================================

#*>=========================<***************************************

#( )======================================

 

ptool_airblast

n$, "M52", "(AIR BLAST ON)" ,e$

n$, "G4 X9.5" ,e$

n$, "M53", "(AIR BLAST OFF)" ,e$

 

---

I,m trying to insert:

---> if prv_coolant$ = 3, ptool_airblast <---

into pretract when coolant-tool is shut off.

Cannot get it recognize prv_coolant??

I think it is conflicting with the new x-coolant stuff....

 

Anybody care to steer me in the right direction??

Here is my pretract:

code:

---

 pretract        #End of tool path, toolchange              

sav_absinc = absinc$

absinc$ = one

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, 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$ = 1,

[

gcode$ = 1

feed = maxfeedpm

ipr_type = 0

]

else, gcode$ = zero

pbld, n$, sccomp, *sm05, psub_end_mny, e$

pbld, n$, sgabsinc, sgcode, "G28", "Z0.", [if gcode$ = 1, `feed], scoolant, e$

#if lock_codes = one & rot_on_x, pbld, n$, *sunlock, sunlockcomm, e$

#pbld, n$, "G28", "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,

[

if lock_codes = one, pbld, n$, *sunlock, e$

rotretflg = 1

pbld, n$, 'G28', protretinc, e$

rotretflg = 0

if lock_codes = one & cuttype = 0, pbld, n$, *slock, e$

]

absinc$ = sav_absinc

coolant$ = sav_coolant

"G49", e$

pbreak, e$

---

[Guest]

How about trying this instead.

 

It looks like you are trying to create a post block why not just handle it in the pretract section like so. Insert this after the off coolant call.

 

code:

---

 if prv_coolant$ = 3,

[

n$, "M52", "(AIR BLAST ON)" ,e$

n$, "G4 X9.5" ,e$

n$, "M53", "(AIR BLAST OFF)" ,e$

]

---

Are you sure its not seeing the if prv_coolant$

and is not picking up the post block instead?

[kccadcam]

code:

---

 if prv_coolant$ = 3,

[

n$, "M52", "(AIR BLAST ON)" ,e$

n$, "G4 X9.5" ,e$

n$, "M53", "(AIR BLAST OFF)" ,e$

]

---

That's exactly what I started with....

I cannot get it to accept the prv_ command.

 

If I say:

code:

---

 if coolant$ = 3 

---

it will output on the previous tool....

 

Stumped...........

[Guest]

Dumb question,

 

Is the prv_coolant$ being set immediately after the coolant call in the ptlchg sections?

 

Then after it's used at the end of the pretract section you might want to zero it back out just for s/g's

 

Can you post the section where the prv_coolant is being set?

[Tim Johnson]

I don't know much about the new coolant stuff... but you can try this in the ptoolend postblock;

 

code:

---

ptoolend$        #End of tool path, before reading new tool data               

!speed, !spdir2

if nextop$ = 1002,

[

if prv_coolant$ = 3,

[

n$, "M52", "(AIR BLAST ON)" ,e$

n$, "G4 X9.5" ,e$

n$, "M53", "(AIR BLAST OFF)" ,e$

]

]

---

[kccadcam]

This is from the end of ptlchg_com:

 

code:

---

 if nexttool = first_tool$,

pbld, n$, "G43", *tlngno$, pfzout, scoolant,[if coolant$ = 3,"(HP COOLANT)"], "T0", e$

else, pbld, n$, "G43", *tlngno$, pfzout, scoolant,[if coolant$ = 3,"(HP COOLANT)"], next_tool$, e$

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

---

this is my current pretract:

code:

---

 pretract        #End of tool path, toolchange              

sav_absinc = absinc$

absinc$ = one

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, 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$ = 1,

[

gcode$ = 1

feed = maxfeedpm

ipr_type = 0

]

else, gcode$ = zero

pbld, n$, sccomp, *sm05, psub_end_mny, e$

pbld, n$, sgabsinc, sgcode, "G28", "Z0.", [if gcode$ = 1, `feed], scoolant, e$

#if lock_codes = one & rot_on_x, pbld, n$, *sunlock, sunlockcomm, e$

#pbld, n$, "G28", "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,

[

if lock_codes = one, pbld, n$, *sunlock, e$

rotretflg = 1

pbld, n$, 'G28', protretinc, e$

rotretflg = 0

if lock_codes = one & cuttype = 0, pbld, n$, *slock, e$

]

absinc$ = sav_absinc

if prv_coolant$ = 3, <----------NEW

[

n$, "M52", "(AIR BLAST ON)" ,e$

n$, "G4 X9.5" ,e$

n$, "M53", "(AIR BLAST OFF)" ,e$

]

coolant$ = sav_coolant

"G49", e$

pbreak, e$

---

[Guest]

Is prv_coolant$ a varaiable you created?

 

If so, try dropping the $ at the end of it.

 

Also , where is it set?

 

somewhere there should be

prv_coolant = coolant$

[Glenn Stephens. from CCCS]

I don't look at the mpmaster posts much, but from the look of the code you posted you should be comparing to sav_coolant instead of prv_coolant$

 

John, the "prv_" variables are automatically created/updated whenever you output a variable to allow modality checking (e.g., coolant$ and prv_coolant$).

[MIL-TFP-41]

long way of doing it but I got it to work..thanks for the idea.

 

code:

---

pretract        #End of tool path, toolchange              

sav_absinc = absinc$

absinc$ = one

sav_coolant = coolant$

if prv_coolant$ = 3,

[

coolant$ = zero

peck1$ = zero

#cc_pos is reset in the toolchange here

cc_pos$ = zero

gcode$ = zero

pbld, n$, sccomp, *sm05, psub_end_mny, e$

pbld, n$, sgabsinc, sgcode, *sg28ref, "Z0.", scoolant, e$

ptool_airblast #KC addon

absinc$ = sav_absinc

coolant$ = sav_coolant

]

else,

[

coolant$ = zero

peck1$ = zero

#cc_pos is reset in the toolchange here

cc_pos$ = zero

gcode$ = zero

pbld, n$, sccomp, *sm05, psub_end_mny, e$

pbld, n$, sgabsinc, sgcode, *sg28ref, "Z0.", scoolant, e$

absinc$ = sav_absinc

coolant$ = sav_coolant

]

---