ID : 7286

GetDiagnosisWarning

Function

This command obtains whether an axis with the diagnosis motion status set to "Non-enforce" exists or not.

This is available in Ver. 2.6.* or later.

Syntax

GetDiagnosisWarning

Return value

Return whether an axis with the diagnosis motion status set to "Non-enforce" ("Non-enforce" axis) exists or not with Integer type data.

Value	Description
0	"Non-enforce" axis not found
1	"Non-enforce" axis found

Description

Obtain whether a "Non-enforce" axis exists or not.

Attention

Example

Sub Main

  'Display the axis number of an axis with the diagnosis motion set to Non-enforce
  Dim WarningAxis As Variant
  
  'An axis with the diagnosis motion set to Non-enforce is found
  If GetDiagnosisWarning Then
    WarningAxis = GetDiagnosisState

    'When the status of the 1st axis is Non-enforce
    If WarningAxis( 0 ) Then
      Msgbox "1st axis is Non-enforce."
    End If

    'When the status of the 2nd axis is Non-enforce
    If WarningAxis( 1 ) Then
      Msgbox "2nd axis is Non-enforce."
    End If

    'When the status of the 3rd axis is Non-enforce
    If WarningAxis( 2 ) Then
      Msgbox "3rd axis is Non-enforce."
    End If

    'When the status of the 4th axis is Non-enforce
    If WarningAxis( 3 ) Then
      Msgbox "4th axis is Non-enforce."
    End If

    'When the status of the 5th axis is Non-enforce
    If WarningAxis( 4 ) Then
      Msgbox "5th axis is Non-enforce."
    End If

    'When the status of the 6th axis is Non-enforce
    If WarningAxis( 5 ) Then
      Msgbox "6th axis is Non-enforce."
    End If

  End If

End Sub