Mach3 用对刀块定位工件中心的程序，不知道有人发过没

liutao1977 · 发表于 2012-5-3 08:55

FeedCurrent = GetOemDRO(818)  'Get the current settings
Code "F100" 'slow feed rate to 100 MM/MIN
Code "G4 P1" 'Pause 1 second to give time to position probe plate
XCurrent = GetOemDro(800)
X1=Xcurrent-20
X2=Xcurrent+20
Code "G31 X" &X1
While IsMoving()
Wend
X1Current = GetOemDro(800)
Code "G0 X" &Xcurrent
Code "G31 X" &X2
While IsMoving()
Wend
X2Current = GetOemDro(800)
FinalX = (X1Current + X2Current) / 2
Code  "G0 X" &FinalX
YCurrent = GetOemDro(801)
Y1=Ycurrent-20
Y2=Ycurrent+20
Code "G31 Y" &Y1
While IsMoving()
Wend
Y1Current = GetOemDro(801)
Code "G0 Y" &YCurrent
Code "G31 Y" &Y2
While IsMoving()
Wend
Y2Current = GetOemDro(801)
FinalY = (Y1Current + Y2Current) / 2
Code  "G0 Y" &FinalY
Code "F" &FeedCurrent 'restore starting feed rate

liutao1977 · 发表于 2012-5-3 09:05

我是按照网上的 Z 轴对刀的代码猜着写的。还请高手指正。
本人是个数控机床小白，能正确使用的 G 代码只有 g0. :em17:
最近碰到个问题就是要找到一个长方形工件的中心，所以参考Z轴对刀代码写了一个宏。
使用方法是运行该宏代码，刀具按开始移动后分别把对刀块靠在工件的四周就行了。使用方法和Z轴对刀一样，只不过刀具是X和Y轴方向移动。

X1=Xcurrent-20
X2=Xcurrent+20
Y1=Ycurrent-20
Y2=Ycurrent+20

根据你工件的大小把上面四句的 20 改成你工件的大小就行了，单位是毫米。

四边都和对刀块接触后，道具自动回到工件中心。

zihe98 · 发表于 2012-8-9 22:07

哦现在才看到，支持新人哦，鼓励发好贴哦，，，，谢谢

夜行侠 · 发表于 2012-8-9 22:30

顶了再学习:em26:

zdall911 · 发表于 2012-8-12 00:17

没看明白，支持下。有没有试机呀？？

WPJ · 发表于 2012-8-21 18:12

用寻边器吗

szcjl · 发表于 2012-8-21 18:18

关注一下:em21:

yangaa · 发表于 2012-8-22 15:41

留个位

半桶水 · 发表于 2012-8-22 16:05

一直觉得这动作很危险，实用性不大，所以也一直没研究，也就一直没搞懂是怎么回事:em21:

蓝月亮 · 发表于 2012-8-22 17:23

顶了再学习

万戈 · 发表于 2013-4-24 15:21

关注关注关注一下……

爱美力 · 发表于 2013-5-8 20:43

程序不懂哦，看似设定了一些条件，然后谁等于谁的

xalf · 发表于 2013-5-8 20:51

先收着，慢慢研究

jiangjiachen · 发表于 2013-5-8 20:58

这个留名研究，一直没搞明白，工件该怎么寻边，高手们指导一下

晓月清风 · 发表于 2013-5-8 21:02

全不懂看热闹的来过啦

MACH3无线手轮 · 发表于 2013-5-9 09:23

还不如用我头像上的手轮上的清零及分中功能,直接一按就行,整复杂了

horde · 发表于 2013-5-9 09:43

俺用过！前些日子用6061做了个主轴抱箍，做好后发现抱箍直径小了点，于是用了Mach3的这个定中心功能。目的为了把抱箍的空稍微扩大一点。很好用！

宏福电子 · 发表于 2013-5-9 15:08

看热闹的来过啦

Mach3 用对刀块定位工件中心的程序，不知道有人发过没

主题

浏览过的版块

【站内推荐】 /2