Numeric paramteres precision display

[bshbsh]

Hi,

when I type in a numerical parameter through the GUI, let's say for example a hole depth of 20mm, it will display as "20mm" and when queried through VBA it will be "2" (centimeters).

However, when I change the value through VBA, it will be shown on the GUI as "20.000000 mm" and when read by VBA it will be 2.00000 cm as well.

I have this problem with changing every kind of numerical parameters through VBA, and I have no idea how to do this correctly.

Could anyone help me please? Thanks in advance.

[bradeneuropeArthur]

Hi,

Can you make a screenshot of the parameterbox in inventor.

Maybe I have the solution!

[bshbsh]

Here's an example what I mean.

This is what the value of the thickness and the hole diameter looks like when typed in via these dialog boxes:

And after running this macro (a simplified example of how I want to change these parameters)

Public Sub ChangeParameters()
    Dim ThicknessBefore, ThicknessAfter, HoleDiaBefore, HoleDiaAfter As String
    ThicknessBefore = ThisApplication.ActiveEditDocument.ComponentDefinition.Thickness.Expression
    HoleDiaBefore = ThisApplication.ActiveEditDocument.ComponentDefinition.Features.HoleFeatures.Item(1).HoleDiameter.Expression
    ThisApplication.ActiveEditDocument.ComponentDefinition.Thickness.Value = 0.5
    ThisApplication.ActiveEditDocument.ComponentDefinition.Features.HoleFeatures.Item(1).HoleDiameter.Value = 1.5
    ThicknessAfter = ThisApplication.ActiveEditDocument.ComponentDefinition.Thickness.Expression
    HoleDiaAfter = ThisApplication.ActiveEditDocument.ComponentDefinition.Features.HoleFeatures.Item(1).HoleDiameter.Expression
    MsgBox (ThicknessBefore & vbNewLine & ThicknessAfter & vbNewLine & HoleDiaBefore & vbNewLine & HoleDiaAfter)
End Sub

The parameter Expressions change (obviously), but the display unnecessary tailing decimal zeroes. Also the parameters DecimalPrecision is set to 3, so it should only display at most 3 zeroes.

[bradeneuropeArthur]

Hi,

Try this:

Public Sub ChangeParameters()
    Dim ThicknessBefore, ThicknessAfter, HoleDiaBefore, HoleDiaAfter As String
    ThicknessBefore = ThisApplication.ActiveEditDocument.ComponentDefinition.Thickness.Expression
    HoleDiaBefore = ThisApplication.ActiveEditDocument.ComponentDefinition.Features.HoleFeatures.Item(1).HoleDiameter.Expression
    ThisApplication.ActiveEditDocument.ComponentDefinition.Thickness.Expression = "0.7 mm"
    ThisApplication.ActiveEditDocument.ComponentDefinition.Features.HoleFeatures.Item(1).HoleDiameter.Expression = "1.6 mm"
    ThicknessAfter = ThisApplication.ActiveEditDocument.ComponentDefinition.Thickness.Expression
    HoleDiaAfter = ThisApplication.ActiveEditDocument.ComponentDefinition.Features.HoleFeatures.Item(1).HoleDiameter.Expression
    MsgBox (ThicknessBefore & vbNewLine & ThicknessAfter & vbNewLine & HoleDiaBefore & vbNewLine & HoleDiaAfter)
End Sub

[bshbsh]

Thanks, that of course works, but do I really have to construct the expressions myself to do that? Isn't there an evaluator function somewhere that returns the expression in the proper format from the value?

[bradeneuropeArthur]

change to this:

Public Sub ChangeParameters()
    Dim ThicknessBefore, ThicknessAfter, HoleDiaBefore, HoleDiaAfter As String
    ThicknessBefore = ThisApplication.ActiveEditDocument.ComponentDefinition.Thickness.Expression
    HoleDiaBefore = ThisApplication.ActiveEditDocument.ComponentDefinition.Features.HoleFeatures.Item(1).HoleDiameter.Expression
    
    ThisApplication.ActiveEditDocument.ComponentDefinition.Thickness.Expression = "0.7" & ThisApplication.ActiveEditDocument.ComponentDefinition.Thickness.Units
    ThisApplication.ActiveEditDocument.ComponentDefinition.Features.HoleFeatures.Item(1).HoleDiameter.Expression = "1.6" & ThisApplication.ActiveEditDocument.ComponentDefinition.Features.HoleFeatures.Item(1).HoleDiameter.Units
    
    'ThisApplication.ActiveEditDocument.ComponentDefinition.Features.HoleFeatures.Item(1).HoleDiameter.Units
    ThicknessAfter = ThisApplication.ActiveEditDocument.ComponentDefinition.Thickness.Expression
    HoleDiaAfter = ThisApplication.ActiveEditDocument.ComponentDefinition.Features.HoleFeatures.Item(1).HoleDiameter.Expression
    MsgBox (ThicknessBefore & vbNewLine & ThicknessAfter & vbNewLine & HoleDiaBefore & vbNewLine & HoleDiaAfter)
End Sub