fanuc with pallet changer

[HEAVY METAL]

we have a fanuc om series 1 on a hms with auto pallet changer (2 pallets). right now i post a program for one pallet with g54 as offset then copy and paste program with g55 offset for second pallet . can i use a subprogram macro to call orginal program with the new offset. just wondering if this was possible

[Hardmill]

like this:

 

G00 G90 G54 X-.94425 Y.016

S10966

M03

( #78 DRILL)

G43 H3 Z1.0 M141

G05 P10000

M98 P0001

G90 G55 X-.94425 Y.016 Z1.0

M98 P0001

G90 G56 X-.94425 Y.016 Z1.0

M98 P0001

G90 G57 X-.94425 Y.016 Z1.0

M98 P0001

G90 G58 X-.94425 Y.016 Z1.0

M98 P0001

________________________________________

 

Yes, in transform toolpaths.

Select tool plane origin only, and the increment

is dictated by the # of steps (xy) in the translate tab.

 

 

PEACE

[F. JAVIER]

Or.. How about have the machine check what pallet number it just loaded inside, and if the palllet number is "#1" to jump and read "#1" set of offsets; and if the palllet number is "#2" to jump and read "#2" set of offsets in an "if then" macro statement... I'll think about it and give you more specifics later. I know we do something similar so that we use one program only. Then again mabye someone else can suggest something better

F. Javier

[robk]

How about just having a main program in the machine, and treating the program from mastercam as a sub? One program works the same on both tombstones with your work offsets being different. Do not use the work offset # at all in your mastercam program.

 

quote:

---

%

O1000(MAIN-PROG.SUB.100 )

G0G17G40G80G90

G0G91G28Z0.

G0G91G28X0.Y0.

G90G53X0.Y0.Z0.

G91G30XYZ0.

M1

N1G0G90G54

M11

B0.

M10

M98P100 (mastercam program)

M1

N2G0G90G55

M11

B0.

M10

M98P100...etc,etc,etc...

---

[F. JAVIER]

IF[#506EQ1]GOTO1(PALLET = 1)

IF[#506EQ2]GOTO2(PALLET = 2)

#3000=0(PALLET NUMBER NOT DEFINFED)

 

(OFFSET DIFFERENCES PALLET 1 TO 2)

N1(PALLET NO 1 OFFSETS)

G10G90L2P0X0Y0Z0B0

G90G10L2P1X0Y-17.67Z-37.415B359.991

G10G90L2P2X0Y0Z0B0

G10G90L2P3X0Y0Z0B0

G10G90L2P4X0Y0Z0B0

G10G90L2P5X0Y0Z0B0

G10G90L2P6X0Y0Z0B0

GOTO3

 

N2(PALLET NO 2 OFFSETS)

G10G90L2P0X0Y0Z0B0

G90G10L2P1X0Y-19.64Z-40.959B0.0

G10G90L2P2X0Y0Z0B0

G10G90L2P3X0Y0Z0B0

G10G90L2P4X0Y0Z0B0

G10G90L2P5X0Y0Z0B0

G10G90L2P6X0Y0Z0B0

GOTO3

 

N3(END PALLET NO OFFSET ROUTINE)

 

 

FIRST check if you can register the pallet number as it loads into the machine and then use this macro routine do the logic, that way you use only one program. Only have the operator do the offset adjusting for the correct pallet ( or weird things might happen......

F. Javier

[Tim Johnson]

Here's how I do it;

code:

---

O5501(PALLET MACRO START)

G91G30X0Y0Z0

G91G28B0

IF[#913EQ1](PALLET A TO BE MACHINED)GOTO2

IF[#913EQ2](PALLET B TO BE MACHINED)GOTO3

IF[#910EQ1](PALLET IN WORK AREA)GOTO3

N2M61

#910=1

#903=#901

GOTO4

N3M62

#910=2

#903=#911

N4(END PALLET MACRO)

 

IF[#910EQ1]THEN#909=#902

IF[#910EQ2]THEN#909=[#912-8]

IF[#910EQ1]THEN#920=0.

IF[#910EQ2]THEN#920=160.

M99

---

#900 CURRENT PART RUNNING

 

#901 FIRST PART OFFSET NUMBER PALLET No.1

 

#902 LAST OFFSET NUMBER PALLET No.1

 

#903 FIXTURE OFFSETT SETTING FOR PALLET1 (1 TYP) OR PALLET 2 (9 TYP)

 

#909 CURRENT NUMBER OF PARTS RUNNING (NUMBER OF PARTS IN WORK AREA FOR CLUSTER VISES)

OR LAST OFFSET NUMBER FOR DESIGNATED PALLET (TOMBSTONE)

 

#910 CURRENT PALLET RUNNING (PALLET IN WORK AREA)

 

#911 FIRST PART OFFSET NUMBER PALLET No.2

 

#912 LAST OFFSET NUMBER PALLET No.2

 

#913 PALLET TO BE MACHINED

 

#920 AMOUNT ADJUST. FROM PALLET TO PALLET "XYB" OFFSETS(160 FOR 1-8,9-16)

 

I use this mainly for clustervises running from 1 to 8 parts per pallet

 

Here's a template for running up to six different parts in each 90 degree index. (just for show, There's much more to it than this)

code:

---

(COUNTERBORE FOR CLUSTER VISES 8 PARTS)

 

G91G30X0Y0Z0

M06T(TOOL NAME)

#930=[4000+[#4120*10]](4000+[T CODE*10])

(NOTE REMOVE PREVIOUS EQUATION AND ADD MANUALLY IF TOOL SECOND RUN)

M[#926]T(NEXT TOOL)

M[#927](CEILING)

M[#925](SPINDLE)

 

M98P(MACRO CALL FOR TYPE OF ROUTING)

M56(SPINDLE)

M58(CEILING)

M09

G91G30X0Y0Z0

M01

 

 

O4001(-LEFT SIDE BOTTOM OF PART-)

NG90G00XYB0.G54

NG43HZSM[#933](M03)

N0Z

N0G99G82RZPF

 

NG98

N0G80

NM99

 

 

O4002(-LEFT SIDE TOP OF PART-)

NG90G00X0.Y0.B0.G54

NG68X0.Y0.R180.

NM98P4005

NG69

NM99

 

 

O4003(-TOP SIDE BOTTOM OF PART-)

N#900=[#900+1]

NG90G00XYB0.G54P[#900]

NG43HZSM[#933](M03)

N0Z

N0G99G82RZPF

 

NG98

N0G80

NM99

 

 

O4004(-TOP SIDE TOP OF PART-)

NG90G00X0.Y0.G54P[#4130+1]

NG68X0.Y0.R180.

NM98P4003

NG69

NM99

 

 

O4005(-RIGHT SIDE BOTTOM OF PART-)

NG90G00XYB0.G54

NG43HZSM[#933](M03)

N0Z

N0G99G82RZPF

 

NG98

N0G80

NM99

 

 

O4006(-RIGHT SIDE TOP OF PART-)

NG90G00X0.Y0.B0.G54

NG68X0.Y0.R180.

NM98P4001

NG69

NM99

---