---

Moin!

Ich möchte die Position eines Products auslesen.
Die entsprechenden Zeilen sind:

.
.
Dim iAxisComponentsArray(11)
oAktProduct.Position.GetComponents iAxisComponentsArray
.
.

Als CATSkript funktioniert das auch, unter VBA bekomme ich immer die Meldung:
"Function or interface marked as restricted, or the function uses an Automation type not supportes ub Visual Basic."

Wie deklariere ich 'iAxisComponentsArray' richtig? Da scheit mir ja der Fehler zu liegen.

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

---

Moin!

Stehe nun auch vor diesem Problem. Hat das schon jemand gelöst?

Gruß

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

---

Hallo michel01,

das liegt (wie so oft) an der Deklaration. Die Objekte müssen als Variant(oder Object) deklariert werden.
CATIA mag es einfach nicht, wenn man es zu sauber macht

Also entweder so:

Code:

---

Dim oAktProduct ' as Product
oAktProduct.Position.GetComponents iAxisComponentsArray

---

oder so:

Code:

---

Dim oAktProduct As Product
Dim pos ' as position
Set pos = oAktProduct.Position
pos.GetComponents iAxisComponentsArray

---

Gruß
CAMiCADse

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