---

Für meine Studienarbeit soll ich ein CATIA-Makro aus der VBA-Umgebung von CATIA starten (am Besten mit Parameterübergabe). Dies funktioniert leider nicht so richtig. Ich habe das Buch von Dieter R. Ziethen "Effiziente Konstruktion mit Makros" gelesen. Ich habe es auch geschafft ein Makro aus einem anderen Makro zu starten.
z.B.:
E=CATIA.SystemService.ExecuteScript _("C:\Temp",1,"Makro1.CATScript","Multiplikation",Params)

In der VBA-Umgebung funktioniert dies leider nicht. Der Befehl "ExecuteScript" ist mit VBA nicht verträglich.

Wer kann mir helfen? Gibt es einen anderen ähnlichen Befehl oder dies gar nicht möglich?
Ich habe es geschafft andere Makros in Officeanwendungen zu starten. Leider funktionieren diese Befehle im Zusammenhang mit CATIA nicht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Morgen

kann es sein dass dein "CATIA-Makro" in CATScript geschrieben ist?
Weil mit dem VB-Editor lassen sich (glaube ich) nur Makros in der CATvba-Sprache starten da die beiden Sprachen ein wenig verschieden sind.

Grüsse Jules

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jules,

das Makro wurde wir vorgegeben. Es ist ein CATScript. Ich habe versucht den Quellcode in ein VBA-Modul zu kopieren. Nach diversen Änderungen läuft dieses Modul auch in VBA. Leider führt dieses Modul einige Berechnungen (auslesen des Strukturbaums und daraus entstehende Rechnungen) nun falsch aus. Außerdem leidet die Geschwindigkeit.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das hier hab ich gerade getestet und funktioniert einwandfrei:

Sub CATMain()

    Dim Params()
    Set SServ = CATIA.SystemService
    LibPath = "CATDLN://MAKROS"
    ScriptName = "test.CATScript"
    FunctionName = "CATMain"
   
    Call SServ.ExecuteScript(LibPath, catScriptLibraryTypeDirectory, ScriptName, FunctionName, Params)
   

End Sub

------------------
Du musst die Leute einmal richtig ärgern, dann wirst du endlich ernst genommen.
Konrad Adenauer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank, funktioniert super!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin, zusammen.
Habe folgenden Befehl ausprobiert:
Dim params()

CATIA.SystemService.ExecuteScript "C:\Pfad", catScriptLibraryTypeDirectory, "Hallo.CATScript", "CATMain", params

Es kommt dann aber in Excel die Fehlermeldung:
Laufzeitfehler,
'Unbekannte Makrobibliothek'

Der Pfad stimmt aber.
Was mache ich falsch ?

Schöne Grüße,
Shorty

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Zusammen,

ich hoffe jemand kann mir weiterhelfen, denn der letzte Beitrag ist schon etwas älter.

Ich habe das gleiche Problem wie Henning_N, nur habe ich ein Catvbs welches ich aus VBA starten möchte.

Warum klappt das mit dem "ExecuteScript" nicht?

Dim Params()
    Set SServ = CATIA.SystemService
    LibPath = "C:\bla"
    ScriptName = "blabla.catvbs"
    FunctionName = "CATMain"
   
    Call SServ.ExecuteScript(LibPath, catScriptLibraryTypeDirectory, ScriptName, FunctionName, Params)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Gepetto,

hast Du im catvbs alle Variablen deklariert? Es gab hier im Forum vor kurzen eine Diskussion, wo festgestellt wurde, dass alle Variablen im aufgerufenen Script deklariert sein müssen, damit es funktioniert!

mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sub callen()

Dim SServ
Dim ScriptName As String
Dim FunctionName As String
Dim Params()
    Set SServ = CATIA.SystemService
    LibPath = "C:\bla"
    ScriptName = "blabla.catvbs"
    FunctionName = "CATMain"
   
Call SServ.ExecuteScript(LibPath, catScriptLibraryTypeDirectory, ScriptName, FunctionName, Params)

End Sub

So finktionukelt es jetzt    Einfach nur Dim SServ reicht aus!aber ich dachte ich müsste SServ als SystemService deklarieren?!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP