Custom macro!!!!
Can some one look at this and see if it should work.
Its in incremental because before the call the main program will center the tool to the hole. This is to bore all size holes 2 and above. I could be way off but it looks like it will work. The machine is running production so I can't test.
%9003 (BORE PROGRAM)
(PROGRAMED BY CMR)
(CALL G65 P9003 T13 D4.25 Z-1.88 A.3 F140.
#127=#7 (HOLE DIAMETER)
#132=#26 (Z DEPTH)
#131=#1 (Z INCREMENT)
#135=#9 {FEEDRATE)
IF [#127 EQ #0] GOTO 98(HOLE DIAM MISSING GENERATE ALARM)
IF [#131 EQ #0] GOTO 98 (Z DEPTH INCREMENT MISSING GENERATE ALARM)
IF [#132 EQ #0] GOTO 98 (DEPTH MISSING)
IF [#135 EQ #0] GOTO 98 (FEED RATE MISSING)
IF [#20 EQ #0) GOTO 98 (TOOL MISSING)
#133=FUP[#132/#131]
#134=#132/#133 (NEW Z INCREMENT)
#129=#127/2 {SETS RADIUS)
IF [#129 LT 1.5] GOTO 97 (BORE TO SMALL GENERATE ALARM)
G91
G0 Y[#129-1.]
G01 G42 D#20 X-1. F#135
G02 X1. Y1. R1.
#130=1
N1 IF [#130 GT #133] GOTO 10
Y-#127 R#129
Y#127 R#129
Z#134
#130=#130+1
GOTO 1
N10 X1.Y1. R1.
G28Z0
G28YO
G90
M99
N97 #3000=200(BORE TO SMALL)
N98 #3000=201(DATA MISSING IN CALL)
%
Edit: left out a line.
No matter how good you are, there is always someone better!!!