'(M1055) Center Of Circle With Diamter


setvar(2000,0)
setvar(2001,0)
setvar(1,0)
setvar(2,0)
setvar(3,0)
setvar(4,0)
setvar(5,0)
setvar(6,0)
setvar(7,0)
setvar(8,0)
Setvar(9,0)
tmc=getoemdro(221)
setvar(9,(tmc/2))
Code "G91" 
Code "G31X-10 F5"
While Ismoving()
'sleep(10)
Wend
Code"G1x.020"
Code"#1=#2000"
Code"G31x20 f5"
While Ismoving()
'Sleep(10)
Wend
Code"#2 =#2000"
Code"#3=[#1-#2]"
code"#7=[#3/2]"
Code"G1x[#7+#9]"
Code"G31Y10 f5"
While Ismoving()
'Sleep(10)
Wend
Code"#4=#2001"
Code"G1y-.020"
Code"G31y-20 f5"
While ISmoving()
'Sleep(10)
Wend
Code"#5 =#2001"
Code"#6 =[#4-#5]"
code"#8 =[#6/2]"
Code"G1y[#8-#9]"
While Ismoving()
'Sleep(10)
Wend
Code"G90 M30"
HD= Getvar(6)
 
MsgBox ("Hole Diameter is " & HD)