CATIA automation object architecture - detailed explanation of application objects (III) systemservice

Application object

Application A child of an object :

6. SystemService: utilize application Access to system services

The figure below shows that we can use Application.SystemService What system services are available

**Application.SystemService.Environ:** Get the value of the system environment variable , Return text format .
Such as obtaining system variables “Path” Value :

Dim strSysPath As String

strSysPath = CATIA.SystemService.Environ("Path")

MsgBox strSysPath

result : This Path There are many values of variables , So the display is more complex

Theoretically , We can use this method to get the values of all system variables :

**Application.SystemService.Evaluate:** utilize Evaluate Method executes a script statement , And return the execution result
Func Evaluate( CATBSTR iScriptText, CATScriptLanguage iLanguage,
CATBSTR iFunctionName, CATSafeArrayVariant iParameters) As CATVariant
for example :

Dim params()  ' Define the statement parameter array 
Dim codeToEvaluate ' Define the executed statement 
CodeToEvaluate = "Sub CATMain()" & vbNewLine &  "MsgBox " & chr(34) & "Hello World" & chr(34) &vbNewLine _ 
  & "End Sub"
  'CATVBScriptLanguage  Is the name of the script language CATVBScript
  'CATIA.SystemService.Evaluate ( Script statements , Script language name , The name of the function , Execute parameter array )
 CATIA.SystemService.Evaluate CodeToEvaluate, CATVBScriptLanguage, "CATMain", params

CodeToEvaluate Script content for

Theoretically , except CATVBScriptLanguage Script functions written in the following languages are executable

Application.SystemService.ExecuteBackgroundProcessus:
Execute an asynchronous program , Execute in the background without waiting for it to end
Func ExecuteBackgroundProcessus( CATBSTR iExecutablePath) As long
The input parameter is the address of the executing program
for example : perform C:\Program Files\myApp\myApp.exe This procedure
CATIA.SystemService.ExecuteBackgroundProcess “‘C:\Program Files\myApp\myApp.exe’ myArg”
Theoretically, it can also be simplified to the following sentence , If the path has been added to the system variable "Path" in .（ Not confirmed )
CATIA.SystemService.ExecuteBackgroundProcess “‘myApp\myApp.exe’ myArg”
although ExecuteBackgroundProcess Function definitions have return values , But it doesn't actually return .

Application.SystemService.ExecuteProcessus:
Execute an asynchronous program , But you need to wait for it to end before you can continue to the next step
Func ExecuteProcessus( CATBSTR iExecutablePath) As long
for example :
Dim ReturnCode as long
ReturnCode = CATIA.SystemService.ExecuteProcessus("")
ExecuteProcessus Return after execution ReturnCode, You can judge whether the execution of the statement ends .

Application.SystemService.ExecuteScript:
Execute a script file
Same as Evaluate The difference is ,ExecuteScript The execution is a written script document , Instead of a scripted statement .
Func ExecuteScript( CATBSTR iLibraryName, CatScriptLibraryType iType,
CATBSTR iProgramName, CATBSTR iFunctionName,
CATSafeArrayVariant iParameters) As CATVariant
iLibraryName ' Library containing scripts
iType ' Script library type , file / Catalog /VBA project
iProgramName ' Program name
iFunctionName ' The name of the function
iParameters ' Program parameters
for example : perform Part1.CATPart Macro scripts included in Macro1.catvbs, Run the main program CATMain

Dim params()
 CATIA.SystemService.ExecuteScript "Part1.CATPart", catScriptLibraryTypeDocument, "Macro1.catvbs", "CATMain", params

by this means , You can run all kinds of written in advance CATIA Script files

Application.SystemService.Print:
Output a standard output stream to display text information .
The following statement was not executed successfully , because Print It doesn't seem to support Automation object .

Dim iString
iString = "Hello Word"
CATIA.SystemService.Print (iString)