Post Help

[ATG]

Hopefully this is a simple edit. I want to add a / before each coolant output so I can turn on block skip for dry runs. Is this something that I could edit that is common in each post? Thanks in advance.

 

 

Seth

[Guest]

code:

---

 # --------------------------------------------------------------------------

# Coolant M code selection for V9 style coolant

# Note: To enable V9 style coolant, click on the General Machine Parameters icon

Saerch for the coolant section in your post and change the string definitions

 

# in the Machine Definition Manager, Coolant tab, enable first check box.

# Output of V9 style coolant commands in this post is controlled by scoolant

 

sm09 M9 #Coolant Off

sm08 /M8 #Coolant Flood

sm08_1 M7 #Coolant Mist

sm08_2 M7 #Coolant Tool

scoolant #Target for string

 

fstrsel sm09 coolant$ scoolant 4 -1

---

That should get it

[ATG]

thanks John

[ATG]

Ok that worked great but now i have to move the coolant command to a line on its own. It is on the same line with the tool lenth callout....oops. I'm using the generic fadal format2 post i beleave. Is there an easy way to do this....

 

Thanks

 

Seth

[Storkman]

pbld, n$, *tlngno$, pfzout, pstagetool, e$

pbld, n$, scoolant, e$

 

 

change ptlchg$ block to this.

[ATG]

Ok this worked but i screwed up my prestage tools now. I had it set up to post the prestage on a line by itself. Thats the only way my fadal would accept it. This changed it to be on the same line. Here's the ptlchng$ in my post.

 

{rtf1ansideff0{fonttbl{f0fnilfcharset0 Courier New;}}

viewkind4uc1pardlang1033bf0fs23 ptlchg$ #Tool change

par pcuttype

par toolchng = one

par if wcs_mode = one, #G92 block output (on EACH tool)

par [

par pfbld, n$, sg92, *xh$, *yh$, *zh$, e$

par ]

par if prog_stop = 1, pbld, n$, *sm01, e$

par if prog_stop = 2, pbld, n$, *sm00, e$

par pcom_moveb

par pcheckaxis

par c_mmlt$ #Multiple tool subprogram call

par ptoolcomment

par comment$

par pcan

par result = newfs(15, feed) #Reset the output format for 'feed'

par pbld, n$, *t$, sm06, e$

par pindex

par sav_absinc = absinc$

par if wcs_mode = two, absinc$ = zero

par if opcode$ = 3 & nextdc$ = 7, #Check for rigid tap

par [

par tap_dir = fsg1(-ss$)

par tap_speed = speed

par pcan1, pbld, n$, *sgcode, *sgabsinc, *tap_speed, sm05, "M90", pwcs, pfxout,

par pfyout, pcout, strcantext, e$

par pbld, n$, *sgtap_prep, e$

par ]

par else,

par [

par pcan1, pbld, n$, *sgcode, *sgabsinc, *speed, *spindle, pwcs, pfxout,

par pfyout, pcout, pgear, strcantext, e$

par ]

par if opcode$ <> 3, pbld, n$, "G8", e$

par pbld, n$, *tlngno$, pfzout, scoolant, e$

par pbld, n$, pstagetool, e$

par absinc$ = sav_absinc

par pcom_movea

par toolchng = zero

par c_msng$ #Single tool subprogram call

par }

 

 

I'm not sure how to format it to output both the coolant and the prestage on there own line......

 

thanks

[ATG]

Ok with the change you suppled i figued it out...

Thanks allot Terry you guys are great....Oh and I always cant forget John....

 

thanks again...

 

[ATG]

But for some reason the 1st tool still out puts the coolant on the same line as the lenth callout.

here is a sample of the code i get now....

 

%

N100 ( 54-D )

N110 ( CREATED ON 01-30-09 AT 3:05 PM )

N120 ( MCX FILE - C:MCAMX3MCXMILL385511-28CMOD21195.MCX )

N130 ( NC FILE - H:SETH54-D.NC )

N140 G20

N150 G0 G17 G40 G49 G80 G90 H0 E0 Z0

N160 ( .625 SPOT DRILL )

N170 ( FADAL11-15-06 )

N180 ( FADAL11-15-06-1 )

N190 T5 M6

N200 G0 G90 S610 M3 E1 X.874 Y-.906

N210 H5 Z2. M8 (this is the Line......)

N220 T6

N230 G73 G98 X.874 Y-.906 Z-.1945 R0.1 Q0. F4.

N240 X2.999 Y-.925

N250 G80

N260 M5 M9

N270 G90 H0 Z0.

N280 M1

N290 ( LTR. R DRILL )

N300 ( FADAL11-15-06 )

N310 ( FADAL11-15-06-1 )

N320 T6 M6

N330 G0 G90 S1127 M3 E1 X.874 Y-.906

N340 H6 Z2.

N350 M8 (This looks good)

N360 T7

N370 G83 G98 X.874 Y-.906 Z-3.6 R0.1 Q.1017 F7.

N380 X2.999 Y-.925 Z-2.

N390 G80

N400 M5 M9

N410 G90 H0 Z0.

N420 M1

 

 

also i lost my block skip /M8 not sure why its doing that.....

[Storkman]

Look in psof$ block for the same thing.

[ATG]

Sorry i should have explaned it better. It is the same only on the 1st posted tool.

The rest looks good.

[Storkman]

yep, alot of times it's called out in psof for the first tool.

[ATG]

Your a life saver thanks....

[Storkman]

This is my generic fadal format 2 post

 

Look at the bold letter line

 

 

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

pcuttype

toolchng = one

if ntools$ = one,

[

#skip single tool outputs, stagetool must be on

stagetool = m_one

!next_tool$

]

# Fadal (Format 2) program style safe startup (per FADAL documentation)

if safestart = yes$, # Output complete safe startup program blocks.

[

pbld, n$, "G53", "Z0.", e$

pbld, n$, *sgcode, *smetric, *sgplane, scc0, sg80, *sgabsinc, "H0", "E0", "Z0.", e$

pbld, n$, *sg28ref, "X0.", "Y0.", "Z0.", [if rot_on_x > zero, "A0."], e$

]

else,

[

pbld, n$, *smetric, e$

pbld, n$, *sgcode, *sgplane, scc0, sg80, *sgabsinc, e$

]

if wcs_mode = zero | wcs_mode = one, # 'G92' output modes w/ 'G28' retracts

[

if safestart = no$, # Do complete safe program startup blocks output?

[ # If "safestart = yes", we have already done this...

pbld, n$, *sg28ref, "Z0.", e$

pbld, n$, *sg28ref, "X0.", "Y0.", [if rot_on_x > zero, "A0."], e$

]

pbld, n$, sg92, *xh$, *yh$, *zh$, e$

]

sav_absinc = absinc$

pcom_moveb

pcheckaxis

c_mmlt$ #Multiple tool subprogram call

ptoolcomment

comment$

pcan

pbld, n$, *t$, sm06, e$

pindex

if wcs_mode = two, absinc$ = zero

if opcode$ = 3 & nextdc$ = 7, #check for rigid tap

[

tap_speed = speed

pcan1, pbld, n$, *sgcode, *sgabsinc, *tap_speed, sm05, "M90", pwcs, pfxout,

pfyout, pcout, strcantext, e$

]

else,

[

pcan1, pbld, n$, *sgcode, *sgabsinc, *speed, *spindle, pwcs, pfxout,

pfyout, pcout, pgear, strcantext, e$

]

pbld, n$, *tlngno$, pfzout, scoolant,pstagetool, e$

absinc$ = sav_absinc

pcom_movea

toolchng = zero

c_msng$ #Single tool subprogram call