08-12-2022
05:52 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-12-2022
05:52 PM
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 TryThanks