topic Sheetmetal Rules to Multi-Value List for use in iLogic in Inventor Programming Forum

Sheetmetal Rules to Multi-Value List for use in iLogic

rbraddock — Mon, 24 Jun 2019 12:50:18 GMT

I have a Sheetmetal Template File populated with a plethora of Sheetmetal Rules. I am just learning to use iLogic to streamline the work I perform and used this example code (https://synergiscadblog.com/2016/03/17/change-your-sheet-metal-rule-on-the-fly/) to modify the template used to create sheetmetal parts.

I am currently hard-coding in my iLogic each Sheetmetal Rule and creating a Multi-value list as a user parameter just like in the example.

If SHEET_METAL_SELECT = "CREATE NEW" Then
	SheetMetal.SetActiveStyle("Default")
	My_Message = "The Default Sheet Metal Rule is selected, " _
	& vbNewLine & "which requires you to create a new rule for " _
	& vbNewLine & "the Material and Size you need."
	MessageBox.Show(My_Message, "Update Sheet Metal Default Template", MessageBoxButtons.OK, MessageBoxIcon.Error)

ElseIf SHEET_METAL_SELECT = "PLATE, DIAMOND, 1/4 THK A36" Then
SheetMetal.SetActiveStyle("PLATE, DIAMOND, 1/4 THK A36")

ElseIf SHEET_METAL_SELECT = "PLATE, DIAMOND, 1/8 THK A36" Then
SheetMetal.SetActiveStyle("PLATE, DIAMOND, 1/8 THK A36")

ElseIf SHEET_METAL_SELECT = "Aluminum 0.032 (1/32) THK 5052-H32" Then
SheetMetal.SetActiveStyle("Aluminum 0.032 (1/32) THK 5052-H32") ETC. ETC.

What I would like is the iLogic Rule to populate my multi-value list with all possible SheetMetal Styles in the template, from which I can select from. In this way if I create a new sheetmetal rule in the template, it is available for me to select within the iLogic without having to manually update the code or the multi-select. Is this possible? If so, can you please get me started on the right path? I have included the SheetMetal Template file.

Randy

Re: Sheetmetal Rules to Multi-Value List for use in iLogic

JhoelForshav — Mon, 24 Jun 2019 13:50:46 GMT

Hi,

Try this code to create your multivalue parameter 🙂

Dim oDoc As PartDocument = ThisDoc.Document
Dim oDef As SheetMetalComponentDefinition = oDoc.ComponentDefinition
Dim SMArray As New ArrayList
For Each SMRule As SheetMetalStyle In oDef.SheetMetalStyles
	SMArray.Add(SMRule.Name)
Next
SMArray.Sort()
Dim oParam As Parameter
Try
	oParam = oDef.Parameters.UserParameters.Item("SHEET_METAL_SELECT")
Catch
	oParam = oDef.Parameters.UserParameters.AddByValue("SHEET_METAL_SELECT", SMArray(0), UnitsTypeEnum.kTextUnits)
End Try
MultiValue.List("SHEET_METAL_SELECT") = SMArray

Re: Sheetmetal Rules to Multi-Value List for use in iLogic

rbraddock — Mon, 24 Jun 2019 14:31:46 GMT

@JhoelForshav That works to populate the multi-value list; thank you for the prompt reply!

How do I add in the select functionality?

For example:

If SHEET_METAL_SELECT = Value From SMArray Then
SheetMetal.SetActiveStyle("Value From SMarray")

End If

iLogicVb.UpdateWhenDone = True

Randy

Re: Sheetmetal Rules to Multi-Value List for use in iLogic

rbraddock — Mon, 24 Jun 2019 15:00:18 GMT

I think I figured it out on my own:

If SHEET_METAL_SELECT = "CREATE NEW" Then
	SheetMetal.SetActiveStyle("Default")
	My_Message = "The Default Sheet Metal Rule is selected, " _
	& vbNewLine & "which requires you to create a new rule for " _
	& vbNewLine & "the Material and Size you need."
	MessageBox.Show(My_Message, "Update Sheet Metal Default Template", MessageBoxButtons.OK, MessageBoxIcon.Error)

Else
SheetMetal.SetActiveStyle(SHEET_METAL_SELECT)

End If

iLogicVb.UpdateWhenDone = True

Randy