Tech-Ecke / CATScript/VBS Inhalt / Externe Scripts und Anwendungen

 

Externe Scripts und Anwendungen

Seiteninhalt:  
  Externe Anwendung starten
  Starten von externen VBScripts
  Starten von externen CATScripts


 

  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
 

 

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.

"Die Option Drucken funktioniert erst ab Netscape V4.0 bzw. I-Explorer 5.0 !"

[letzte Aktualisierung 23.09.2009]