---

Hallo zusammen,
ich fang grad an ein wenig Makros mit Catia zu basteln, ein paar Grundlagen zu Makro habe ich schon, allerdings nur in solidworks und da läuft anscheinend vieles anders.

Also zu meinem Problem: Ich will die Parameter aus einem Part auslesen und Anhand des Names dann die Werte Comboboxen gleichen Namens in einer Userform zuordnen.
Beim auslesen der Parameter treten die ersten Probs auf und zwar werden mir alle Parameter ausgegeben, ich brauche aber nur die aus dem Strukturbaum (keine formeln und Beziehungen etc).
hier mal der code:

Dim CATpart As Part
Dim para As Parameter
Dim params As Parameters
Dim I As Integer

Sub Catmain()
    Set CATpart = CATIA.ActiveDocument.Part
    Set params = CATpart.Parameters
         
    For I = 1 To params.Count
        Set para = params.Item(I)
        Debug.Print (para.Name)
    Next
End Sub

hoffe ich hab mich einigermassen verständlich ausgedrückt. Dank für eure Tipps.

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

---

Servus
Du kannst auf das "RootparameterSet" zugreifen (siehe auch Doku). zB:

Code:

---

Dim CATpart As Part
Dim para As Parameter
Dim params As Parameters
Dim parameterset As parameterset
Dim I As Integer

Sub Catmain()
    Set CATpart = CATIA.ActiveDocument.Part
    Set parameterset = CATpart.Parameters.RootParameterSet
    Set params = parameterset.AllParameters
       
    For I = 1 To params.Count
        Set para = params.Item(I)
        Debug.Print (para.Name)
    Next
End Sub

---

Gruß
Bernd

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

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

---

Hallo Bernd,
Danke für die schnelle Antwort.

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

---

so, da will ich mal für die nachwelt meinen code hinterlassen.
es werden die parameter des rootparameterset ausgelesen, haben text-/comboboxen einer userform den gleichen namen, so werden diese mit werten befüllt.

Dim CATpart As Part
Dim para As Parameter
Dim params As Parameters
Dim paramset As parameterset
Dim I, J As Integer
Dim pName As String
Dim bName As String
Dim Pos As Integer

    Set CATpart = CATIA.ActiveDocument.Part               
    Set paramset = CATpart.Parameters.RootParameterSet
    Set params = paramset.AllParameters
         
    For I = 1 To params.Count                             
        Set para = params.Item(I)
        pName = para.Name
       
        Do                                             
            Pos = InStr(pName, "\")
            pName = Mid(pName, Pos + 1)
        Loop Until Pos = 0
               
        For J = 0 To UserForm1.Controls.Count - 1         
            If UserForm1.Controls.Item(J).Name = pName Then
                UserForm1.Controls.Item(J).Text = para.Value
                On Error Resume Next
            End If
        Next
                 
    Next

falls es jemandem hilft, viel spass damit.

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

---

Kurz vorm Wochenende komm ich nochmal ausm Loch gekrochen....

Ich nutze den Fred mal um eine darauf aufbauende Frage zu klären:
ich würde gerne ein paar meiner Combo- und Tesxtboxen in ein Array packen und über dieses ein Event(AfterUpdate oä) auslösen. Jedoch scheitere ich an der Zuweisung des Events.
Mein Code:

dim myArray

Private Sub UserForm_Initialize()
myArray= Array(UserForm1.Controls.Item("bla"), (UserForm1.Controls.Item("blub") 'usw)
sub end

private sub myArray_AfterUpdate()
'do some
Sub End

Muss ich das Array noch einem bestimmten Objekt zuweisen, um ein Event definieren zu können, wenn ja welches?
Wäre für hilfreiche Tipps dankbar, das würde den Code gut verkürzen, da ja immer das gleiche Event ablaufen soll.

Ansonsten wünsch ich schonmal ein schönes WE.
GRüße

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