Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
j.romo
in reply to: A.Acheson

Thank you, I have used this as a Ilogic rule and it works, but now im trying to make my first AddIn in Visual studio. and I really have a hard time passing from VBA to .Net. I have solved it by using the Inventor Application Object, you were right...

Public Sub SampleCommandFunction2()
        Dim oPartDoc As PartDocument = g_inventorApplication.ActiveDocument
        Dim userParams As UserParameters = oPartDoc.ComponentDefinition.Parameters.UserParameters
        Dim newParam As UserParameter ' Placeholder
        Dim oFormat As CustomPropertyFormat
        Dim oParam As Parameters

        'LENGTH
        Try
            oParam = oPartDoc.ComponentDefinition.Parameters("LENGTH")
        Catch   'If the parameter was not found, then create a new one.
            newParam = userParams.AddByExpression("LENGTH", 0, "mm") ' Create the Parameter as per above
            newParam.ExposedAsProperty = True 'Flag for Export
            oFormat = newParam.CustomPropertyFormat 'For some reason or other this line is needed to enable the following formatting
            oFormat.PropertyType = Inventor.CustomPropertyTypeEnum.kTextPropertyType
            oFormat.Precision = Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision 'Set one decimal place
            'oFormat.Units="mm" 'Units
            oFormat.ShowUnitsString = False
            oFormat.ShowLeadingZeros = False
            oFormat.ShowTrailingZeros = False
        End Try

  Thanks