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
|
|
