G8 G9 FADAL

[ROB]

i'm trying to force g8 for -milling only- on a fadal format1 and cancel g9 for drilling on every op.

 

i did a search on and found some code but,

i have no idea where it goes, using mpfadalmaster, any input will be apreciated.

 

here is the code.

 

pg8g9 #Add either G8 To Milling or G9 to drilling SLA

If opcode = 3 , "G9"

if opcode < > 3, "G8"

 

xppro dell

x2mr2sp1

mill3, lathe2

[Guest]

you'll likely want it in your ptlchg_com section, this can place it right after your tool length offset callout

[ROB]

this is what i am getting.

what am i doing wrong?

 

 

N2 T1 M6 (3.0 X 90DEG INSERTED FACEMILL)

N3 G90 G80 G40 G17 G0

N4 (MAX | Z1.)

N5 (MIN | Z-.7)

N6 M3 S6000

N7 G0 G90 X23.5097 Y-6.4089 E1

N8 G43 H1 Z1. M8

G9 G8 N9 Z.1 <----------------------------

N10 G1 Z-.1 F50.

N11 G41 D1 X23.6061 Y-6.1783 F100.

N12 G3 X23.4719 Y-5.8512 I-.2306 J.0964

[Hardmill]

I believe Flipper added these in here.

 

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$

]

pbld, n$, *smetric, e$

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

sav_absinc = absinc$

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

[

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

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

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

]

pcom_moveb

pcheckaxis

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

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_dir = fsg1(-ss$)

tap_speed = speed

pcan1, pbld, n$, *sgcode, *sgabsinc, *tap_speed, sm05, "M90", pfxout, pfyout, pcout, strcantext, e$

#n$, pwcs, e$

pbld, n$, *sgtap_prep, e$

]

else,

[

n$, pwcs, e$

n$, *speed, *spindle, pgear, e$

pcan1, pbld, n$, *sgcode, *sgabsinc, pfxout, pfyout, pcout, strcantext, e$

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

#pfyout, pcout, pgear, strcantext, e$

]

#pbld, n$, *tlngno$, pfzout, *next_tool$, e$

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

absinc$ = sav_absinc

if opcode$= 3, n$, "G9", e$

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

pcom_movea

pbld, n$, scoolant,, e$

toolchng = zero

c_msng$ #Single tool subprogram call

 

____________________________

 

ptlchg$

#Tool change

pcuttype

toolchng = one

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

[

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

]

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

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

pcom_moveb

pcheckaxis

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

c_mmlt$ #Multiple tool subprogram call

ptoolcomment

comment$

pcan

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

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

pindex

sav_absinc = absinc$

if wcs_mode = two, absinc$ = zero

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

[

tap_dir = fsg1(-ss$)

tap_speed = speed

n$, pwcs, e$

pcan1, pbld, n$, *sgcode, *sgabsinc, *tap_speed, sm05, "M90", pfxout, pfyout, pcout, strcantext, e$

pbld, n$, *sgtap_prep, e$

]

else,

[

n$, pwcs, e$

n$, *speed, *spindle, pgear, e$

pcan1, pbld, n$, *sgcode, *sgabsinc, pfxout, pfyout, pcout, strcantext, e$

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

#pfyout, pcout, pgear, strcantext, e$

]

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

#pbld, n$, *tlngno$, pfzout, *next_tool$, e$

if opcode$= 3, n$, "G9", e$

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

absinc$ = sav_absinc

pcom_movea

pbld, n$, scoolant,, e$

toolchng = zero

c_msng$ #Single tool subprogram call

 

________________________________

 

It works so I havent messed wif it.

 

 

PEACE

[ROB]

thanks for the responses i'll try that.

[Bryan Johnson]

There is a good fadal post on the FTP that includes the automatic use of G8/9 as you described it. You canlook at it for an example, or hopefully you can use it as is.

 

ftp://Mastercam_forum/Text_&_post_files_&_misc/MillX2_ Fadal-Format_2.zip

[ROB]

Thanks guys for the help.

 

I tried hardmill's and got it to work exept on one operation where i use a spotdrill for spotdrill/chamfer, when it goes from spot to chamfer it does not turns on g8.

 

Bryan the link does not work.

 

 

N452 (SPOT FOR THE .191 HOLES)

N453 T7 M6 ( .250 X 90DEG SPOTDRILL 1.5 MIN EXT)

N454 G90 G80 G40 G17 G0

N455 (MAX | Z2.5)

N456 (MIN | Z-.05)

N457 M3 S5000

N458 G0 G90 X6.6032 Y-1.9386 E1

N459 G43 H7 Z2.5 M8

N460 G9

N461 G81 G98 X6.6032 Y-1.9386 Z0. R.15 F20.

N462 X6.6032 Y-7.9386

N463 X6.6032 Y-13.9386

N464 X20.7767 Y-13.9466

N465 X20.7767 Y-7.9466

N466 X20.7767 Y-1.9466

N467 G80

N468 (SPOT FOR ONLY 5 OF THE .750 THRU HOLES)

N469 X4.3112 Y-2.6017

N470 G81 G98 X4.3112 Y-2.6017 Z-.05 R.15 F20.

N471 X4.3112 Y-8.6017

N472 X4.3112 Y-14.6017

N473 X8.9418 Y-13.4652

N474 X8.9418 Y-7.4652

N475 X8.9418 Y-1.4652

N476 X13.6943 Y-1.09

N477 X13.6943 Y-7.09

N478 X13.6943 Y-13.09

N479 X18.4459 Y-13.4733

N480 X18.4459 Y-7.4733

N481 X18.4459 Y-1.4733

N482 X23.0639 Y-2.5961

N483 X23.0639 Y-8.5961

N484 X23.0639 Y-14.5961

N485 G80

N486 (CUT THE INSIDE CHAMFERS)<----MISSING G8

N487 M3 S6000<---------------------SOMEWHERE

N488 X25.8923 Y-2.7685

N489 Z.76

N490 G1 Z.609

N491 G41 D7 X25.8347 Y-2.7443 F100.

N492 X25.3767 Y-2.5513

[Guest]

you'll also need to add it into the null toolchange section as well

 

ptlchg_0

[ROB]

Thanks JP that did it.

[Bryan Johnson]

It is in the folder "Text_&_post_files_&_misc"

 

Name of the file is "MillX2_ Fadal-Format_2.zip"