topic add user parameter for each part in assembly in Inventor Programming Forum

add user parameter for each part in assembly

Damian_Apex — Sun, 25 Apr 2021 19:25:30 GMT

Hello,

I am trying to create a rule that will loop through all parts in my assembly and will create "user parameter" according to the filename of part.

I have something like this but the rule is adding all parameters to my top assembly not single parts and I stopped here and I don't know how to go on now.

thank you in advance for your help.

Dim oDoc As AssemblyDocument = ThisApplication.ActiveDocument 
Dim oCompDef As AssemblyComponentDefinition = oDoc.ComponentDefinition
Dim oOcc As ComponentOccurrence
Dim oOcc_s As ComponentOccurrences = oCompDef.Occurrences
Dim oUserParams As UserParameters = oCompDef.Parameters.UserParameters
For Each oOcc In oOcc_s
	If oOcc.Name.Contains("-P-") = True Then
		oUserParams.AddByValue("IOM", "10", UnitsTypeEnum.kTextUnits)
	Else
	End If
Next

Betreff: add user parameter for each part in assembly

Ralf_Krieg — Mon, 26 Apr 2021 06:40:17 GMT

Hello

Try

Dim oAssDoc As AssemblyDocument = ThisDoc.Document Dim oDoc As Document Dim oUserParam As UserParameter For Each oDoc In oAssDoc.AllReferencedDocuments If oDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then If oDoc.FullDocumentName.Substring(oDoc.FullDocumentName.LastIndexOf("\")+1).Contains("-P-") Then Try oDoc.ComponentDefinition.Parameters.UserParameters.AddByValue("IOM", "10", UnitsTypeEnum.kTextUnits) Catch ex As Exception MsgBox (ex) End Try End If End If Next MsgBox("Done",,"iLogic")

Re: add user parameter for each part in assembly

Damian_Apex — Mon, 26 Apr 2021 15:33:57 GMT

Great, this is exactly what I was looking for. Thank you