谁有三点圆分中宏程序啊，能分享一个吗？

lqlkmqj2

谁有三点圆分中宏程序啊，能分享一个吗？
在圆弧上任意三点将圆心分出来，谢谢！

4311816j

大哥最好买个探头，弄套系统程式，只用给参数立马给你算出来圆心。用矢量标定

lmjams

理论上是准的，实际有误差       %
O9100
#1=-10(X1:第一个点的X坐标)
#2=0 (X2)
#3=10 (X3)
#4=0 (Y1：第一个点的Y坐标）
#5=10 (Y2)
#6=0(Y3)
#750=2*[#2-#1]
#751=2*[#5-#4]
#752=#2*#2+#5*#5-#1*#1-#4*#4
#753=2*[#3-#2]
#754=2*[#6-#5]
#755=#3*#3+#6*#6-#2*#2-#5*#5
#800=[#751*#755-#754*#752]/[#751*#753-#754*#750](圆心X坐标）
#801=[#753*#752-#750*#755]/[#751*#753-#754*#750] (圆心Y坐标）
G57G90G0X#800Y#801
M30
%

lmjams

如果想再智能点就加个每个点自动记录机床坐标的系统变量，最后再来个改机床坐标系的系统变量，自动把坐标系改好了。%（法拉克系统能用）
O9100
G54G90S400M3（装上寻边器启动程序）
M00（手动摇来碰到圆弧后启动程序第一个点，不重合的任意三点。）
#501=#5021
#504=#5022
M00（手动摇来碰到圆弧后启动程序第二个点，不重合的任意三点。）
#502=#5021
#505=#5022
M00（手动摇来碰到圆弧后启动程序第三个点，不重合的任意三点。）
#503=#5021
#506=#5022
#750=2*[#502-#501]
#751=2*[#505-#504]
#752=#502*#502+#505*#505-#501*#501-#504*#504
#753=2*[#503-#502]
#754=2*[#506-#505]
#755=#503*#503+#506*#506-#502*#502-#505*#505
#800=[#751*#755-#754*#752]/[#751*#753-#754*#750]
#801=[#753*#752-#750*#755]/[#751*#753-#754*#750]
#802=SQRT[[#800-#501]*[#800-#501]+[#801-#504]*[#801-#504]]
G91G0Z100
G54G90G0X#800Y#801
#5221=#5021
#5222=#5022（自动改好坐标系G54）
G91G0Z[ABS[#802]]（当前位置Z轴显示-100就是圆弧半径，当然了看你寻的是外圆还是内孔再加上寻边器直径）
M5
M00
M30

ZWTLLC-I

菜鸟路过学习学习

l铁匠l

我老早就发过这个了，移步：http://www.ugsnx.com/forum.php?mod=viewthread&tid=176721

lqlkmqj2

%
G54G90S400M3
M01
#501=#5021
#504=#5022
M01
#502=#5021
#505=#5022
M01
#503=#5021
#506=#5022
#750=2*[#502-#501]
#751=2*[#505-#504]
#752=#502*#502+#505*#505-#501*#501-#504*#504
#753=2*[#503-#502]
#754=2*[#506-#505]
#755=#503*#503+#506*#506-#502*#502-#505*#505
#800=[#751*#755-#754*#752]/[#751*#753-#754*#750]
#801=[#753*#752-#750*#755]/[#751*#753-#754*#750]
#802=SQRT[[#800-#501]*[#800-#501]+[#801-#504]*[#801-#504]]
G91G0Z100
#5221=#800
#5222=#801
M5
M30
%
在机床上运行的程序如上，分中位置为G54