MACH3 VB对刀代码，对刀块厚度GetOEMDRO(1001) 保存在哪里？

armok.

以下是我们目前使用的对刀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)