---

Hallo,

ist es möglich ein Catscript oder Catvba -Makro in VBA aufzurufen?

Mit CATIA.SystemService.ExecuteScript klappt es nicht, da VBA diese Funktion nicht kennt!

Hat jemand eine Idee?

MfG Onikage

[Diese Nachricht wurde von Onikage am 03. Dez. 2007 editiert.]

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

---

Ich weiß nicht ob es dafür einen Befehl gibt. Ich würde es über einen Umweg machen. Du erstellst einen Parameter der über VBA verändert wird. Dann erstellst du eine Reaction die ausgelöst wird wenn sich der Parameter verändert. Und schon startet dein Catscript oder Catvbamacro.

Sir Klabauter

------------------
Hinweise auf Rechtschreibfehler kann man sich bitte sparen.

CATIA: V5R16

Programmiersprache: VBA

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

---

ich glaub ich weiß jetzt wie du das meinst...ist keine schlechte idee...danke für die "inspiration" ^^

[Diese Nachricht wurde von Onikage am 03. Dez. 2007 editiert.]

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

---

Hallo Onikage,

Zitat:

---

Mit CATIA.SystemService.ExecuteScript klappt es nicht, da VBA diese Funktion nicht kennt!

---

das kennt er schon, nur möchte er es gerne in kleinen Häppchen serviert bekommen  , der VBA

Code:

---

Dim SysS
Set SysS = CATIA.SystemService

SysS.ExecuteScript ....

---

sollte klappen
Gruß
CAMiCADse

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

---

Du hast ja so Recht! Blödes VBA....manchmal könnt ich es echt *****!!

Danke CAMiCADse!

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

---

Code:

---

Const LibPath = "C:\VBAProject.catvba"

Sub CATMain()
    Dim Params()
    Set SServ = CATIA.SystemService
    ScriptName = "Module1"
    FunctionName = "CATMain"
    Call SServ.ExecuteScript(LibPath, catScriptLibraryTypeVBAProject, ScriptName, FunctionName, Params)

End Sub

---

Bei Params kannst du Übergabewerte angeben. Allerdings sollte das CATMain des auszuführenden Skripts auch diese auch handeln können.

Statt catScriptLibraryTypeVBAProject sollte es auch eine Eigenschaft für vbs und catscript geben. (siehe V5 Automation Hilfe)
LibPath ist dann der Pfad wo sich das *.CATvbs bzw. *.CATScript File befindet.

lg ap

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

---

Hallo,
ist eine Moglichkeit das catvba Makro von Microsoft Visual Basic script rufen?
Ich habe code
-------------
Sub Main()
    Dim CATIA As Object
    Set CATIA = GetObject(, "CATIA.Application")
    Dim SServ As Object
    Set SServ = CATIA.SystemService
    Dim Params()
    LibPath = "C:\Scripts\Macro.catvba"
    ScriptName = "Module1"
    FunctionName = "CATMain"
    Call SServ.ExecuteScript(LibPath, catScriptLibraryTypeVBAProject, ScriptName, FunctionName, Params)
End Sub
---------------
aber das Ergebnis is die Meldung: Unknown macro library "C:\Scripts\Macro.catvba"
Catia ist gestartet. Alle Catia V5 References im Project sind markiert.

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

---

VBS_VBA.zip

Also bei mir hats geklappt... siehe Anhang.

Die Übergabe mit den Parametern funktioniert allerdings nicht so ganz. Der Code sollte stimmen, aber es geht halt nicht 

[Diese Nachricht wurde von apollo11 am 04. Aug. 2008 editiert.]

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