попробуйте этот
'VB Code Start
'-------------------
CurrentFeed = GetOemDRO(818)
DoSpinStop()
ZMove = 20.00 'Total lenght of Probe to move before Stop or no Contact Made.
ZOffset = 19.00 ' Plate Hight
ZSal = ZOffset + 2.00 '+ Free Hight, Will position the Proble 2 MM over the Materia
StopZmove = 0
If GetOemLed (825)=0 Then
DoOEMButton (1010)
Code "G4 P2.5"
Code "G31 Z-"& ZMove & "F45"
While IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2002)
If Probepos = - ZMove Then
responce = MsgBox ("**ERROR** " , 4 , "Probe **ERROR**" )
Code "G0 Z10"
StopZmove = 1
Code "F" &CurrentFeed
End If
If StopZmove = 0 Then
Code "G0 Z" & Probepos
While IsMoving ()
Sleep (200)
Wend
Call SetDro (2, ZOffset)
Code "G4 P1"
Code "G0 Z" & ZSal
Code "(Z zeroed)"
Code "F" &CurrentFeed
End If
Else
Code "(Check Ground Probe)"
End If
Exit Sub
'-------------------
'VB Code Stop
Спасибо. Станок стал искать ноль, но возникла проблемма: все по порядку
подключился крокодил к фрезе (вместо фрезы медный провод чтоб не сломать) второй к датчику нажимаю кнопку автопоиск ноля Фреза идёт вниз касается и поднимается к верху на экране высвечивается 21,65 мм
( 19,65+2) где 19,65 мм толщина датчика 2мм это растояние подъёма от точки контакта с пластиной.
И тут начинаются чудеса фреза поднимается не на 2мм, а всегда по разному (2,68- 10,28- 6,56 - 4,04 - 7,01 и т.д.) и на экране в сроке z значения тоже меняются, но если нажать кнопку goto z фреза опускается на 21,65 мм. Подскажите пожалуйста где искать причину неполадки.