Detect a phantom inside a phantom

[Remy-intl]

Hello. 

Our ERP bug if we put a phantom assembly in a phantom assembly...

Is it possible to control this from ilogic?

How to run a rule in the top assembly and check in all levels of all assemblies below.

Thanks a lot.

[bradeneuropeArthur]

try this:

Public Sub main
	Dim a As Inventor.Application = ThisApplication
	Dim b As Inventor.AssemblyDocument = a.ActiveDocument
	Dim c As Inventor.AssemblyComponentDefinition
	
	End Sub
	
	Public Sub Loopi (a As Inventor.AssemblyDocument)
		Dim b As Inventor.ComponentDefinition = a.ComponentDefinition
		Dim occs As Inventor.ComboBoxDefinition = b.Occurrences
		Dim occ As Inventor.ComponentOccurrence
		
		Dim occdoc As Inventor.AssemblyDocument'.Document
		
		For Each occ As Inventor.ComponentOccurrence In occs
			occdoc = occ.Definition.Document
			If occdoc.DocumentType = Inventor.DocumentTypeEnum.kAssemblyDocumentObject Then
				MsgBox(occ.BOMStructure)
				Loopi(occdoc)
				End If
			Next
	
		End Sub

[Remy-intl]

Hello,

Thanks for your time.

I have an error on ligne 15. Do you have any idea?

Thanks.

[bradeneuropeArthur]

Public Sub main
	Dim a As Inventor.Application = ThisApplication
	Dim b As Inventor.AssemblyDocument = a.ActiveDocument
	Dim c As Inventor.AssemblyComponentDefinition
	
	End Sub
	
	Public Sub Loopi (a As Inventor.AssemblyDocument)
		Dim b As Inventor.ComponentDefinition = a.ComponentDefinition
		Dim occs As Inventor.ComponentDefinition = b.Occurrences
		Dim occ As Inventor.ComponentOccurrence
		
		Dim occdoc As Inventor.AssemblyDocument'.Document
		
		For Each occ As Inventor.ComponentOccurrence In occs
			occdoc = occ.Definition.Document
			If occdoc.DocumentType = Inventor.DocumentTypeEnum.kAssemblyDocumentObject Then
				MsgBox(occ.BOMStructure)
				Loopi(occdoc)
				End If
			Next
	
		End Sub

[dutt.thakar]

@Remy-intl 

I would like to update the code provided by @bradeneuropeArthur . See below, this will show you the assembly name and the corresponding BOM structure in the message box.

Public Sub Main
	Dim a As Inventor.Application = ThisApplication
	Dim b As Inventor.AssemblyDocument = a.ActiveDocument
	Dim c As Inventor.AssemblyComponentDefinition
	Call Loopi(b)
	End Sub
	
	Public Sub Loopi (a As Inventor.AssemblyDocument)
		Dim b As Inventor.ComponentDefinition = a.ComponentDefinition
		Dim occs As Inventor.ComponentOccurrences = b.Occurrences
		Dim occ As Inventor.ComponentOccurrence
		
		'.Document
		
		For Each occ In occs
			
			If occ.DefinitionDocumentType = Inventor.DocumentTypeEnum.kAssemblyDocumentObject Then
				Dim occdoc As Inventor.AssemblyDocument
				occdoc = occ.Definition.Document
				MsgBox(System.IO.Path.GetFileName(occdoc.FullFileName) & "----" & occ.BOMStructure.ToString)
				Loopi(occdoc)
				End If
			Next
	
		End Sub

 Hope this will help.

[bradeneuropeArthur]

@dutt.thakar 

Good addition/modification!