Ich habe jetzt mal den Code von Hand durchgesteppt. Soweit ich das überblicken kann läuft er von Hand.
Was nicht paßt, ist das der 2. Meßpunkt nur ca. 1 - 2 mm neben dem ersten Meßpunkt liegt.
Mir ist immer noch nicht klar woher einige der Variablen kommen:
- 2000
- 2001
und deren Bedeutung im Code, hier z.B:
'Softlimits ggf. wieder einschalten
If ((Not GetOEMLed(23)) And (SoftLimitswhereon = True)) Then 'lt. Handbuch ist OEMLED (23) = SpindleSpeed true Acc. ?
Sleep(500)
DoOEMButton(119) ' SoftLimits Off/On toggle
End If
und hier:
'Bewegung abwarten
Sub WaitForMove (Check as Boolean)
While IsMoving()
'prüfen ob wir gegen das Bauteil fahren
If ((GetOEMLed(825) = True) and (Check = True)) Then '825 = Digitize Input
MSGBox "Probe während Positionierfahrt aktiv",vbOK + vbCritical ,"Fehler !"
DoButton(21)
End
End If
Sleep(5)
Wend
End Sub
Gruß