---

Hallo ihr,

ich habe ein Problem. Und zwar habe ich einen Parameter mit einer Mehrfachauswahl (Multivalue).
Unabhängig vom Inhalt des ausgewählten Wertes möchte ich nun dessen Stelle innerhalb der
Mehrfachauswahl herausfinden. Weiss jemand von euch wie dies möglich ist?

Mit freundlichen Grüßen
Grede

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

---

Hallo,

ich denke es sollte möglich sein mit der Funktion (GetEnumerateValues)

ungefähr so

Code:

---

Dim oParam
Dim aParamValues()

Set oParam = oParameters.Item(1) 'hier muss das Parameterobjekt geholt werden

oParam.GetEnumerateValues aParamValues 'Die Funktion schreibt dir die Werte der Liste in ein Array

---

Anschliessend prüfst du den aktuellen Wert des Parameters und suchst in mit einer SChleife im Array.
Das müsste dann die Position sein an der der Wert in der Liste steht.

Gruss Timber

------------------
Wenn alle Stricke reissen, nehm ich ein Drahtseil

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

---

Danke für deine Hilfe 

Nun habe ich ein anderes Problem. Die Funktion gibt mir leider nicht den Inhalt der Parameterwerte wieder.
Vorweg: die MsgBox "Wert1: "+aParamValue, ,"Stopp3" hat als Ergebnis: "Wert1: "

Code:

---

Sub CATMain()

Dim oParam
Set oParam = Catia.ActiveDocument.Product.Parameters.item(39)

'MsgBox "Paramter ausgewählt: "+oParam.Name, ,"Stopp1"
'Stopp1

Dim Groesse
Dim Groesse2
Groesse = oParam.GetEnumerateValuesSize
Groesse2 = CStr(Groesse)

MsgBox "Groesse: "+Groesse2, ,"Stopp2"
'STOPP2

Dim aParamValues()
Dim aParamValue
oParam.GetEnumerateValues aParamValues
aParamValue = CStr(aParamValues1)

'Catia.ActiveDocument.Part.Update

MsgBox "Wert1: "+aParamValue, ,"Stopp3"
STOPP3

End Sub

---

Wie man vielleicht erkennen kann habe ich nicht all zu viel Ahnung von VBA 

Der Parameter ist übrigens vom Typ "Zeichenfolge" (String).

PS: Total faszinierend finde ich es, dass die Funktion in einem Makro funktioniert - und im anderen nicht, je nach dem wo ich die Variablen deklariere. Deklariere ich diese zu Anfang, spuckt das Makro (an der Stelle der Funktion) immer eine Fehlermeldung CATIALength .... Error 1002 ... aus.

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

---

Servus
Vorsicht: Bei einem Array hat dass erste Element den Index 0.
Versuch es mal mit:

Code:

---

Dim aParamValues()
Dim aParamValue
Redim aParamValues (oParam.GetEnumerateValuesSize - 1)
oParam.GetEnumerateValues aParamValues
aParamValue = CStr(aParamValues(0))

---

Gruß
Bernd

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

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

---

Hallo,

das ganze kannst du dann in der Schleife durchgehen und z.B. in eine MsgBox ausgeben lassen. Hier mal ein Beispielcode:

Code:

---

Sub CATMain()

    Dim intDoc As PartDocument
    Dim intPart As Part
    Dim intParas As Parameters
    Dim intPara As Parameter
    Dim intParamValues()
    Dim intParamValue
   
    Set intDoc = CATIA.ActiveDocument
    Set intPart = intDoc.Part
    Set intParas = intPart.Parameters
    Set intPara = intParas.Item("Testpara")

    ReDim intParamValues(intPara.GetEnumerateValuesSize - 1)
    intPara.GetEnumerateValues intParamValues
    For i = 0 To UBound(intParamValues)
        intParamValue = CStr(intParamValues(i))
        MsgBox "Folgende Werte wurden ausgelesen:" + vbNewLine + vbNewLine + _
                "Parametername:" + vbTab + vbTab + intPara.Name + vbNewLine + _
                "Parameter Werteanzahl:" + vbTab + CStr(i + 1) + " von " + CStr(UBound(intParamValues) + 1) + vbNewLine + _
                "Parameterwert:" + vbTab + vbTab + intParamValue, vbInformation, "Hinweis"
    Next
               

End Sub

---

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

---

Ich bedanke mich vielmals für eure Unterstützung 

Alles funktioniert nun tadellos ^^

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