Add user text parameter through iLogic

[Anonymous]

Using Inventor 16

I am trying to add a user text parameter to the active document (typically ipt) with the following in an iLogic rule:

oUParams=ThisApplication.ActiveDocument.ComponentDefinition.Parameters.UserParameters
oUParams.AddByValue ("Description","",UnitsTypeEnum.kTextUnits)

Running this doesn't throw any errors, but it also doesn't create the parameter.

What am I doing wrong?

[MechMachineMan]

Works fine for me.

Please ensure that you don't have any filters applied in your parameters dialog.

[gavin.allenHSSRX]

This does not work for me either.  Is there some coding before or after we should be using?

[MechMachineMan]

I tried it again, and copy/pasting that code adds the parameter just fine.

Perhaps it wouldn't if the part wasn't a library file, or unmodifiable otherwise?

Try adding the user parameter manually through the UI. Does that work?

Secondly, can you verify that you don't have an parameter filters on?

Thirdly, you are running the parameter from the ACTIVE document and not during an "in-place edit"?

If you want it to work even during in-place editting, it should be written:

oUParams=ThisDoc.Document.ComponentDefinition.Parameters.UserParameters
oUParams.AddByValue ("Description","",UnitsTypeEnum.kTextUnits)

[bradeneuropeArthur]

This works for me:

    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
        Dim oDoc As Document
        oDoc = _InvApp.ActiveDocument

        'On Error GoTo noPartOrAss:
        Dim oParameters As Parameters
        oParameters = oDoc.ComponentDefinition.Parameters

        Dim oParameterTables As ParameterTables
        oParameterTables = oParameters.ParameterTables
        'Debug.Print oParameters.ParameterTables.Count

        Dim oParameterTable As ParameterTable
        oParameterTable = oParameterTables.Item(1)

        Dim oUserParameters As UserParameters
        oUserParameters = oParameters.UserParameters

        Dim oTableParameters As TableParameters
        oTableParameters = oParameterTable.TableParameters


        Dim UserParameterAdd As UserParameter
        UserParameterAdd = oUserParameters.AddByValue("Test" & "_UPT", "AA", UnitsTypeEnum.kTextUnits)
    End Sub

[gavin.allenHSSRX]

Bless You Justin,

I was trying to do it thru the in place edit.  Thanks so much for the edification.

[MechMachineMan]

If that has it solved, please mark the answer as a solution!