---

Hi,

hatte das Problem, dass ich immer folgende Meldung angezeigt bekam:

Zitat:

---

Compile error:

Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic

---

Hier der nicht funktionierende Programmcode:

Code:

---

Dim productDocument1 As ProductDocument
Dim product1 As Product
Dim products1 As Products
Dim arrPartDocument(0) As Variant

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set products1 = product1.Products
           
arrPartDocument(0) = "C:\Test\Test.CATPart"
products1.AddComponentsFromFiles arrPartDocument, "All"

---

Im Internet las ich den Tipp, die Reference "CATIA V5 CATAsssemblyInterfaceObject" zu setzen, was aber bereits der Fall war..

Die Lösung war einfach, folgende Zeile zu löschen oder auszukommentieren:

Code:

---

Dim products1 As Products

---

Darauf muss man erstmal kommen  Vielleicht kann ja noch ein Experte sagen, warum dass so ist..

Gruß und gutes Gelingen!

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

---

Also hätte ich Dir auch sofort sagen können, wenn Du die Fehlermeldung eingestellt hättest. :-)
Habe ich hier auch schon oft genug beantwortet. :-)

Problem ist die COM-Schnittstelle im VBA-Bereich.

Du darfst, wenn Du Werte nach Außen übergibst, einfach nicht genau deklarieren, sondern musst auf LateBinding vertrauen. Das ist vor allem bei der Übergabe von Arrays so, ganz besonders, wenn sie Rückgabe sind.

Das sollte sich auch in jeder UserSelection, via Makro, wiederfinden. :-) Stichwort: SelectElement2

Was in dem Zusammenhang das Leben manchmal auch einfacher macht, ist ein CALL davor zu schreiben, wenn es nicht an dem Array liegt.

In Deinem Fall möchtest Du die Methode eines COM-Objekts benutzen und übergibst ein Array der Länge 1. COM weiß aber nicht genau wie lang das Array sein wird, denn es kann ja beliebig lang sein und daran stört es sich. Wenn auf der linken Seite das Objekt sowieso mit LateBinding arbeiten muss, dann geht's.

Ich empfehle die Schreibweise:
Dim product1 As Object 'Product

------------------
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