HandBusyState

应用示例

'!TITLE "获取执行状态"
' 获取电动夹治具的执行状态，显示在讯息输出视窗中
Sub Sample_HandBusyState
 
  Dim aaa As Integer
  Dim bbb As Integer

  ' 在aaa中代入当前电动夹治具的执行状态
  aaa = HandBusyState

  HandMoveH 20, True, Next

  ' 在bbb中代入当前电动夹治具的执行状态
   bbb = HandBusyState
 
  ' 等待直至电动夹治具0动作结束
  Wait HandBusyState = 0

  ' 在讯息输出视窗中显示表示未进行动作的值“0”
  PrintDbg aaa

  ' 在讯息输出视窗中显示表示动作进行中的值“-1”
  PrintDbg bbb

End Sub