Parameter creating Rule needs to run for Drawing, Assembly, and Parts Individually.

[gconley]

I have a rule that creates a Parameter inside an IDW file and works fine.

'Creating a Drop down for the Author
Dim List As New List(Of String)
List.Add("")
List.Add("DDiggler")
List.Add("BJohnson")
List.Add("JHolmes")
List.Add("LRichards")
List.Add("TWang")


Dim ParamName As String = "Author"

Dim oDoc As DrawingDocument = ThisDoc.Document
Dim oUPs As UserParameters = oDoc.Parameters.UserParameters
Dim oUP As UserParameter

Try
	oUP = oUPs.Item(ParamName)
Catch
    oUP = oUPs.AddByValue(ParamName, List(0), UnitsTypeEnum.kTextUnits)
	' Make parameter key
    oUP.IsKey = True
End Try
 MultiValue.List(ParamName) = List

  I believe it has something to do with DrawingDocument, so I changed it to PartDocument and it still didn't work.

I am still learning the iLogic / API and not sure what the issue could be.

This is the error I am getting.

Any ideas will be appreciated. 

[tyler.warner]

So you want this rule to be run within a drawing & if that drawing contains any parts or assemblies then you want the parameter to be created within those files as well?

[gconley · Accepted solution]

Problem solved by Curtis Waguespack

'Creating a Drop down for the Author
Dim List As New List(Of String)
List.Add("")
List.Add("DDiggler")
List.Add("BJohnson")
List.Add("JHolmes")
List.Add("LRichards")
List.Add("TWang")

Dim ParamName As String = "Author"

Dim oDoc As Document = ThisDoc.Document
Dim oUPs As UserParameters
If oDoc.DocumentType = DocumentTypeEnum.kDrawingDocumentObject Then
oUPs = oDoc.Parameters.UserParameters
Else
oUPs = oDoc.ComponentDefinition.Parameters.UserParameters
End If

Dim oUP As UserParameter

Try
oUP = oUPs.Item(ParamName)
Catch
oUP = oUPs.AddByValue(ParamName, List(0), UnitsTypeEnum.kTextUnits)
' Make parameter key
oUP.IsKey = True
End Try

MultiValue.List(ParamName) = List

[gconley]

No was just looking for it to do it per file.