Tracker Training Script Key 3
Sub OnMouseUp(x As Long, y As Long, flags As Long) Dim region As New prtregion region.id = "ROBOT_CONV" Region.GetItemList If region.item(0).itemtypeid = "00" Then
J = 1
Else
J = 0
End If If region.item(j).attr(1).value = "RED" Or region.item(j).attr(1).value = "GREEN" Then
PointSet "X_MACHINE0",1
Else
PointSet "X_MACHINE1",1
End If End Sub