Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
karl.leduc-berard
415 Views, 2 Replies

Get Part Parameter name from assembly

Hi,

 

im trying to create a Function to find a part in my assembly and then find in it a parameter which can be a model or a user parameter.

But the farthest i could go is to look into assembly parameters....

Any Idea?

Here is my code so far.

 

----------------------------------

Function fuFindPartParam(ByVal sVar1 as string, ByVal sVar2 as string, ByVal sVar3 as string) as string
 

Dim oDoc As AssemblyDocument
oDoc = ThisDoc.Document
Dim oComps As ComponentOccurrences
oComps = oDoc.ComponentDefinition.Occurrences


For Each oComp In oComps
    If oComp.Name = sVar3 Then
        For Each oParameter In oComp.Definition.Parameters.ModelParameters
             If oParameter.Name.Contains(sVar1) And oParameter.Name.Contains(sVar2) Then
                   Return oParameter.Name
             End If
        Next
    End If
Next

For Each oComp In oComps
    If oComp.Name = sVar3 Then
        For Each oParameter In oComp.Definition.Parameters.UserParameters
             If oParameter.Name.Contains(sVar1) And oParameter.Name.Contains(sVar2) Then
                   Return oParameter.Name
             End If
        Next
    End If
Next

End Function