iLogic to see if Custom Parameter is set to Export, then either Set to Export or not.

[arkelec]

Is this possible?

A custom parameter xLength already exists in a part file, but may or may not be set to export.

I'd like to check, by running some code launched from a form button & then set the status.

What I can't work out, is how to read a specific custom parameter (the correct syntax).

Thanks in advance.

[arkelec · Accepted solution]

Found the answer (well partially):

Sub Main()
'-------------------------------------------------------------------------
'Vars
'-------------------------------------------------------------------------
'
Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument
Dim oFormat As CustomPropertyFormat
'
'
'============ Custom User Parameter Property Format =============
'
	oParam = oDoc.ComponentDefinition.Parameters("xLength")
'
	If oParam.ExposedAsProperty = False Then 'Flag for Export
		oParam.ExposedAsProperty = True 
		oFormat = oParam.CustomPropertyFormat
		oFormat.PropertyType = Inventor.CustomPropertyTypeEnum.kTextPropertyType
		oFormat.Precision = Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision
		oFormat.ShowUnitsString = False
		oFormat.ShowLeadingZeros = False
		oFormat.ShowTrailingZeros = False		
'
	Else If oParam.ExposedAsProperty = True Then 'Flag for Export
		oFormat = oParam.CustomPropertyFormat
		oFormat.PropertyType = Inventor.CustomPropertyTypeEnum.kTextPropertyType
		oFormat.Precision = Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision
		oFormat.ShowUnitsString = False
		oFormat.ShowLeadingZeros = False
		oFormat.ShowTrailingZeros = False	

	End If
'
End Sub

[bradeneuropeArthur · Accepted solution]

Public Sub Main
	Dim a As Inventor.Application = ThisApplication	
	
 	Dim p As Inventor.PartDocument = a.ActiveDocument
	
	Dim c As Inventor.PartComponentDefinition = p.ComponentDefinition
	
	MsgBox (c.Parameters.Item("xLength").ExposedAsProperty)
	
	End Sub