Управление параметрами Numeri c из окна пользовательской формы в Inventor

Question

Мне нужна помощь. Я хочу контролировать значения некоторых параметров части "Inventor", используя "UserForms", но это зашло в тупик. Для начала у меня есть TextBox и CommandButton и некоторый числовой параметр Drope in mm, созданный в таблице параметров изобретателя. Мне удалось получить доступ к этому параметру, но я не могу изменить его с помощью пользовательских форм. Как мне это сделать? Заранее спасибо.

Public Sub okbtn1_Click()

    Dim partDoc As PartDocument
    Set partDoc = ThisApplication.ActiveDocument

    Dim userParams As UserParameters
    Set userParams = partDoc.ComponentDefinition.Parameters.UserParameters

    Dim oDrope As Parameter
    Set oDrope = userParams.Item("Drope")
    Drope = TextBox1

    End
End Sub

Answer 1

Значение параметра всегда указывается в сантиметрах, поскольку это внутренние единицы Inventor.

Вы можете преобразовать значение в см

oDrop.Value = TextBox1 / 10

или установить параметр Выражение (строка), в котором можно указать единицы измерения. или используются стандартные единицы документа

oDrop.Expression = TextBox1 & "mm" ' With units [mm]
oDrop.Expression = TextBox1 ' Default document units

Answer 2

Нашли решение, но значение вводится в см. Я ищу способы указать его в мм.

Private Sub CmdButtonOk2_Click()

    Dim partDoc As PartDocument
    Set partDoc = ThisApplication.ActiveDocument

    Dim userParams As UserParameters
    Set userParams = partDoc.ComponentDefinition.Parameters.UserParameters

    Dim oDrope As Parameter
    Set oDrope = userParams.Item("Drope")
    oDrope.Value = TxtBox2

    End

End Sub