---

Hallo zusammen,

ich versuche gerade von meinem selektiertem Product die Parameter abzufragen.

Code:

---

CATIA.ActiveDocument.Selection.Item(1).Value.Parameters.Item("Object Title").Value

---

Mit diesem Befehl wird jedoch nur der Wert ausgelesen, von dem Product unter dem selektieren Product.

Kann mir hierbei jemand helfen?

Gruß
Azazel

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

---

Servus
Mit

Code:

---

CATIA.ActiveDocument.Selection.Item(1).Value.Parameters

---

bekommst du die Collection der Parameter.
Diese Collection kannst du dann mit einer Schleife abarbeiten und über "Item(Zähler)" die einzelnen Parameter ansprechen.

Gruß
Bernd

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

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

---

Hallo Bernd,

vielen Dank für die schnelle Antwort.

Code:

---

Dim param1 As String, param1Name As String
  param1Name = "Object Title"
Set prod = CATIA.ActiveDocument.Selection.Item(1).Value
With prod
        For j = 1 To .Parameters.Count
            If VBA.Left(.Parameters.Item(j).Name, Len(.PartNumber)) = .PartNumber And VBA.InStr(.Parameters.Item(j).Name, param1Name) <> 0 Then
                param1 = .Parameters.Item(j).ValueAsString
                MsgBox (param1)
            End If
        Next j
    End With

---

Habe mich bei der Lösung etwas an diesen Beitrag gehalten
http://forum.cad.de/foren/ubb/Forum137/HTML/004684.shtml

Nur leider lädt er so bei meinem Top Product sehr lange.
Gibt es für so etwas keine schnellere Variante?

Gruß
Azazel

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

---

Bin soeben selber auf eine schnellere Lösung gekommen.

Code:

---

Dim test As String
test = CATIA.ActiveDocument.Selection.Item(1).Value.PartNumber
MsgBox (CATIA.ActiveDocument.Selection.Item(1).Value.Parameters.Item(test & "\Properties\Object Title").Value)

---

Trotzdem vielen Dank!

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