iLogic rule to mark parameter as exported

[Anonymous]

I am looking for an iLogic code to mark a specific user parameter in each part and subassembly to key, export, and set the "custom property type" under the equation column to be fractional instead of decimal with 1/32" precision in one all encompassing assembly (that way I don't have to run this code in each individual part, just once in the main assembly). The parameter is called PARTLENGTH and I have kind of a general code idea here:

'Dim oDoc As AssemblyDocument
Dim oDoc As PartDocument = ThisDoc.Document 'of : oDoc as AssemblyDocumment = ThisDoc.Document

'nummerieke parameter
Try
prop = oDoc.ComponentDefinition.Parameters.UserParameters.item ("PARTLENGTH")
Catch
End Try

param =Parameter.Param("PARTLENGTH") 
param.ExposedAsProperty = True 

'param.CustomPropertyFormat.Precision = kThreeDecimalPlacesPrecision 
param.CustomPropertyFormat.ShowTrailingZeros = False 
param.CustomPropertyFormat.ShowLeadingZeros = False 
param.CustomPropertyFormat.ShowUnitsString = False 
'param.CustomPropertyFormat.Units = "in" 




How close is this rule to being correct? I'm afraid to run it

[MechMachineMan]

Make a test document and try er out!

[Milan_Nosil]

It works! Thank you very much 😉

[Anonymous]

Hi. I have the same issue for user parameter. Would u shere the script w/ me?

[WCrihfield · Accepted solution]

@Anonymous 

Are you looking for something like this?

Dim oDocType As DocumentTypeEnum = ThisApplication.ActiveDocumentType
Dim oParams As Parameters
If oDocType = DocumentTypeEnum.kPartDocumentObject Or _
	oDocType = DocumentTypeEnum.kAssemblyDocumentObject Then
	oParams = ThisApplication.ActiveDocument.ComponentDefinition.Parameters
ElseIf oDocType = DocumentTypeEnum.kDrawingDocumentObject Then
	oParams = ThisDrawing.Document.Parameters
End If
Dim oUParams As UserParameters = oParams.UserParameters
Dim oUParam As UserParameter
Dim oParamName As String = "Param_Name"
'Dim oParamName As String = InputBox("Enter a parameter name.","","")
Dim oExists As Boolean 'false by default
For Each oUParam In oUParams
	If oUParam.Name = oName Then
		oExists = True
		oUParam.IsKey = True
		oUParam.ExposedAsProperty = True
		Dim oCPF As CustomPropertyFormat = oUParam.CustomPropertyFormat
		oCPF.PropertyType = Inventor.CustomPropertyTypeEnum.kNumberPropertyType
		oCPF.Units = Inventor.UnitsTypeEnum.kInchLengthUnits
		oCPF.Precision = Inventor.CustomPropertyPrecisionEnum.kEightDecimalPlacesPrecision
		'oCPF.Precision = Inventor.CustomPropertyPrecisionEnum.kSixteenthsFractionalLengthPrecision
	End If
Next
If oExists = False Then
	MsgBox("That parameter was not found.",,"")
End If

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click (LIKE or KUDOS) 👍.

If you have time, please... Vote For My IDEAS 💡or you can Explore My CONTRIBUTIONS

Inventor 2021 Help | Inventor Forum | Inventor Customization Forum | Inventor Ideas Forum