03-21-2017
04:54 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-21-2017
04:54 AM
Hey Kenny, here you go:
Sub Main()
Dim oDoc As Object = ThisApplication.ActiveEditObject
If Not TypeOf oDoc Is PartDocument Then Exit Sub
Dim oUP As UserParameters = oDoc.ComponentDefinition.Parameters.UserParameters
Dim oUP1 As UserParameter = oUP.AddByValue("CMF_COORD_X", 0, UnitsTypeEnum.kFootLengthUnits)
Dim oUP2 As UserParameter = oUP.AddByValue("CMF_COORD_Y", 0, UnitsTypeEnum.kFootLengthUnits)
Dim oUP3 As UserParameter = oUP.AddByValue("CMF_COORD_Z", 0, UnitsTypeEnum.kFootLengthUnits)
End Sub
Consider using "Accept as Solution" / "Kudos" if you find this helpful.
- - - - - - - - - - - - - - -
Regards,
Mike
"Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live." - John F. Woods
- - - - - - - - - - - - - - -
Regards,
Mike
"Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live." - John F. Woods