changing BOMStructure via iLogic within one line

[Kay_Rethmeier]

Hi,

I'm able to change the BOM Structure within a single line from default to reference. But the other possibilities doesn't work. Any ideas to have a change within a single line?

SyntaxEditor Code Snippet, these two are working!!!!

Component.InventorComponent("MyPart").BOMStructure = BOMStructureEnum.kReferenceBOMStructure 
Component.InventorComponent("MyPart").BOMStructure = BOMStructureEnum.kDefaultBOMStructure

  But these aren't working:

SyntaxEditor Code Snippet

Component.InventorComponent("MyPart").BOMStructure = BOMStructureEnum.kPhantomBOMStructure
Component.InventorComponent("MyPart").BOMStructure = BOMStructureEnum.kNormalBOMStructure

 Thanks in advance!

Kay

[Kay_Rethmeier]

Hi agian,

OK, some next informations:

my two lines at the beginning are switching the compontents inside the assembly (manually done within the browser). 

Component.InventorComponent("MyPart").BOMStructure = BOMStructureEnum.kReferenceBOMStructure 
Component.InventorComponent("MyPart").BOMStructure = BOMStructureEnum.kDefaultBOMStructure

It isn't possible to use the other options (kInseparableBOMStructure, kPurchasedBOMStructure, kPhantomBOMStructure, kNormalBOMStructure) here. So far so good.

But maybe somone has an idea to shorten the rule from this:

Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
Dim oOccurrence As ComponentOccurrence

For Each oOccurrence In oAsmCompDef.Occurrences
	If oOccurrence.Name = "MyPart" Then
		oOccurrence.Definition.BOMStructure = kInseparableBOMStructure
	End If
Next

 to a single line. It will be perfect if a coulpe of BOM manipulations have to be done.

Ciao

Kay

[HermJan.Otterman]

Hello Kay,

maube this will help:

use sub's, the first will need to be called "Main"

SyntaxEditor Code Snippet

Sub main
	
	'one line that call an other sub
	changeToReference("MyPart")
	changeToReference("MysecondPart")
	'etc
	
End Sub
	
	
	
	
Sub changeToReference(ByVal occurrenceName As String)
		
Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition

Dim oOccurrence As ComponentOccurrence

For Each oOccurrence In oAsmCompDef.Occurrences
	If oOccurrence.Name = occurrenceName Then
		oOccurrence.BOMStructure = kReferenceBOMStructure
	End If
Next
		
End Sub