---

Fehlermeldung.jpg

Hi,

ich kriege beim Ausführen immer den Fehler (siehe Anhang). Ich habe auch schon versucht, Position As Object zu deklarieren oder auch product3 as Object, aber es hilft nichts....

weiss jemand rat?

Code:

---

Sub Test()

Dim arr(2)
Dim Pos As Position

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

Dim product2 As Product
Set product2 = products1.Item("abc")

Dim products2 As Products
Set products2 = product2.Products

Dim product3 As Product
Set product3 = products2.Item("xyz")

Set Pos = product3.Position

Pos.GetComponents arr

Debug.Print arr(0)
Debug.Print arr(1)
Debug.Print arr(2)

End Sub

---

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

---

Hallo Antelito,

nicht "Position" as Object sondern "Pos" as Object dann funktioniert das 

Gruß

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

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Antelito,

mach einfach ein Latebinding, indem du die genaue Deklaration weglässt:

Code:

---

Dim Pos

---

Reicht aus. VBA mag das einfach nicht. Genauso bei Selection und Inertia. 

Grüße,
Tilo

------------------
Dem Schabloneur ist nichts zu schwör...

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

---

Fehlermeldung2.jpg

Hallo,

Nachdem ich Dim Pos as Object deklariert habe, schien es erstmal zu laufen... bis ich an die Stelle

Code:

---

Pos.GetComponents arr

---

komme... Dort taucht dann plötzlich diese Fehlermeldung (siehe Anhang) auf...

Auch funktioniert IntelliSense nicht, wenn ich Pos als Object deklariere... Bei der Deklaration als Position dagegen schon  

Hat jemand eine Idee, wie ich das Problem löse???

Danke!

[Diese Nachricht wurde von Antelito am 14. Apr. 2014 editiert.]

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

---

Servus
GetComponents liefert dir die Position und die Ausrichtung.
Dein Array muss anders dimensioniert werden (siehe auch Doku):

Code:

---

Dim arr(11)

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

ups... da hätte ich auch selbst drauf kommen können *schäm* 

stimmt und läuft! Danke!

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