02-18-2022
01:48 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
02-18-2022
01:48 PM
The value was written to a custom iProperty. But if you want you can write it to a user parameter like this:
Dim volume = iProperties.Volume Dim side1 = volume ^ (1 / 3) Dim uom = ThisDoc.Document.UnitsOfMeasure Dim sideConverted = uom.ConvertUnits(side1, UnitsTypeEnum.kDefaultDisplayLengthUnits, UnitsTypeEnum.kInchLengthUnits) Dim volumeConverted = (sideConverted ^ 3) / 144 Dim doc As PartDocument = ThisDoc.Document Dim parameters = doc.ComponentDefinition.Parameters.UserParameters Try Dim para = parameters.Item("VolumeBrdFt") para.Value = volumeConverted Catch ex As Exception parameters.AddByValue("VolumeBrdFt", volumeConverted, "ul") End Try
Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Blog: hjalte.nl - github.com