|
安装对刀仪
设置MACH3 probe 对刀仪信号脚
在mach3的setting Alt6-> tool chang location 设置你的对刀仪的位置 这里的坐标系是你机床的机械坐标系,就是说你的机床要有原点开关,机床开机各轴需要回机床原点。
以上设置好后就可以运行下面的宏代码, 换好刀后运行宏代码,就会自动回到对刀位置进行对刀,此宏代码将进行2次对刀,取平均值。
以下是对刀的宏代码
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" '结束 |
|