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.
----------------------------------
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
Solved! Go to Solution.
Solved by chandra.shekar.g. Go to Solution.
Hope this below code may be helpful.
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 If oParameter.Name.Contains(sVar1) Or oParameter.Name.Contains(sVar2) Then Return oParameter.Name End If Next End If Next End Function
Thanks and regards
Can't find what you're looking for? Ask the community or share your knowledge.