---

Hallo zusammen!

wie kann ich aus den "Properties" eines Products die "Added Properties" per Makro auslesen und in einem Hinweisfenster anzeigen?

An einem konkreten Beispiel: Ich habe in den Properties per "Define other properties" eine weitere Zeile angefügt mit der Bezeichnung "Prinzip". Diese möchte ich nun per Makro auslesen und anzeigen. Die Funktion und Programmierung der MsgBox ist mir klar, aber wie bekomme ich Zugriff auf die "Added Properties"

Vielen Dank schon einmal für eure Lösungsvorschläge!

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

---

Servus

An die Benutzerdefinierten Eigenschaften kommst du zB. über

Code:

---

For i = 1 To oActDoc.Product.UserRefProperties.Count
MsgBox (oActDoc.Product.UserRefProperties.Item(1).name) & "=" & oActDoc.Product.UserRefProperties.Item(1).Value)

---

ran (hab es aber nicht überprüft).

Gruß
Bernd

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

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

---

Habe den Code grad in meinen VB Editor kopiert und gleich ausprobiert.

Er scheint aber nicht zu funktionieren. Selbst wenn ich die msgbox herausnehme funktioniert es nicht.

Könnte da nochmal jemand drüber kucken?

Danke schon mal.

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

---

Servus

Da hat sich wohl ein Fehler eingeschlichen:

Code:

---

For i = 1 To oActDoc.Product.UserRefProperties.Count
MsgBox (oActDoc.Product.UserRefProperties.Item(i).name) & "=" & oActDoc.Product.UserRefProperties.Item(i).Value)

---

Du musst natürlich "oActDoc" auf dein Produkt anpassen.

Gruß
Bernd

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

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

---

Ok, die Sache mit dem Counter hatte ich auch schon gesehen. Wie ist das mit dem product anpassen gemeint? Ich habe die Variablen deklariert, und das product nach product1 (so heißt mein derzeitiges Product) geändert?

Stimmt das dann:

Code:

---

Sub CATMain()

Set oActDoc = CATIA.ActiveDocument
Set oProducts = oActDoc.Product.Products
Set oSelection = oActDoc.Selection
oSelection.Clear

For i = 1 To oActDoc.product1.UserRefProperties.Count
MsgBox ("test") & oActDoc.product1.UserRefProperties.Item(i).Name
MsgBox ("test") & oActDoc.product1.UserRefProperties.Item(i).Value

Next i

End Sub

---

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

---

Servus

Also bei mir hat es mit:

Code:

---

Sub CATMain()

Set oActDoc = CATIA.ActiveDocument
Set Product = oActDoc.Product.Products

For i = 1 To oActDoc.Product.UserRefProperties.Count
MsgBox oActDoc.Product.UserRefProperties.Item(i).Name & "=" & oActDoc.Product.UserRefProperties.Item(i).Value
Next

End Sub

---

funktioniert.

Gruß
Bernd

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

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

---

Moin studentx,

Zitat:

---

... und das product nach product1 (so heißt mein derzeitiges Product) geändert?...

---

ich nehme mal an du meinst dein Variable heißt product1.

Die hat nichts mit dem product in diesen Zeilen:

Zitat:

---

...
For i = 1 To oActDoc.product1.UserRefProperties.Count
MsgBox ("test") & oActDoc.product1.UserRefProperties.Item(i).Name
MsgBox ("test") & oActDoc.product1.UserRefProperties.Item(i).Value
...

---

zu tun.

Hier sollte wirklich product stehen anstelle product1.

Lass mal die Klammer um des "test" bei den Messageboxen weg.

Gruß
Proofin

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