Externe Scripts
und Anwendungen
Externe Anwendung starten:
Anwendung starten und auf
deren Ende warten:
|
Sub
CATMain()
CATIA.SystemService.ExecuteProcessus ("notepad.exe")
End Sub |
Die Funktion
ExecuteProcessus liefert den Wert "0" zurück wenn die
Anwendung keinen Fehler verursacht hat.
|
Sub
CATMain()
Status = CATIA.SystemService.ExecuteProcessus ("notepad.exe")
if Status <>
0 then
MsgBox "Bei der Ausführung kam es zu einem
Fehler"
end if
End Sub |
Anwendung starten und
Script dabei weiter ausführen:
|
Sub
CATMain()
CATIA.SystemService.ExecuteBackgroundProcessus ("notepad.exe")
End Sub |
Zum Starten einer
Anwendung mit Attributen, siehe
Anwendung starten in VBS, mittels "Shell.Run".
Starten von externen VBScripts
|
Sub
CATMain()
CATIA.SystemService.ExecuteProcessus("cscript.exe
C:\Test.vbs")
End Sub |
Starten von externen CATScripts
|
Sub
CATMain()
Dim Params()
LibPath = "C:\"
' Pfad wo das Makro liegt
ScriptName = "Macro.CATScript"
' Makroname
FunctionName = "CATMain"
' Funktion die aufgerufen werden
soll
Call CATIA.SystemService.ExecuteScript(LibPath,
catScriptLibraryTypeDirectory, ScriptName, FunctionName, Params)
End Sub |
Über Params können
Werte an eine Funktion übergeben werden, die über
FunctionName anstelle CATMain angegeben wird. |