API 예제: 스크립트의 첫 번째 줄

다음 템플릿은 VBScript 바인딩이 포함된 시너지 API를 사용하기 위한 시작점으로 좋습니다.

스크립트 맨 위에 설명 주석을 넣어놓는 것이 좋습니다. 특정 버전의 시너지를 호출하려면 첫 번째 줄이 다음과 같아야 합니다.

'%RunPerInstance

다음과 같은 줄과 그 기능이 아래에 요약되어 있습니다.

Option Explicit

Option Explicit 표현식은 프로그래밍 오류를 줄이는 데 유용합니다. 이 줄이 스크립트에 포함되어 있으면 이 표현식을 선언하기 전에 사용된 변수가 오류를 유발합니다.

SetLocale("en-us")

SetLocale 옵션은 비영어 시스템이 미국에 존재하는 것처럼 숫자 값을 해석하도록 강제합니다. 이 설정이 포함되지 않으면 숫자 값이 시스템의 기본 언어로 해석됩니다. 독일어처럼 마침표 대신 쉼표를 사용하는 경우에는 문제가 됩니다.

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("amiws.Synergy")
End If

이 줄을 사용하면 시너지(Autodesk Moldflow 사용자 인터페이스)를 시작하는 OLE 자동화 객체가 생성됩니다. Option Explicit 줄을 사용하지 않는 경우 Synergy 변수를 선언하는 Dim(변수 선언) 줄이 필요 없습니다. 하지만 이 변수는 항상 선언하는 것이 좋습니다.

Synergy.SetUnits "METRIC"

"ENGLISH"는 기본적으로 미국식 단위를 사용하도록 하는 "METRIC"의 대안으로 사용할 수 있습니다.

'%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("amiws.Synergy")
End If
Synergy.SetUnits "METRIC"
'
' Put remainder of code here.
' 
MsgBox "Script Complete"
Wscript.Quit