Mark parameters for Export

[Jesper_S]

Hi.

Is there a way using iLogic to mark renamed model parameters to be exported to custom iProperty?

I have a code that exports ALL parameters but i want to export just the parameters that Dont have "d" in the beginning of the name. (all model parameters as you all know are named d0, d1, d2 and so on).

//Jesper

[Ktomberlin]

You would use: Parameter.Param("YOURVALUE").ExposedAsProperty = True
for a single value. For a list of them you could do it several ways, build an array, a For statement (For Each oParam In )

[MechMachineMan]

If oParameter.Name Like "d*"
'Do not export
Else
'Export
End if

[Jesper_S]

I have managed to export parameters with specific names and change the property format to what i want.

But i dont know how to get it to export all my named modelparameters.

Im very new to iLogic and how it works.

This is what i managed to put together.

SyntaxEditor Code Snippet

oParameter = Parameter.Param("Height")

If oParameter.Name Like "Height"
oParameter.ExposedAsProperty = True

End If

Dim oFormat As CustomPropertyFormat
oFormat=oParameter.CustomPropertyFormat

oFormat.Units="mm"
oFormat.ShowUnitsString=False
'set to show/not show the unit string (use True to show)
oFormat.ShowUnitsString=False
'set to show/not show the trailing zeros (use True to show)
oFormat.ShowTrailingZeros = False
'set to show/not show the leading zeros (use True to show)
oFormat.ShowLeadingZeros = False

//Jesper 

[MechMachineMan · Accepted solution]

Dim oCompDef As ComponentDefinition

Dim oParameter As Parameter

oCompDef = ThisApplication.ActiveDocument.ComponentDefinition

oModelP=oCompDef.Parameters.ModelParameters

For Each oParameter in oModelP
'If oParameter.Renamed=True

oParameter.ExposedAsProperty=True
'SVar.oList.Add(oParameter.Name)
'End If
Next

[Jesper_S]

Thanks. That worked like a charm.

But now my code that changes the Custom Property Format doesnt work and i dont know whats wrong.

Getting :

Error in rule: Rule2, in document: Part4

Object reference not set to an instance of an object.

SyntaxEditor Code Snippet

Dim oCompDef As ComponentDefinition
Dim oParameter As Parameter

oCompDef = ThisApplication.ActiveDocument.ComponentDefinition
 
oModelP=oCompDef.Parameters.ModelParameters
 
For Each oParameter in oModelP
If oParameter.Renamed=True
oParameter.ExposedAsProperty=True
End If

Next

Dim oFormat As CustomPropertyFormat
oFormat=oParameter.CustomPropertyFormat

oFormat.Units="mm"

oFormat.ShowUnitsString=False

oFormat.ShowTrailingZeros = False

oFormat.ShowLeadingZeros = False

Whats wrong?

//Jesper 

[MechMachineMan]

First glance I can't see anything obvious. Put a message box in and move
it don't line by line, running code in between to do a manual debug.

[Jesper_S]

SyntaxEditor Code Snippet

Dim oCompDef As ComponentDefinition
Dim oParameter As Parameter

oCompDef = ThisApplication.ActiveDocument.ComponentDefinition
 
oModelP=oCompDef.Parameters.ModelParameters
 
For Each oParameter in oModelP
If oParameter.Renamed=True
oParameter.ExposedAsProperty=True
End If

Next

Dim oFormat As CustomPropertyFormat
oFormat=oParameter.CustomPropertyFormat

'oFormat.PropertyType=Inventor.CustomPropertyTypeEnum.kTextPropertyType'oFormat.Precision=Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision'oFormat.Units="mm"'set to show/not show the unit string (use True to show)'oFormat.ShowUnitsString=False'set to show/not show the trailing zeros (use True to show)'oFormat.ShowTrailingZeros = False'set to show/not show the leading zeros (use True to show)'oFormat.ShowLeadingZeros = False

This works but as soon as i add one more line, doesnt matter witch one of the "oFormat" lines i get the error.

Error in rule: Rule2, in document: Part4.ipt

Object reference not set to an instance of an object.

[MechMachineMan]

Move all of the format stuff into the if statement; you can only format
parameters that are exposed.

[Jesper_S]

Many thanks. Worked.

SyntaxEditor Code Snippet

Dim oCompDef As ComponentDefinition
Dim oParameter As Parameter

oCompDef = ThisApplication.ActiveDocument.ComponentDefinition
 
oModelP=oCompDef.Parameters.ModelParameters
 
For Each oParameter in oModelP
If oParameter.Renamed=True
oParameter.ExposedAsProperty=True

Dim oFormat As CustomPropertyFormat
oFormat=oParameter.CustomPropertyFormat

oFormat.PropertyType=Inventor.CustomPropertyTypeEnum.kTextPropertyType
oFormat.Precision=Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision
oFormat.Units="mm"

oFormat.ShowUnitsString=False

oFormat.ShowTrailingZeros = False

oFormat.ShowLeadingZeros = False

End If

Next