G81 Drilling Canned Cycle (Fagor 8055 M)

[mediumsliced]

Hi all, I have a question for y'all.

This is regarding the G81 drilling canned cycle. According to all the texts as well as my test posts, a sample output comes out as:

N5550 G81 X12.7 Y12.7 R-5.0 Z19.503 F100.0

I'm trying to customize a post for a Fagor 8055 M controller and according to the programming manual, the G81 canned cycle G-Code required by the controller should be in the form of:

G81 X Y Z I K

Where,

X & Y = movement of the axes
Z = ref. plane coordinate
I = drilling depth
K = dwell time

I presume this can be achieved by means of FIL macro programming? If so, can anybody give me some pointers as to how to achieve this?

TIA!

 

[Zaki]

< = defer>



Hi Tia

 

[mediumsliced]

Zaki,

Thanks for your reply. Can you please elaborate more on your statement? I know I can change to IJK manually, via the controller, but I would like to have the either PP or FIL make the necessary changes.

And when you say customize canned cycle, is that in the controller, or in the CAM system?

Forgive my ignorance. Just starting out.

 

[appinmi]

In order for Proe to output a "DWELL" within the CL file, you will have to use a cycle type that has that parameter, in this case I chose the "CYCLE/FACE" type for the NC sequence.If you want to choose a different one, just alter the code where it looks for the cycle type. You will have to create or modify your FIL file to capture this cycle type. Following is one way of doing that:


$$ ****************************************************


$$ * G l o b a l V a r i a b l e S e c t i o n *


$$ ****************************************************


A=1;B=2;C=3;D=4;E=5;F=6;G=7;H=8;I=9;J=10;K=11;L=12;M=13;N=14


O=15;P=16;Q=17;R=18;S=19;T=20;U=21;V=22;W=23;X=24;Y=25;Z=26


REDEF/ON $$ Allow redefinition of variables


CYCTYP=0 $$ Switch for CYCLE/DRILL


CYCDEP=0 $$ Cycle DEPTH


CYCDWL=2 $$ Cycle DWELL, set default to 2


$$ **********************************


$$ C Y C L E


$$ **********************************


CIMFIL/ON,CYCLE


DMY=POSTF(20) $$ Save current CL record


ARG1=POSTF(7,4) $$ Get first CL word


IF (ARG1.EQ.ICODEF(OFF)) THEN


IF (CYCTYP.EQ.1) THEN


CYCTYP=0


POSTN/OUT,G,80


ENDIF


ENDIF


IF (ARG1.EQ.ICODEF(FACE)) THEN


NW=POSTF(5) $$ Get # of arguments in CL record


LOOPST $$ do loop to parse the cl record


DO/REDO3,N=5,NW,1


TWRD=POSTF(7,N) $$ get the next cl word


TTYP=POSTF(6,N) $$ get the next cl word type


IF (TWRD.EQ.(ICODEF(DEPTH)).AND.TTYP.EQ.0) THEN


CYCDEP=POSTF(7,(N+1))


ENDIF


IF (TWRD.EQ.(ICODEF(DWELL)).AND.TTYP.EQ.0) THEN


CYCDWL=POSTF(7,(N+1))


ENDIF


REDO3) contin


LOOPND


CYCTYP=1


JUMPTO/SKIP1


ENDIF


DMY=POSTF(21) $$ Restore current CL record


DMY=POSTF(13) $$ Process current CL record


SKIP1) CONTIN


CIMFIL/OFF


$$ **********************************


$$ G O T O


$$ **********************************


CIMFIL/ON,GOTO


DMY=POSTF(20) $$ Save current CL record


IF (CYCTYP.EQ.1) THEN


DMY=POSTF(21)


XX=POSTF(2,1,1867,1) $$ SUPPRESS TAPE OUTPUT


DMY=POSTF(13) $$ PROCESS TOOL CHANGE


XX=POSTF(2,1,1867,0) $$ RESTORE TAPE OUTPUT


CURX=POSTF(1,3,344)


CURY=POSTF(1,3,345)


CURZ=POSTF(1,3,346)


POSTN/OUT,G,81,X,CURX,Y,CURY,Z,CURZ,I,CYCDEP,K,CYCDWL


JUMPTO/SKIP2


ENDIF


DMY=POSTF(21)


DMY=POSTF(13)


SKIP2) CONTIN


CIMFIL/OFF

 

[mediumsliced]

thanks, will give it a try and update everybody.

it's getting pretty hectic now. apart from the fagor controlled machine, i have to work on another machine, a taiwanese machine with a mitsubishi 65SM controller, but that's not it, the screwed up thing is that the controller manual is in mandarin, and i don't read mandarin!




Edited by: mediumsliced

 

[Zaki]

Hi Tia


Man I means that u can change via pp. While in mfg file open go to applications>>nc post processor, and make a new prosessor as a copy of an old one. then make the neccassory changes. Its not so difficult, just need to surf it.

 

[mediumsliced]

i know, but the OFG is rather limited in the amount of customization allowed. in the end, i still need to touch fil.