<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: Select case won't update SheetMetal.SetActiveStyle in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/select-case-won-t-update-sheetmetal-setactivestyle/m-p/11723692#M148546</link>
    <description>&lt;P&gt;I've modify with your suggest, all work but sheetmetalstyles no.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;LI-CODE lang="general"&gt;Dim oDoc As PartDocument = ThisDoc.Document
If oDoc.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
Dim oSheetMetalComponentDef As Inventor.SheetMetalComponentDefinition = oDoc.ComponentDefinition

Select Case Materiale
Case iProperties.Material = "811151 AISI 304 sp. 0.8 SB + PVC", iProperties.Material = "811503 AISI 430 sp. 0.8 2B", iProperties.Material = "811531 AISI 430 sp. 0.8 SB + PVC", iProperties.Material = "811535 AISI 430 sp. 0.8 SB + PVC"
		oSheetMetalComponentDef.SheetMetalStyles.Item("8/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod

Case iProperties.Material = "801171 AISI 304 sp.1 2B", iProperties.Material = "811175 AISI 304 sp. 1 SB + PVC", iProperties.Material = "811541 AISI 430 sp. 1 SB + PVC", iProperties.Material = "811547 AISI 430 sp. 1 BA"
		oSheetMetalComponentDef.SheetMetalStyles.Item("10/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "801181 AISI 304 sp. 1.2 2B", iProperties.Material = "811181 AISI 304 sp. 1.2 SB + PVC"
		oSheetMetalComponentDef.SheetMetalStyles.Item("12/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("12/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811191 AISI 304 sp. 1.5 SB + PVC", iProperties.Material = "811505 AISI 430 sp. 1.5 2B", iProperties.Material = "811585 AISI 430 sp. 1.5 BA + PVC"
		oSheetMetalComponentDef.SheetMetalStyles.Item("15/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod

Case iProperties.Material = "801211 AISI 304 sp. 2 2B", iProperties.Material = "811194 AISI 304 sp. 2 SB + PVC", iProperties.Material = "811507 AISI 430 sp. 2 BA"
		oSheetMetalComponentDef.SheetMetalStyles.Item("20/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811196 AISI 304 sp. 3 SB + PVC", iProperties.Material = "811501 AISI 430 sp. 3 BA"
		oSheetMetalComponentDef.SheetMetalStyles.Item("30/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811813 ALLUMINATA sp. 0.8"
		oSheetMetalComponentDef.SheetMetalStyles.Item("8/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811817 ALLUMINATA sp. 1"
		oSheetMetalComponentDef.SheetMetalStyles.Item("10/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811819 ALLUMINATA sp. 1.5"
		oSheetMetalComponentDef.SheetMetalStyles.Item("15/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811823 ALLUMINATA sp. 2", iProperties.Material = "811931 Fe sp. 2", iProperties.Material = "811939 FE-ZINCATO sp. 2"
		oSheetMetalComponentDef.SheetMetalStyles.Item("20/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811937 Fe sp. 3", iProperties.Material = "811941 FE-ZINCATO sp. 3"
		oSheetMetalComponentDef.SheetMetalStyles.Item("30/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
End Select
eND iF&lt;/LI-CODE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;This is the old one that work like a charm:&lt;/P&gt;&lt;LI-CODE lang="general"&gt;Dim oDoc As Document
		oDoc = ThisDoc.Document
Dim oSheetMetalComponentDef As Inventor.SheetMetalComponentDefinition
Dim okUnfoldMethod As Inventor.UnfoldMethod
oSheetMetalComponentDef = oDoc.ComponentDefinition

If iProperties.Material = "801171 AISI 304 sp.1 2B"
		SheetMetal.SetActiveStyle(“10/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "801181 AISI 304 sp. 1.2 2B"
		SheetMetal.SetActiveStyle(“12/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("12/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "801211 AISI 304 sp. 2 2B"
		SheetMetal.SetActiveStyle(“20/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811151 AISI 304 sp. 0.8 SB + PVC"
		SheetMetal.SetActiveStyle(“8/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811175 AISI 304 sp. 1 SB + PVC"
		SheetMetal.SetActiveStyle(“10/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811181 AISI 304 sp. 1.2 SB + PVC"
		SheetMetal.SetActiveStyle(“12/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("12/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811191 AISI 304 sp. 1.5 SB + PVC"
		SheetMetal.SetActiveStyle(“15/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811194 AISI 304 sp. 2 SB + PVC"
		SheetMetal.SetActiveStyle(“20/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811196 AISI 304 sp. 3 SB + PVC"
		SheetMetal.SetActiveStyle(“30/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811501 AISI 430 sp. 3 BA"
		SheetMetal.SetActiveStyle(“30/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811525 AISI 430 sp. 0.8 BA"
		SheetMetal.SetActiveStyle(“8/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811531 AISI 430 sp. 0.8 SB + PVC"
		SheetMetal.SetActiveStyle(“8/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811535 AISI 430 sp. 0.8 SB + PVC"
		SheetMetal.SetActiveStyle(“8/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("18/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811541 AISI 430 sp. 1 SB + PVC"
		SheetMetal.SetActiveStyle(“10/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811547 AISI 430 sp. 1 BA"
		SheetMetal.SetActiveStyle(“10/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811505 AISI 430 sp. 1.5 2B"
		SheetMetal.SetActiveStyle(“15/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811585 AISI 430 sp. 1.5 BA + PVC"
		SheetMetal.SetActiveStyle(“15/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811587 AISI 430 sp. 2 BA"
		SheetMetal.SetActiveStyle(“20/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811813 ALLUMINATA sp. 0.8"
		SheetMetal.SetActiveStyle(“8/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811817 ALLUMINATA sp. 1"
		SheetMetal.SetActiveStyle(“10/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811819 ALLUMINATA sp. 1.5"
		SheetMetal.SetActiveStyle(“15/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811823 ALLUMINATA sp. 2"
		SheetMetal.SetActiveStyle(“20/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811931 Fe sp. 2"
		SheetMetal.SetActiveStyle(“20/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811937 Fe sp. 3"
		SheetMetal.SetActiveStyle(“30/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("12/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811939 FE-ZINCATO sp. 2"
		SheetMetal.SetActiveStyle(“20/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811941 FE-ZINCATO sp. 3"
		SheetMetal.SetActiveStyle(“30/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
End If&lt;/LI-CODE&gt;&lt;PRE&gt;&amp;nbsp;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;In the old one, i haven't declare&amp;nbsp;SheetMetal.SetActiveStyle, but it work.&lt;/P&gt;</description>
    <pubDate>Thu, 02 Feb 2023 09:31:34 GMT</pubDate>
    <dc:creator>Neuzzo</dc:creator>
    <dc:date>2023-02-02T09:31:34Z</dc:date>
    <item>
      <title>Select case won't update SheetMetal.SetActiveStyle</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/select-case-won-t-update-sheetmetal-setactivestyle/m-p/11723471#M148532</link>
      <description>&lt;P&gt;Hi, on this macro when i change material from material list, it update all my sheet parameter, but not set "SheetMetal.SetActiveStyle". What i'm doing worng?&lt;BR /&gt;&lt;BR /&gt;Thanks&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;LI-CODE lang="general"&gt;Dim oDoc As Document
		oDoc = ThisDoc.Document
Dim oSheetMetalComponentDef As Inventor.SheetMetalComponentDefinition
Dim okUnfoldMethod As Inventor.UnfoldMethod
oSheetMetalComponentDef = oDoc.ComponentDefinition

Select Case Materiale
Case iProperties.Material = "811151 AISI 304 sp. 0.8 SB + PVC", iProperties.Material = "811503 AISI 430 sp. 0.8 2B", iProperties.Material = "811531 AISI 430 sp. 0.8 SB + PVC", iProperties.Material = "811535 AISI 430 sp. 0.8 SB + PVC"
		SheetMetal.SetActiveStyle(“8/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod

Case iProperties.Material = "801171 AISI 304 sp.1 2B", iProperties.Material = "811175 AISI 304 sp. 1 SB + PVC", iProperties.Material = "811541 AISI 430 sp. 1 SB + PVC", iProperties.Material = "811547 AISI 430 sp. 1 BA"
		SheetMetal.SetActiveStyle(“10/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "801181 AISI 304 sp. 1.2 2B", iProperties.Material = "811181 AISI 304 sp. 1.2 SB + PVC"
		SheetMetal.SetActiveStyle(“12/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("12/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811191 AISI 304 sp. 1.5 SB + PVC", iProperties.Material = "811505 AISI 430 sp. 1.5 2B", iProperties.Material = "811585 AISI 430 sp. 1.5 BA + PVC"
		SheetMetal.SetActiveStyle(“15/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod

Case iProperties.Material = "801211 AISI 304 sp. 2 2B", iProperties.Material = "811194 AISI 304 sp. 2 SB + PVC", iProperties.Material = "811507 AISI 430 sp. 2 BA"
		SheetMetal.SetActiveStyle(“20/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811196 AISI 304 sp. 3 SB + PVC", iProperties.Material = "811501 AISI 430 sp. 3 BA"
		SheetMetal.SetActiveStyle(“30/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811813 ALLUMINATA sp. 0.8"
		SheetMetal.SetActiveStyle(“8/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811817 ALLUMINATA sp. 1"
		SheetMetal.SetActiveStyle(“10/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811819 ALLUMINATA sp. 1.5"
		SheetMetal.SetActiveStyle(“15/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811823 ALLUMINATA sp. 2", iProperties.Material = "811931 Fe sp. 2", iProperties.Material = "811939 FE-ZINCATO sp. 2"
		SheetMetal.SetActiveStyle(“20/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811937 Fe sp. 3", iProperties.Material = "811941 FE-ZINCATO sp. 3"
		SheetMetal.SetActiveStyle(“30/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
End Select&lt;/LI-CODE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Thu, 02 Feb 2023 07:45:49 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/select-case-won-t-update-sheetmetal-setactivestyle/m-p/11723471#M148532</guid>
      <dc:creator>Neuzzo</dc:creator>
      <dc:date>2023-02-02T07:45:49Z</dc:date>
    </item>
    <item>
      <title>Re: Select case won't update SheetMetal.SetActiveStyle</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/select-case-won-t-update-sheetmetal-setactivestyle/m-p/11723566#M148537</link>
      <description>&lt;PRE&gt;&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;PartDocument&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;SubType&lt;/SPAN&gt; = &lt;SPAN&gt;"{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oSheetMetalComponentDef&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN&gt;SheetMetalComponentDefinition&lt;/SPAN&gt; = &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinition&lt;/SPAN&gt;
&lt;SPAN&gt;oSheetMetalComponentDef&lt;/SPAN&gt;.&lt;SPAN&gt;SheetMetalStyles&lt;/SPAN&gt;.&lt;SPAN&gt;Item&lt;/SPAN&gt;(&lt;SPAN&gt;"Default"&lt;/SPAN&gt;).&lt;SPAN&gt;Activate&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;/PRE&gt;&lt;P&gt;First, oDoc as Document won't work, there is no componentdefinition within it. use PartDocument&lt;/P&gt;&lt;P&gt;Then check if it is a sheetmetal doc with subtype to prevent errors.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I can't see 'Sheetmetal' declared in your script and with object model i couldnt find 'setactivestyle' anywhere.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Thu, 02 Feb 2023 08:25:53 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/select-case-won-t-update-sheetmetal-setactivestyle/m-p/11723566#M148537</guid>
      <dc:creator>Cadkunde.nl</dc:creator>
      <dc:date>2023-02-02T08:25:53Z</dc:date>
    </item>
    <item>
      <title>Re: Select case won't update SheetMetal.SetActiveStyle</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/select-case-won-t-update-sheetmetal-setactivestyle/m-p/11723692#M148546</link>
      <description>&lt;P&gt;I've modify with your suggest, all work but sheetmetalstyles no.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;LI-CODE lang="general"&gt;Dim oDoc As PartDocument = ThisDoc.Document
If oDoc.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
Dim oSheetMetalComponentDef As Inventor.SheetMetalComponentDefinition = oDoc.ComponentDefinition

Select Case Materiale
Case iProperties.Material = "811151 AISI 304 sp. 0.8 SB + PVC", iProperties.Material = "811503 AISI 430 sp. 0.8 2B", iProperties.Material = "811531 AISI 430 sp. 0.8 SB + PVC", iProperties.Material = "811535 AISI 430 sp. 0.8 SB + PVC"
		oSheetMetalComponentDef.SheetMetalStyles.Item("8/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod

Case iProperties.Material = "801171 AISI 304 sp.1 2B", iProperties.Material = "811175 AISI 304 sp. 1 SB + PVC", iProperties.Material = "811541 AISI 430 sp. 1 SB + PVC", iProperties.Material = "811547 AISI 430 sp. 1 BA"
		oSheetMetalComponentDef.SheetMetalStyles.Item("10/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "801181 AISI 304 sp. 1.2 2B", iProperties.Material = "811181 AISI 304 sp. 1.2 SB + PVC"
		oSheetMetalComponentDef.SheetMetalStyles.Item("12/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("12/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811191 AISI 304 sp. 1.5 SB + PVC", iProperties.Material = "811505 AISI 430 sp. 1.5 2B", iProperties.Material = "811585 AISI 430 sp. 1.5 BA + PVC"
		oSheetMetalComponentDef.SheetMetalStyles.Item("15/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod

Case iProperties.Material = "801211 AISI 304 sp. 2 2B", iProperties.Material = "811194 AISI 304 sp. 2 SB + PVC", iProperties.Material = "811507 AISI 430 sp. 2 BA"
		oSheetMetalComponentDef.SheetMetalStyles.Item("20/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811196 AISI 304 sp. 3 SB + PVC", iProperties.Material = "811501 AISI 430 sp. 3 BA"
		oSheetMetalComponentDef.SheetMetalStyles.Item("30/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811813 ALLUMINATA sp. 0.8"
		oSheetMetalComponentDef.SheetMetalStyles.Item("8/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811817 ALLUMINATA sp. 1"
		oSheetMetalComponentDef.SheetMetalStyles.Item("10/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811819 ALLUMINATA sp. 1.5"
		oSheetMetalComponentDef.SheetMetalStyles.Item("15/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811823 ALLUMINATA sp. 2", iProperties.Material = "811931 Fe sp. 2", iProperties.Material = "811939 FE-ZINCATO sp. 2"
		oSheetMetalComponentDef.SheetMetalStyles.Item("20/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case iProperties.Material = "811937 Fe sp. 3", iProperties.Material = "811941 FE-ZINCATO sp. 3"
		oSheetMetalComponentDef.SheetMetalStyles.Item("30/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
End Select
eND iF&lt;/LI-CODE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;This is the old one that work like a charm:&lt;/P&gt;&lt;LI-CODE lang="general"&gt;Dim oDoc As Document
		oDoc = ThisDoc.Document
Dim oSheetMetalComponentDef As Inventor.SheetMetalComponentDefinition
Dim okUnfoldMethod As Inventor.UnfoldMethod
oSheetMetalComponentDef = oDoc.ComponentDefinition

If iProperties.Material = "801171 AISI 304 sp.1 2B"
		SheetMetal.SetActiveStyle(“10/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "801181 AISI 304 sp. 1.2 2B"
		SheetMetal.SetActiveStyle(“12/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("12/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "801211 AISI 304 sp. 2 2B"
		SheetMetal.SetActiveStyle(“20/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811151 AISI 304 sp. 0.8 SB + PVC"
		SheetMetal.SetActiveStyle(“8/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811175 AISI 304 sp. 1 SB + PVC"
		SheetMetal.SetActiveStyle(“10/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811181 AISI 304 sp. 1.2 SB + PVC"
		SheetMetal.SetActiveStyle(“12/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("12/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811191 AISI 304 sp. 1.5 SB + PVC"
		SheetMetal.SetActiveStyle(“15/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811194 AISI 304 sp. 2 SB + PVC"
		SheetMetal.SetActiveStyle(“20/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811196 AISI 304 sp. 3 SB + PVC"
		SheetMetal.SetActiveStyle(“30/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811501 AISI 430 sp. 3 BA"
		SheetMetal.SetActiveStyle(“30/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811525 AISI 430 sp. 0.8 BA"
		SheetMetal.SetActiveStyle(“8/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811531 AISI 430 sp. 0.8 SB + PVC"
		SheetMetal.SetActiveStyle(“8/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811535 AISI 430 sp. 0.8 SB + PVC"
		SheetMetal.SetActiveStyle(“8/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("18/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811541 AISI 430 sp. 1 SB + PVC"
		SheetMetal.SetActiveStyle(“10/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811547 AISI 430 sp. 1 BA"
		SheetMetal.SetActiveStyle(“10/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811505 AISI 430 sp. 1.5 2B"
		SheetMetal.SetActiveStyle(“15/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811585 AISI 430 sp. 1.5 BA + PVC"
		SheetMetal.SetActiveStyle(“15/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811587 AISI 430 sp. 2 BA"
		SheetMetal.SetActiveStyle(“20/10 In aria - 304/430”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811813 ALLUMINATA sp. 0.8"
		SheetMetal.SetActiveStyle(“8/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811817 ALLUMINATA sp. 1"
		SheetMetal.SetActiveStyle(“10/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811819 ALLUMINATA sp. 1.5"
		SheetMetal.SetActiveStyle(“15/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811823 ALLUMINATA sp. 2"
		SheetMetal.SetActiveStyle(“20/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811931 Fe sp. 2"
		SheetMetal.SetActiveStyle(“20/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811937 Fe sp. 3"
		SheetMetal.SetActiveStyle(“30/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("12/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811939 FE-ZINCATO sp. 2"
		SheetMetal.SetActiveStyle(“20/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
	Else If iProperties.Material = "811941 FE-ZINCATO sp. 3"
		SheetMetal.SetActiveStyle(“30/10 In aria - FE/ZN/ALLUMINATA”)
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
End If&lt;/LI-CODE&gt;&lt;PRE&gt;&amp;nbsp;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;In the old one, i haven't declare&amp;nbsp;SheetMetal.SetActiveStyle, but it work.&lt;/P&gt;</description>
      <pubDate>Thu, 02 Feb 2023 09:31:34 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/select-case-won-t-update-sheetmetal-setactivestyle/m-p/11723692#M148546</guid>
      <dc:creator>Neuzzo</dc:creator>
      <dc:date>2023-02-02T09:31:34Z</dc:date>
    </item>
    <item>
      <title>Re: Select case won't update SheetMetal.SetActiveStyle</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/select-case-won-t-update-sheetmetal-setactivestyle/m-p/11723707#M148548</link>
      <description>&lt;P&gt;My mistake. The error is in "Case" declaration.&lt;/P&gt;&lt;P&gt;This is the correct one if someone need it:&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;LI-CODE lang="general"&gt;Dim oDoc As PartDocument = ThisDoc.Document
Dim oSheetMetalComponentDef As Inventor.SheetMetalComponentDefinition = oDoc.ComponentDefinition

Select Case iProperties.Material
Case "811151 AISI 304 sp. 0.8 SB + PVC", "811503 AISI 430 sp. 0.8 2B", "811531 AISI 430 sp. 0.8 SB + PVC", "811535 AISI 430 sp. 0.8 SB + PVC"
		oSheetMetalComponentDef.SheetMetalStyles.Item("8/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod

Case "801171 AISI 304 sp.1 2B", "811175 AISI 304 sp. 1 SB + PVC", "811541 AISI 430 sp. 1 SB + PVC", "811547 AISI 430 sp. 1 BA"
		oSheetMetalComponentDef.SheetMetalStyles.Item("10/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case "801181 AISI 304 sp. 1.2 2B", "811181 AISI 304 sp. 1.2 SB + PVC"
		oSheetMetalComponentDef.SheetMetalStyles.Item("12/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("12/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case "811191 AISI 304 sp. 1.5 SB + PVC", "811505 AISI 430 sp. 1.5 2B", "811585 AISI 430 sp. 1.5 BA + PVC"
		oSheetMetalComponentDef.SheetMetalStyles.Item("15/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod

Case "801211 AISI 304 sp. 2 2B", "811194 AISI 304 sp. 2 SB + PVC", "811507 AISI 430 sp. 2 BA"
		oSheetMetalComponentDef.SheetMetalStyles.Item("20/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case "811196 AISI 304 sp. 3 SB + PVC", "811501 AISI 430 sp. 3 BA"
		oSheetMetalComponentDef.SheetMetalStyles.Item("30/10 In aria - 304/430").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - 304/430")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case "811813 ALLUMINATA sp. 0.8"
		oSheetMetalComponentDef.SheetMetalStyles.Item("8/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("8/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case "811817 ALLUMINATA sp. 1"
		oSheetMetalComponentDef.SheetMetalStyles.Item("10/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("10/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case "811819 ALLUMINATA sp. 1.5"
		oSheetMetalComponentDef.SheetMetalStyles.Item("15/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("15/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case "811823 ALLUMINATA sp. 2", "811931 Fe sp. 2", "811939 FE-ZINCATO sp. 2"
		oSheetMetalComponentDef.SheetMetalStyles.Item("20/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("20/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
		
Case "811937 Fe sp. 3", "811941 FE-ZINCATO sp. 3"
		oSheetMetalComponentDef.SheetMetalStyles.Item("30/10 In aria - FE/ZN/ALLUMINATA").Activate
		okUnfoldMethod = oSheetMetalComponentDef.UnfoldMethods.Item("30/10 In aria - FE/ZN/ALLUMINATA")
		oSheetMetalComponentDef.UnfoldMethod = okUnfoldMethod
End Select&lt;/LI-CODE&gt;</description>
      <pubDate>Thu, 02 Feb 2023 09:40:22 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/select-case-won-t-update-sheetmetal-setactivestyle/m-p/11723707#M148548</guid>
      <dc:creator>Neuzzo</dc:creator>
      <dc:date>2023-02-02T09:40:22Z</dc:date>
    </item>
  </channel>
</rss>

