MACH3 VB对刀代码，对刀块厚度GetOEMDRO(1001) 保存在哪里？
以下是我们目前使用的对刀VB代码，可以工作。但有些不爽。实测出对好刀后， MACH3会自动设置工件Z坐标为+15mm， 实测到Z主轴电机上移10mm， 也就是说，下面的对刀代码，认为对刀块的厚度是5mm。
但我们的对刀块实测是19.2mm .
下面的代码，可以找到10mm的抬刀量，而且我修改过也的确起作用。 但对刀块厚度5mm 我没有找到修改的地方。
我估计是这一句： GageH = GetOEMDRO(1001) 'OEMDRO(1001)=Gage Block Height 。
我 将GageH = GetOEMDRO(1001) 直接修改为：GageH = 19.2 ,实测完全正常。
谁知道 GetOEMDRO(1001) 保存在MACH3哪里？ 如何找到这个设置并且修改？
这样我就不需要修改VB代码了。
' probe z surface macro
FeedCurrent = GetOemDRO(818) 'Get the current settings, OEM DROs (818)=Feedrate DRO
ZCurrent = GetOemDro(802) 'OEM DROs (802)=Z DRO
GageH = GetOEMDRO(1001) 'OEMDRO(1001)=Gage Block Height
ZNew = ZCurrent - 300 'probe down 20 mm
Code "G90F200" 'slow feed rate to 100 MM/MIN
SetOemDRO(818,200)
Rem Code "G4 P1" 'Pause 1 second to give time to position probe plate
Code "G31 Z" &ZNew
While IsMoving()
Sleep(10)
Wend
Call SetDro (2,GageH) 'DRO(2)=Z DRO
FinalMove = GageH + 10
Code"G0 Z" &FinalMove
Code "F" &FeedCurrent 'restore starting feed rate
SetOemDRO(818,FeedCurrent)
页:
[1]