Horizontal Programming

[fascomw]

Good afternoon folks. I've got an odd situation here. I am programming for our Haas EH-400. I am using 1 work offset for everything. I've programmed quite a few parts on this particular pallet in this manner and never had an issue like this in the past. 

The part (3 identical part arranged vertically)  at hand is mainly machined at B 0 then turns to B90/B270 to spot drill/peck drill 1 hole per part then to contour and chamfer the side profile of each part. Its profiles and chamfers correctly but the hole it drills are -.012 to -.015 off center of where the should be located. Checking dynamic position of the holes in the solid the program is going to the correct numbers. I'm just not understanding how it can contour and chamfer in the correct spot but drill in an incorrect location. Thanks in advance for any help.

[Tim Johnson]

I do my rotations through routers but it doesn't have to done this way.

Anyway this is how I do it...

O5011 (8 PART CLUSTERTOWER ROUTER)

(-0-)

WHILE[#[#539+600+[7-1]]EQ1]DO1 (SURFACE 1)

IF[#172EQ5002]GOTO113

IF[#172EQ5003]GOTO112

IF[#172EQ5006]GOTO112

#900=[#539+[7-1]] <<<<<<<<<<<<<

G91 G00 X0 G54 P[#900] <<<<<<<<<<<<<

M11 (PALLET UNLOCK) <<<<<<<<<<<<<

G90 G00 B90. <<<<<<<<<<<<<<<<<<

M10 (PALLET LOCK) <<<<<<<<<<<<<<

G2201 B90. <<<<<<<<<<<<<<<<

G91 G00 X0 G59 <<<<<<<<<<<<<<

M#173 P[#170+1] <<<<<<<<<<<<<<<

GOTO112 <<<<<<<<<<<<<<<<<<<<

END1 <<<<<<<<<<<<<<<<<<

N112 G69 <<<<<<<<<<<<<<<<<

WHILE[#[#539+600+[8-1]]EQ1]DO1 (SURFACE 2)

IF[#172EQ5001]GOTO116

IF[#172EQ5002]GOTO113

IF[#172EQ5005]GOTO113

#900=[#539+[8-1]]

G91 G00 X0 G54 P[#900]

M11 (PALLET UNLOCK)

G90 G00 B90.

M10 (PALLET LOCK)

G2201 B90.

G90 G00 X0 Y0 G59

G68 X0 Y0 R180.

M#173 P[#170+3]

GOTO113

END1

N113 G69

____________________________________________________________________

(Z ROTATION PROGRAM FOR B AXIS)

--------------------------------------

#999=0(AMOUNT OF PALLET ROTATION FOR MACHINING)

G90 G00 B[#999]

M98 P5502

--------------------------------------

(ADD TOP THREE BLOCKS TO TOP OF EACH PROCESS)

(ADD G59 TO THE FIRST XY LOCATION BLOCK) >>>>>>>>>>>>>>>>>>>

M99

 

 

 

(B AXIS COORDINATE ROTATION )

O5502(Z ROTATION PROGRAM FOR TOP SIDE MACHINING)

#100=[6980+[#4130*20]](CURRENT FIXTURE OFFSET NUMBER)

#101=[#100+1](NUMBER FOR CURRENT OFFSET X)

#102=[#100+2](NUMBER FOR CURRENT OFFSET Y)

#103=[#100+3](NUMBER FOR CURRENT OFFSET Z)

#104=[#100+4](NUMBER FOR CURRENT OFFSET B)

#105=[ABS[#921]-ABS[#[#103]]](Z LENGTH FROM PALLET CL)

#106=[#[#101]](X LENGTH FROM PALLET CL)

#107=SQRT[[#105*#105]+[#106*#106]](HYPOTENUSE LENGTH)

#108=ATAN[#106]/[#105](ANGLE FROM PALLET CL TO PART ORIGIN)

 

 

(NOW MAKING NEW G59 COORDINATES)

 

 

#109=[SIN[#108-#999]*[#107]](PART ANGLE + ORIGIN ANGLE X LENGTH)

#110=[COS[#108-#999]*[#107]](PART ANGLE + ORIGIN ANGLE Z LENGTH)

#5321=[#109](X G59 COORDINATE)

#5322=[#[#102]]

#5323=[#921]+[#110](Z G59 COORDINATE)

#5324=[#[#104]]

M99

___________________________________________________

VARIABLE LIST

#170  PROCESS COUNTER/SUBPROGRAM ASSIGNER

#172  ROUTING NUMBER

#173  SUBPROGRAM STYLE (M98=98, M198=198)

#539  FIRST OFFSET NUMBER EACH PALLET

#900  CURRENT WORK OFFSET NUMBER

#921  -37.3631 (ENSHU GE480H No.193)(DISTANCE FROM SPINDLE END TO CENTERLINE OF PALLET Z) (ONE FOR EACH MACHINE)

#999  ROTATION ANGLE

 

G-CODE LIST

        s_xz_coordinate_rotation = "G2201"