API の例: スクリプトの最初の行

次のテンプレートは、VBScript バインディング (開始宣言) で Synergy API を使用するために推奨する記述開始ポイントです。

スクリプトの上部には説明コメントを入れることをお勧めします。Synergy の特定のバージョンを確実に呼び出すには、最初の行を次のように指定する必要があります。 

'%RunPerInstance

次の行とその機能の概要を説明します。 

Option Explicit

Option Explicit 文はプログラミング エラーを低減するのに効果的です。この行がスクリプトに含まれている場合で、その宣言がされる前に変数が使われた場合はエラーが発生します。 

SetLocale("en-us")

SetLocale オプションは、英語以外のシステムに US(アメリカの)システムとして数値を認識させます。この設定が含まれていない場合、数値はそのシステムのネイティブ言語で認識されます。これは、ピリオドの代わりにコンマが使用される国(ドイツなど)では問題になります。 

Dim SynergyGetter, Synergy
On Error Resume Next
Set SynergyGetter = GetObject(CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SAInstance%"))
On Error GoTo 0
If (Not IsEmpty(SynergyGetter)) Then
  Set Synergy = SynergyGetter.GetSASynergy
Else
  Set Synergy = CreateObject("synergy.Synergy")
End If

これらの行は、Synergy (Autodesk Moldflow ユーザー インターフェース)を開始する OLE オートメーション オブジェクトを作成します。Option Explicit 行が使用されていない場合、Synergy 変数を宣言する Dim (変数宣言)行は必要ありません。ただし、常に変数を宣言することをお勧めします。 

Synergy.SetUnits "METRIC"

既定で US 単位系を使用するには、"METRIC" の代わりに "ENGLISH" を使用します。 

'%RunPerInstance
'@
'@ DESCRIPTION
'@ 
'@
'@ SYNTAX
'@ TheFirstLines
'@
'@ PARAMETERS
'@ none 
'@
'@ DEPENDENCIES/LIMITATIONS
'@ none
'@
'@ History
'@ Created DRA 9/8/2006
'@@ 
Option Explicit
SetLocale("en-us")
Dim SynergyGetter
On Error Resume Next
Set SynergyGetter = GetObject(CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SAInstance%"))
On Error GoTo 0
If (Not IsEmpty(SynergyGetter)) Then
Set Syn = SynergyGetter.GetSASynergy
Else
Set Syn = CreateObject("synergy.Synergy")
End If
Synergy.SetUnits "METRIC"
'
' Put remainder of code here.
' 
MsgBox "Script Complete"
Wscript.Quit
親トピック: 例