%
O9010(XY BORE WORK SHIFT MACRO)
IF[[#19EQ#0] OR [#19LT1] OR [#19GT6]]GOTO30
IF[#25EQ#0]GOTO10
(SET Y STARTS HERE)
M19 S0 (M19 positioning for eliminating throw on probe)
#3006=1 (MANUAL MODE TOUCH Y PLUS)
(TOUCH 1ST POINT IN Y AXIS)
#1=#5022
G00 G91 G95 Y-10 F50 (Press cycle stop at prefered location)
M19 S180
#3006=1 (MANUAL MODE TOUCH Y MINUS)
M00
(TOUCH 2ND POINT IN Y AXIS)
#2=#5022
#3=[#1+#2]/2
#[5202+[20*[#19]]]=#3
G54 G90 Y0
X1.75 (X= Bore radius minus probe radius and clearance)
N10 (SET X STARTS HERE)
M19 S90
IF[#24EQ#0]GOTO20
M00
#3006=1 (MANUAL MODE TOUCH X PLUS)
#1=#5021
X-1.75 (Bore radius minus probe radius and clearence)
M19 S270
#3006=1 (MANUAL MODE TOUCH X MINUS)
M00
(TOUCH 2ND POINT IN X AXIS)
#2=#5021
#3=[#1+#2]/2
#[5201+[20*[#19]]]=#3
GOTO20
N30
#3006=1 (WORK SHIFT NUMBER ERROR)
X0 Y0
N20
G90 G53
M99
%