HOME
ID : 7284
GetDiagnosisState
功能
获取诊断动作的实施状况（所有轴）。
该指令对Ver.2.6.*以上的版本有效。
格式
GetDiagnosisState
返回值
通过变体型数据(8要素)返回诊断动作的实施状况(所有轴)。
各要素的值如下：
| 值 | 内容 |
|---|---|
| 0 | 已实施 |
| 1 | 未实施 |
关于要素编号和轴的关系，要素编号“0 ”属于1轴，按顺序要素编号“1”属于2轴，要素编号“2”属于3轴。最后，要素编号“7”属于8轴，但7轴、8轴用于将来扩展，当前存储为“0”。
解说
通过变体型数据(8要素)返回诊断动作的实施状况(所有轴)。
注意事项
-
应用示例
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 SubID : 7284