---

Hallo,

kann mit folgender Fehlermeldung nichts anfangen:

ExecuteScript Compile error: Funtion or interface as restricted, or the function uses an Automation type not supportes in Visual Basic.

Befehlszeile:

CATIA.SystemService.ExecuteScript "C:\CATIA_VBA", catScriptLibraryTypeDirectory, "Achse.CATScript", "CATMain"

Vielleicht ein Syntaxfehler?

Gruß

Johannes

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

---

Bin jetzt ein Stück weiter.

Habe das ganze jetzt mal so aufgebaut.

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

Das läuft als script aber nicht als VBA.

Weiß jemand wie es da aussehen muss?

Gruß

Johannes

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

---

hmmm, hilft dir das?

http://www.coe.org/p/fo/et/thread=16767

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

---

Ich vermute auch, dass der ENUM catScriptLibraryTypeDirectory nicht bekannt ist.
Stattdessen einfach die Zahl dafür übergeben.

Ansonsten wäre noch eine Möglichkeit, dass CATMain nicht der Einstieg ist, da es ja ein CATScript ist.

Nächte Möglichkeit wäre noch CATIA.SystemService vorher in ein objekt vom Typ Variant zu schrieben und dann von diesem aus aufzurufen:

Code:

---

Sub CATMain()

Dim Params()
LibPath = "C:\"                                ' Pfad wo das Makro liegt
ScriptName = "Macro.CATScript"    ' Makroname
FunctionName = "CATMain"          ' Funktion die aufgerufen werden soll

Dim varBlubb as Variant

set varBlubb = CATIA.SystemService

Call varBlubb.ExecuteScript(LibPath, catScriptLibraryTypeDirectory, ScriptName, FunctionName, Params)

End Sub

---

Als nächstes würde ich Deine parameter mal vom Typ richtig deklarieren.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hallo Henry,

vielen Dank für die Antwort.
Das passt.

Gruß

Johannes

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

---

Hallo Johannes,

welche der 4 Vermutungen war es denn? :-)

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hallo Herny,

damit gehtŽs 
Code:
--------------------------------------------------------------------------------

Sub CATMain()

Dim Params()
LibPath = "C:\"                                ' Pfad wo das Makro liegt
ScriptName = "Macro.CATScript"    ' Makroname
FunctionName = "CATMain"          ' Funktion die aufgerufen werden soll

Dim varBlubb as Variant

set varBlubb = CATIA.SystemService

Call varBlubb.ExecuteScript(LibPath, catScriptLibraryTypeDirectory, ScriptName, FunctionName, Params)

End Sub

--------------------------------------------------------------------------------

Gruß

Johannes

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