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.