GetDiagnosisWarning

应用示例

Sub Main

  '显示未实施诊断动作的轴的轴编号
  Dim WarningAxis As Variant
  
  If GetDiagnosisWarning Then '有未实施诊断动作的轴
    WarningAxis = GetDiagnosisState
    If WarningAxis( 0 ) Then '1个轴未实施时
      Msgbox "1个轴未实施。"
    End If
    If WarningAxis( 1 ) Then '2个轴未实施时
      Msgbox "2个轴未实施。"
    End If
    If WarningAxis( 2 ) Then '3个轴未实施时
      Msgbox "3个轴未实施。"
    End If
    If WarningAxis( 3 ) Then '4个轴未实施时
      Msgbox "4个轴未实施。"
    End If
    If WarningAxis( 4 ) Then '5个轴未实施时
      Msgbox "5个轴未实施。"
    End If
    If WarningAxis( 5 ) Then '6个轴未实施时
      Msgbox "6个轴未实施。"
    End If
  End If

End Sub