1771
General Mach Discussion / Re: Probing - what would i need?
« on: April 11, 2018, 11:22:58 AM »
and yes probing drives cracy if softlimits are enabled,
so i midified your probing function a Little bit:
ok now i will allso modify my probing libary
Thomas
so i midified your probing function a Little bit:
Code: [Select]
Sub ProbeSurface()
'*** turn soflimit's off if they are on
Dim SoftLimitswhereon As Boolean
If GetOEMLed(23) Then
DoOEMButton(119)
SoftLimitswhereon = True
End If
Sleep(250) '***Needed or UserDRO's fail to update
NotifyPlugins(10103)
SetUserDRO(1510, 0)
While(GetUserDRO(1510) = 0)
Sleep(50)
NotifyPlugins(10104)
Wend
If(GetUserDRO(1510) = 2) Then '***Probing error - no detection in distance = abort
Message "Probing Error - No Surface Found"
End If
'*** turn soflimit's back on if they where on
Sleep(500)
If ((Not GetOEMLed(23)) And (SoftLimitswhereon = True)) Then
DoOEMButton(119)
End If
End Sub
ok now i will allso modify my probing libary
Thomas