寻边器任意三点找圆心宏程序

l铁匠l

1. 
   
2. O9007
   
3. #111=#5021
   
4. #112=#5022
   
5. M99
   
6. O9008
   
7. #121=#5021
   
8. #122=#5022
   
9. M99
   
10. O9009
    
11. #131=#5021
    
12. #132=#5022
    
13. #1=#111*[#122-#132]+#121*[#132-#112]+#131*[#112-#122]
    
14. IF[#1 EQ 0] THEN #3000=1(Error/3 In a staright line)
    
15. #2=[#111*#111+#112*#112-#121*#121-#122*#122]/2
    
16. #3=[#111*#111+#112*#112-#131*#131-#132*#132]/2
    
17. #4=#2*[#112-#132]-#3*[#112-#122]
    
18. #5=#3*[#111-#121]-#2*[#111-#131]
    
19. (半径-#30=SQRT[[#4/#1-#111]*[#4/#1-#111]+[#5/#1-#112]*[#5/#1-#112]])
    
20. #5221=#4/#1
    
21. #5222=#5/#1
    
22. #111=#0
    
23. #112=#0
    
24. #121=#0
    
25. #122=#0
    
26. #131=#0
    
27. #132=#0
    
28. M99
    

复制代码

fanuc可以打开参数6077-6079输入机床没有的m代码，之后就能够在mdi页面用m功能调用了。例如我设置的是6077=77，6078=78，6079=79，所以第一点运行M77，第二点运行M78，最后M79。这样就能把圆心坐标输入到G54里面了！

l铁匠l

mastercam.lele 发表于 2018-4-3 12:01
还有只能g54吗？大神出个可以g54-g59的

可以做任何坐标！包括G54.1坐标，把它做成计算当前运行的加工坐标就行了。把程序作成读取当前的工件坐标就行了！

IF[#4014EQ54.1]GOTO10
#[5221+[#4014-54]*20]=#4/#1
#[5221+[#4014-54]*20]=#5/#1
GOTO99
N10
#[7001+[#4130-1]*20]=#4/#1
#[7002+[#4130-1]*20]=#5/#1
N99

l铁匠l

分中宏程序
http://www.ugsnx.com/forum.php?mod=viewthread&tid=297801
深孔加工宏程序
http://www.ugsnx.com/forum.php?mod=viewthread&tid=298901

l铁匠l

郏向阳 发表于 2022-7-9 06:16
不需要指定圆的半径吧

不须要。

郏向阳

不需要指定圆的半径吧

l铁匠l

lqlkmqj2 发表于 2022-6-9 11:42
现在搞明白了，非常感谢！

这只是一个简单的数学问题，但是哪个变量造成溢出只能你自己发现了。

lqlkmqj2

l铁匠l 发表于 2022-6-9 10:09
前面我写的是这样的 #100=[FIX[#100*1000]]/1000 结果是保留3位小数呢。

现在搞明白了，非常感谢！

l铁匠l

lqlkmqj2 发表于 2022-6-8 16:25
这样就会降低对刀精度，FIX是去除小数点后面的数，能不能保留小数点后面3位或4位数，这样对刀精度才有保 ...

前面我写的是这样的 #100=[FIX[#100*1000]]/1000 结果是保留3位小数呢。

l铁匠l

lqlkmqj2 发表于 2022-6-8 16:25
这样就会降低对刀精度，FIX是去除小数点后面的数，能不能保留小数点后面3位或4位数，这样对刀精度才有保 ...

不会啊，你没发现我是乘以1000或者10000再去掉小数的么？就比如我的机床是3位小数的，那我乘以1000后再去掉后面的小数再除以1000那不是保留了3位小数么？

lqlkmqj2

l铁匠l 发表于 2022-6-7 09:14
是去余，打错字了，不好意思。如果是4位小数的机床就是*10000再/10000，计算结果小数点后面位太多的情况 ...

这样就会降低对刀精度，FIX是去除小数点后面的数，能不能保留小数点后面3位或4位数，这样对刀精度才有保障。请指教，谢谢！！

l铁匠l

l铁匠l 发表于 2022-6-7 08:23
如果出现这种情况，可以用取余法消除多余的小数，如#100=[FIX[#100*1000]]/1000。

是去余，打错字了，不好意思。如果是4位小数的机床就是*10000再/10000，计算结果小数点后面位太多的情况下都可以这样做。

l铁匠l

lqlkmqj2 发表于 2022-6-6 14:49
我使用你这个宏程序分小工件能正常运行，可是当直径大于400以上，到第三点分中时会 出现“PS0003 数位太多 ...

如果出现这种情况，可以用取余法消除多余的小数，如#100=[FIX[#100*1000]]/1000。