---

Hallo!

Der Betreff sagt eigentlich schon alles - wie kann ich ein catvba-Makro aus einem catvba-Makro heraus starten?
Kann mir da mal bitte jemand ein Beispiel nennen?

P.S. Die Suchfunktion bringt Ergebnisse für CATScript - funktioniert aber offensichtlich nicht mit catvba.

Danke schon mal im voraus!
Martin

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

---

Hallo Martin,

das funktioniert genauso wie mit einem CATScript nur muss ein anderer Werte beim Aufruf der Funktion eingetragen werden.

Versuchs mal mit folgendem Code:

Code:

---

  Dim myScript
    Dim Params()
    myScript = CATIA.SystemService.ExecuteScript("C:\", catScriptLibraryTypeVBAProject, "TEST.catvba", "CATMain", params)

---

catScriptLibraryTypeVBAProject das ist eine Enum und die bestimmt welcher Typ aufgerufen wird (also CATScript, CATScript aus Datei oder CATVba Projekt). Um das rauszufinden kannst entwerder den Objektbrowser oder die v5automatition Datei befragen 

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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

---

Hallo,

der Aufruf eines CATScripts und einer catvba unterscheiden sich ein klein wenig von einander.

Bei catvba muss das so aussehen:

CATIA.SystemService.ExecuteScript(sScriptPath, catScriptLibraryTypeVBAProject, sScriptName, sScriptFunction, vScriptParams)
wobei sScriptPath der komplette Pfad inkl. Datei ist (z.B. "C:\Test.catvba")
der 2. Parameter ist eine Konstante und muss genau so heißen.
der 3. Parameter ist der Modulname
der 4. Parameter ist dann der Name der Funktion z.B. "CATMain"
der 5. Parameter sind dann noch Übergabeparameter (Typ Variant)

------------------
Gruß Michael B.

[Diese Nachricht wurde von MICHLICK am 02. Feb. 2009 editiert.]

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

---

Fehlermeldung.JPG

Hallo!
Schon mal Danke für die Antworten - allerdings bring ich die Sache noch nicht so richtig ans Laufen...

Im Anhang ein Bild, welches den Fehler darstellt, welchen ich erhalte nachdem ich das Makro laufen lasse.

Zur Info:
Ich möchte mir ein kleines Makro mit Benutzerschnittstelle basteln, welches wiederum verschiedene andere Makro's starten kann.
Dabei gibt es bei beiden Makro's "CATMain". (sowohl beim aufrufenden, als auch beim aufgerufenen Makro) Könnte das evtl. ein Problem darstellen?

Danke und Gruß
Martin

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

---

Hallo Martin,

so sollte es klappen:

Code:

---

Dim SysServ
set SysServ = CATIA.SystemService
SysServ.ExecuteScript ...

---

Gruß
CAMiCADse

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

---

Hallo nochmal!

Wunderbar es läuft. Hier der Code:

    Dim myScript
    Dim SysServ
    Dim Params()
   
    Set SysServ = CATIA.SystemService
    myScript = SysServ.ExecuteScript("C:\Makros\Umwandlung_von_CATParts.catvba", catScriptLibraryTypeVBAProject, "Umwandlung_von_CATParts", "CATMain", Params)

Besten Dank nochmal und Grüße!
Martin
   

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