In linuxcnc rufe ich das Programm center-hole-mm.ngc auf.
Die Routine fährt die Bohrung in x und y an findet die Mitte .
Dann noch einmal im verlangsamten modus x y an ,bleibt dann beim 2.
manchmal beim 3, mal stehen.
%
G21 F200
#1000=30 ;max radius
G91 G38.3 Z[-1]
#1001=#5061
#1002=#5062
f300
G91 G38.2 X#1000
#1003=#5061
G90 G0 X#1001
G91 G38.2 X[0-#1000]
#1004=#5061
#1001=[[#1003+#1004]/2]
G90 G0 X#1001
G91 G38.2 Y#1000
#1005=#5062
G90 G0 Y#1002
G91 G38.2 Y[0-#1000]
#1006=#5062
#1002=[[#1005+#1006]/2]
G90 G0 Y#1002
G91 G38.2 X#1000
#1003=#5061
G90 G0 X#1001
G91 G38.2 X[0-#1000]
#1004=#5061
#1001=[[#1003+#1004]/2]
G90 G0 X#1001
G91 G38.2 Y#1000
#1005=#5062
G90 G0 Y#1002
G91 G38.2 Y[0-#1000]
#1006=#5062
#1002=[[#1005+#1006]/2]
G90 G0 Y#1002
F10
G90 G0 X[#1003-0.125]
G91 G38.2 X0.4
#1003=#5061
G90 G0 X[#1004+0.125]
G91 G38.2 X-0.4
#1004=#5061
#1001=[[#1003+#1004]/2]
G90 G0 X#1001
G90 G0 Y[#1005-0.125]
G91 G38.2 Y0.4
#1005=#5062
G90 G0 Y[#1006+0.125]
G91 G38.2 Y-0.4
#1006=#5062
#1002=[[#1005+#1006]/2]
G90 G0 Y#1002
#1007=[#1003-#1004+[5]]
#1008=[#1005-#1006+[5]]
#1009=[[#1007+#1008]/2]
#1010=[atan[#1002]/[#1001]]
#1011=[sqrt
#1001*#1001]+[#1002*#1002]
(debug,Xdia #1007 Ydia #1008 Dia #1009 Ang #1010 Dist #1011)
%
