大家有兴趣一起来制作一个自动寻边和寻中心器吗？

jerrylong

CIEZ167 发表于 2017-5-17 10:38
刚试了VB代码我的软件好象运行不了，154子过程或函数不定义：反正切
& O. B& Q3 J# e4 Z! c/ U
但测试加G68A..B..R..,G69旋转指令 ...

  O$ ^. I  {9 L不好意思我弄错了，反正切函数应该是这个，你修改一下试试

. J' y+ H; O8 v5 C

lnhf6644

楼主佩服你了！！

superwpc

终于爬完楼了，楼主好棒的，支持大家都来研究这个。
/ ~# d7 w* m/ @/ M0 Y# y" [1 T

jerrylong

再次完善“旋转局部坐标系”VB代码
& o) d/ J( c: X% DAtn()函数返回的是弧度值，而运用G68指令需要的是角度，所以需要将Atn（）函数的返回值进行运算，换算成角度

+ O# j! ]0 K$ u2 x' p
更新后的代码，我在Mach3试过，可以运行了
' Q. F& r& G0 H# c2 N 旋转局部坐标系.rar (1.58 KB, 下载次数: 35)

2017-5-19 18:29 上传

点击文件名下载附件

jerrylong

hzssw 发表于 2017-5-16 22:27
比如说 XYZ回到机械原点坐标了（机械坐标已经设置成 XYZ都是0坐标），而我设置刀路的时候也把工件原点设 ...

! \' B6 X0 q4 A4 k. G8 v) j1，刀具回到机械原点，那么此时的刀具机器坐标就应该是0，0，0
; n+ B$ Z6 K  Q8 @; j通过这段代码获得刀具的当前坐标
9 p2 Q' E" |! T      X_Initial=GetOEMDRO(800)
6 F8 x1 u9 `' `9 q       Y_Initial=GetOEMDRO(801)
$ n, R0 E: o8 n  f6 c, ?       Z_Initial=GetOEMDRO(802)
% u3 a$ W( d! L+ R* P
: C. [" u# _# g  k% Q5 Z
然后通过这段代码将当前坐标设置为“加工原点”坐标，也就是你所说的工件原点坐标
- u/ G" b. C( w  a0 i& h      SetOEMDRO(800,X_Initial)
# W, ?$ b9 _1 A; ^      SetOEMDRO(801,Y_Initial)
      SetOEMDRO(802,Z_Initial)
: I7 I& A- E, i- L2 f

' {5 h; ]0 x! v1 x4 g' V- ^+ `这样就可以了。
" {7 z! ^+ e& ?$ X0 M: h4 X3 V


* z$ \3 \+ b+ l. Z' j

hzssw

jerrylong 发表于 2017-5-19 18:46
+ V9 H' G: [+ p4 j" o* i1，刀具回到机械原点，那么此时的刀具机器坐标就应该是0，0，0
5 S- k* U! w. b9 W  _! C通过这段代码获得刀具的当前坐标
       ...

谢谢 明白了 我测试一下代码

CIEZ167

先下，有空再试。。。。。。。。。。。。。。。。。

jerrylong

CIEZ167 发表于 2017-5-17 10:38
刚试了VB代码我的软件好象运行不了，154子过程或函数不定义：反正切
) v( U1 H/ T6 C. w0 b' o# \
! `" S. W2 ^% R( t但测试加G68A..B..R..,G69旋转指令 ...

重新修改了代码，你再试试看，是什么结果贴一下图片我看看

jerrylong

hzssw 发表于 2017-5-19 19:59
谢谢 明白了 我测试一下代码

2 K# F# }( c1 V0 c. V' I不客气，测试一下什么结果回复我一下，谢谢

CIEZ167

公式计算结果好象都不同那个最正确呢？当然已够用的了，没事对比下，见谅
# Y! N/ }8 A1 y. E+ g# \( L9 D

PRRANK

很好这样方便多了同时也提高了加工精度

only5784

这个才是真技术，膜拜一下

倦乐叟

非常感谢，

倦乐叟

赞一个，大师级的人物

倦乐叟

大师啊，对于我来说，
按钮脚本用的多，怎么办，
能不能把寻边的按钮脚本弄一下。
! X" r; E) \% j4 z+ P或者指点一下，截取VB脚本的那一部分？
8 T5 H' Y; m/ I谢谢！