有谁懂MACH3的宏编程吗？

shaofei35623

好像是basic的语法，谁有这方面的资料呢？

shaofei35623

REM Context 10003

Dim MyToolPos

code "G90G80"  //绝对

code "G59"//坐标系

Call setoemdro(45,0)

Call SetoemDRO( 42, 0 )//清零

code "G1Z0 F2000" //回到原点

Call setoemdro(3,0)

Call setoemdro(45,10)

x = GetUserDRO( 1200 )//获取X轴换刀位置

y = GetUserDRO( 1201 )// 获取Y轴换刀位置

z = GetUserDRO( 1202 )// 获取Z轴换刀位置

code "G1X" & x & "Y" & y  & "Z" & z //移动到对刀位置

Code "G31Z-100 F300" //第一次对刀

While IsMoving()

Wend

DoOEMButton(146)

MyToolPos=GetoemDRO( 42 ) //保存第一次数据

Call SetoemDRO( 42, 0 )//清零

code"G91"

code "G01 Z5 f500" //退会5MM

Code "G31Z-100 F50" //第二次对刀

While IsMoving()

Wend

DoOEMButton(146)

MyToolPos=(MyToolPos+GetoemDRO( 42 ))/2  //取中间值

Call SetoemDRO( 42, MyToolPos ) //设置刀补

code "G28 Z0 " //回到机械原点

code "G90" //结束

Johnnyboy

这个就是微软的Visual Basic一样的。找一本VB的书就行了。

scottmaxwell

vbsctipt   mach3 对它进行了扩展
学下vbsctipt    再了解下 mach3扩展的函数

[ 本帖最后由 scottmaxwell 于 2010-10-23 11:06 编辑 ]

shaofei35623

vb是会的，关键是mach3扩展的函数的说明那里有？

cooooldog

Mach3 官方网站，有Mach3 VB 程序员开发手册，里面有Mach3所有的代码说明。

英文的，看起来很麻烦。