2161
VB and the development of wizards / Re: Macro does stop
« on: October 30, 2017, 02:55:21 PM »
Hi,
why should your Probepos be equal -ZMove when the probe was never hit ??
--> Probepos = GetVar(2002)
--> If Probepos = - ZMove Then
something like this should work:
While IsMoving()
z = GetOEMDRO(802) 'Z-actpos
If z <= - ZMove _In Then
DoOEMButton(1003) 'Stop
MsgBox ("Probe **ERROR**" )
End If
Wend
Thomas
why should your Probepos be equal -ZMove when the probe was never hit ??
--> Probepos = GetVar(2002)
--> If Probepos = - ZMove Then
something like this should work:
While IsMoving()
z = GetOEMDRO(802) 'Z-actpos
If z <= - ZMove _In Then
DoOEMButton(1003) 'Stop
MsgBox ("Probe **ERROR**" )
End If
Wend
Thomas