FANUC MACRO CIRCLE MILL

%
O225
(MACRO CIRCLE MILL FINISH)
(PROG DONE BY SRIRAM ON 03-05-08)

(>>> G54 WPC -> XY CEN & Z ON DRILL FACE SEE DWG ...)

N1(BORE DIA 3.0 - USE Ø1"EM)
M98P7000
G54X2.0Y2.0S300M3
G43H1Z6.0
G1Z2.0F100.0M8
Z0F10.0
G65P1702 B[3.0/2] C[1.0/2] D0.01 F20.0
G0G90G80Z6.0M9
M98P7100
M30

O1702
#2=#2-#7
IF[#3GT#2]GOTO600
#24=#5041
#25=#5042
G1X#24Y#25
G1X[#24+[[#2-#3]/2]+[[[#2-#3]/2]]*SIN[45.]]Y[#25-[[[#2-#3]/2]]*SIN[45.]]F#9
G3X[#24+#2-#3] Y[#25] R[[#2-#3]/2]
G3I-[#2-#3]
G3X[#24+[[#2-#3]/2]+[[[#2-#3]/2]]*SIN[45.]]Y[#25+[[[#2-#3]/2]]*SIN[45.]]R[[#2-#3]/2]
G1X#24Y#25
GOTO500
N600#3000=1(ERROR CUTTER RADIUS IS TOO BIG)
N500M99
%
(B = BORE RADIUS)
(C = CUTTER RADIUS)
(D = ALLOWANCE /SIDE)
(F = FEEDRATE)