All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown | +---IDispatch | +---CATBaseUnknown | +---CATBaseDispatch | +---AnyObject | +---SystemService
o Func Environ( | CATBSTR | iEnvString) As CATBSTR |
Value = CATIA.SystemService.Environ("PATH")
o Func Evaluate( | CATBSTR | iScriptText, |
CATScriptLanguage | iLanguage, | |
CATBSTR | iFunctionName, | |
CATSafeArrayVariant | iParameters) As CATVariant |
Dim params() Dim codeToEvaluate CodeToEvaluate = "Sub CATMain()" & vbNewLine & _ "MsgBox " & chr(34) & "Hello World" & chr(34) & vbNewLine & _ "End Sub" CATIA.SystemService.Evaluate CodeToEvaluate, CATVBScriptLanguage, "CATMain", params
o Func ExecuteBackgroundProcessus( | CATBSTR | iExecutablePath) As long |
and doesn't wait the end of its execution.
CATIA.SystemService.ExecuteBackgroundProcessus ""
o Func ExecuteProcessus( | CATBSTR | iExecutablePath) As long |
waits for it to end, and returns its return code.
ReturnCode = CATIA.SystemService.ExecuteProcessus("")
o Func ExecuteScript( | CATBSTR | iLibraryName, |
CatScriptLibraryType | iType, | |
CATBSTR | iProgramName, | |
CATBSTR | iFunctionName, | |
CATSafeArrayVariant | iParameters) As CATVariant |
Dim params() CATIA.SystemService.ExecuteScript"Part1.CATPart", catScriptLibraryTypeDocument, "Macro1.catvbs", "CATMain", params
o Sub Print( | CATBSTR | iString) |
CATIA.SystemService.Print("Hello world!")
Copyright © 2003, Dassault Systèmes. All rights reserved.