mpmaster post edit help

[gms1]

Hey guys,

 

Im trying to remove the tool change at the beginning of my programs when I post out. I've sent the post to my reseller and he was at a loss as how to remove it. Im gonna post here hoping I can get some kind of help to get rid of this because I have to hand edit it out every time I post.

 

code:

---

%                                       pmachineinfo$ pheader$

:2586 (T) pmachineinfo$ pheader$

(MCX FILE - 60405-101.MCX) pmachineinfo$ pheader$

(PROGRAM - T.65V) pmachineinfo$ pheader$

(DATE - OCT-24-2006) pmachineinfo$ pheader$

(T15 | 1-1/2 FINISHMILL .118 RAD | H15 | D65 | D1.5000) pwrtt$ pwrtt$

(T13 | 1 INCH MITS BXD .06 RAD | H16 | D66 | D1.0000) pwrtt$ pwrtt$

(T4 | 1/4 SPOTDRILL | H16 | D66 | D0.2500) pwrtt$ pwrtt$

N15T15M6(1-1/2 FINISHMILL .118 RAD) psof$ ptoolcomm

(OKUMA & HOWA 65V) psof$ pcomment2

G0G90G54X-.3524Y-2.5713S984M3T13 psof$ ptlchg_com

---

The N15T15M6 tool line needs to be changed. It needs to stay with the N code and tool comment but the toolchange needs to go. Everything i've tried so far has resulted in some crazy things happening (like tool changes in the middle of code).

Im fairly certain I need some kind of if statement in the $psof part of the post but I dont know what it needs to function.

 

This post is a modified mpmaster version x post. I am using mcamx 10.1.3.34 (mp1/sp2) lvl 3

[Guest]

Why would you need to do that????

[Storkman]

only in the beginning?

 

take the ptlchg_com out of psof. Replace it with

 

pbld, n$, ptoolcom, e$

[Rick Henrickson 65]

you could add a safety line there

if vatol eq 15 n1501

t15m6

n1501 g0 g90 x___ y____ s____

that way you can make sure you have the right tool in the spindle

[gms1]

John: We don't change tools at the beginning of programs. Its always at the end of programs so when the program is executed the spindle starts instead of changing a tool. My old mpmaster post had this feature but anything I've tried with the new version just doesnt work.

 

Terry: That wont work, ive tried and failed miserably with doing that. This is what happens when you remove ptlchg_com:

 

code:

---

 %                                       pmachineinfo$ pheader$

:2593 (T) pmachineinfo$ pheader$

(MCX FILE - 60409-101.MCX) pmachineinfo$ pheader$

(PROGRAM - T.65V) pmachineinfo$ pheader$

(DATE - OCT-25-2006) pmachineinfo$ pheader$

(T15 | 1-1/2 FINISHMILL .118 RAD | H13 | D63 | D1.5000) pwrtt$ pwrtt$

(T13 | 1 INCH MITS BXD .06 RAD | H13 | D63 | D1.0000) pwrtt$ pwrtt$

(T4 | 1/4 SPOTDRILL | H14 | D64 | D0.2500) pwrtt$ pwrtt$

Z.415 pzrapid$ prapidout

M9 prapid$ p__65:1735

X-34.3878Y2.02M8 prapid$ prapidout

---

It removes the 1st line of the tool and skips a bunch of stuff after that.

 

This is my psof post block

code:

---

 psof$            #Start of file for non-zero tool number

ptravel

pwritbuf5

pcuttype

toolchng = one

if ntools$ = one,

[

#skip single tool outputs, stagetool must be on

#stagetool = m_one

!next_tool$

]

tooltotal = rbuf(4,0) #Reads total tool and null tool changes

if toolcountn <= tooltotal, nexttool = rbuf(4,toolcountn)

else, nexttool = first_tool$

 

if tool_table = 2, ppredstck,e$

if tool_table = 3, pmetastck,e$

 

spaces$=0

if output_z = yes$ & tcnt > 1,

[

"(OVERALL MAX - ", *z_tmax, ")", e$

"(OVERALL MIN - ", *z_tmin, ")", e$

]

spaces$=sav_spc

 

if plane$ < 0, plane$ = 0

#pbld, n, *sgcode, *sgplane, *smetric, "G40", "G80", *sgabsinc, e

sav_absinc = absinc$

if wcstype <= one, #Work coordinate system

[

absinc$ = one

pfbld, n$, sgabsinc, "G28", "Z0.", e$

pfbld, n$, "G28", "X0.", "Y0.", e$

pfbld, n$, "G92", *xh$, *yh$, *zh$, e$

absinc$ = sav_absinc

]

sav_mi9 = mi9$

sav_workofs = workofs$

if sav_workofs < 0, sav_workofs = 0

ptlchg_com

sof=0

---

That is basic mpmaster psof code there. Im now thinking I need to add something to the ptlchg_com section that checks for beginning of program.

[Storkman]

Copy the ptlchg_com block into the psof where it is called and remove the t$ and M06.

 

sof$ #Start of file for non-zero tool number

ptravel

pwritbuf5

pcuttype

toolchng = one

if ntools$ = one,

[

#skip single tool outputs, stagetool must be on

#stagetool = m_one

!next_tool$

]

tooltotal = rbuf4,0 #Reads total tool and null tool changes

if toolcountn <= tooltotal, nexttool = rbuf4,toolcountn

else, nexttool = first_tool$

 

if tool_table = 2, ppredstck,e$

if tool_table = 3, pmetastck,e$

 

spaces$=0

if output_z = yes$ & tcnt > 1,

[

"OVERALL MAX - ", *z_tmax, "", e$

"OVERALL MIN - ", *z_tmin, "", e$

]

spaces$=sav_spc

 

if plane$ < 0, plane$ = 0

#pbld, n, *sgcode, *sgplane, *smetric, "G40", "G80", *sgabsinc, e

sav_absinc = absinc$

if wcstype <= one, #Work coordinate system

[

absinc$ = one

pfbld, n$, sgabsinc, "G28", "Z0.", e$

pfbld, n$, "G28", "X0.", "Y0.", e$

pfbld, n$, "G92", *xh$, *yh$, *zh$, e$

absinc$ = sav_absinc

]

sav_mi9 = mi9$

sav_workofs = workofs$

if sav_workofs < 0, sav_workofs = 0

ptlchg_com <<<<<<<<<<<<Replace this with the guts of ptlchg_com block.

sof=0

[gms1]

omg storkman you are my hero

 

worked like a champ!

[Kannon]

quote:

---

omg storkman you are my hero

---

oh god...mental picture of the Stork walking around the office hollering

"whos the man" "whos the man"

 

Dont get him going gms1... a simple thank you to him should be sufficient, any more then that makes his head so big we are all hear about it all day.

[John13]

LOL Kannon,

[TheePres]

Well, there goes "Contact your Re-seller for Post help" idea out the window.

[Tom Brown from Stork Inc.]

quote:

---

oh god...mental picture of the Stork walking around the office hollering

"whos the man" "whos the man"

---

Yaah! I just got to see it in real life, it's pretty impessive!

[Guest]

Did he fluff his "plumage" out before he strutted around like a stoked pigeon?

[Storkman]

Ignore the peanut gallery gms1. Glad it worked for ya.

[gms1]

LOL im just glad I finally have this fixed. I have a large pin ready to go just in case though