UserParameter - Set Value

[NachoShaw]

Hey

i am trying to update a parameter value. This appeared to work for a long time but now no longer works (Unless it never it worked and i only assumed it did!)

Anyway.

_BMDef is the Document ComponentDefinition

My function

        Friend Sub SetParams(ByVal ParamName As String, ByVal ParamValue As String)
            Dim Params As UserParameters = CType(_BMDef.Parameters.UserParameters, UserParameters)
            Dim P As UserParameter = Params.Item(ParamName)
            P.Expression = ParamValue
        End Sub

I pass in the parameter name & value to update

The error is on this line

Dim P As UserParameter = Params.Item(ParamName)

I am getting a System.ArgumentException

{"The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARGS))"}

The error would indicate the parameter probably doesnt exist but it does. Its the correct document with a valid existing parameter.

Is my code correct to access & update a user parameter?

[basautomationservices]

Hi Nachito,

Just trying it quickly in iLogic in Inventor 2022 build 153, and it seems to work with following code. What version are you on? 

Dim _BMDef = ThisDoc.Document.ComponentDefinition
Dim Params As UserParameters = CType(_BMDef.Parameters.UserParameters, UserParameters)
Dim P As UserParameter = Params.Item("TestParameter")
P.Expression = "10 mm"

That error is indeed caused because the parameter cannot be found.. Are you sure the param is there and it is a user param? Could you upload the document?

[tonythm]

Please ref:

Sub UpdateParam()
    Dim oWkbk As Workbook
    Set oWkbk = ThisWorkbook
    Dim oSheet As Worksheet
    Set oSheet = oWkbk.ActiveSheet
    Dim oCell As Range
    oLastRow = oSheet.Cells(oSheet.Rows.Count, 1).End(XlDirection.xlUp).Row
    Dim oInv As inventor.Application
    Set oInv = GetObject(, "Inventor.Application")
    Dim oDoc As Document
    Set oDoc = oInv.ActiveDocument
    Dim partDoc As PartDocument
    Set partDoc = oInv.ActiveDocument
    For Each oCell In Range("A3:A" & oLastRow)
        Dim userParams As UserParameters
        Set userParams = partDoc.ComponentDefinition.Parameters.UserParameters
        Dim oUserParam As UserParameter
        For Each oUserParam In userParams
            If oUserParam.name = oCell.Value Then
            oUserParam.Expression = oCell.Offset(0, 1).Value
            End If
        Next
    Next
    MsgBox "Done!"
End Sub