API の例: 範囲内の肉厚の表示

VBScript の InputBox() 関数などのユーザーと交信する標準関数を使用できます。次の例では、ユーザーが指定した 2 つの数値の間の肉厚で肉厚診断を表示します。

このスクリプトは、コマンドまたはマクロとして実行できます。スクリプトの実行時にパラメータがコマンド ラインで入力されなかった場合は、パラメータを入力するように促されます。次の太字部分では、2 つのコマンド ライン引数値を確認した後で、ユーザーに入力するように促します。

'@
'@ DESCRIPTION
'@ 
'@
'@ SYNTAX
'@ ShowThicknessInRange [Min] [Max]
'@
'@ PARAMETERS
'@ Min   Minimum Thickness value
'@ Max   Maximum Thickness value
'@
'@ DEPENDENCIES/LIMITATIONS
'@ none
'@
'@ History
'@ Created DRA 9/8/2006
'@@ 
Option Explicit
SetLocale("en-us")
Dim Synergy
Set Synergy = CreateObject("synergy.Synergy")
Synergy.SetUnits "METRIC"

Dim DiagnosisManager
Dim MinimumThickness, MaximumThickness
Dim Args

Set Args = Wscript.Arguments
If Args.Count <> 2 Then
        MinimumThickness = InputBox("Enter Minimum Thickness")
        MaximumThickness = InputBox("Enter Maximum Thickness")
Else
        MinimumThickness = Args(0)
        MaximumThickness = Args(1)
End If

Set DiagnosisManager = Synergy.DiagnosisManager()
DiagnosisManager.ShowThickness MinimumThickness, MaximumThickness, False

MsgBox "Script Complete"
WScript.Quit