VBA can't use component occurrence as argument of a function

[Anonymous]

Hello,

 I am trying to loop trough an assembly with multiple subassemblies and parts, and I can't manage to use the componentoccurence as an argument of the recursive function LoopAssembly (oPart)

I always get:

run-time error '438'
Object dosen't support this property or method

I have also tried this by looping trough each Bomrow of a BOM, and i had the same issue when passing the Bomrow as an argument.

I would appreciate some help in this issue.

Sub InspectAssembly()

Dim oApp As AssemblyDocument
Set oApp = ThisApplication.ActiveDocument

Dim oPart As ComponentOccurrence

For Each oPart In oApp.ComponentDefinition.Occurrences
    MsgBox oPart.Name
    If oPart.SubOccurrences.Count > 0 Then LoopAssembly (oPart)
Next
End Sub

Function LoopAssembly (Asse As ComponentOccurrence)

Dim oPartfunc As ComponentOccurrence

For Each oPartfunc In Asse.SubOccurrences
     MessageBox.Show (oPartfunc.Name)
If oPartfunc.SubOccurrences.Count > 0 Then LoopAssembly (oPartfunc)
Next

End Function

Thank you

[bradeneuropeArthur]

For Each oPart as object In oApp.ComponentDefinition.Occurrences
    MsgBox oPart.Name
    If oPart.SubOccurrences.Count > 0 Then LoopAssembly (oPart)
Next
End Sub

[dgreatice · Accepted solution]

You forgot"End If".

Sub InspectAssembly()

Dim oApp As AssemblyDocument
Set oApp = ThisApplication.ActiveDocument

Dim oPart As ComponentOccurrence

For Each oPart In oApp.ComponentDefinition.Occurrences
MsgBox oPart.Name
If oPart.SubOccurrences.Count > 0 Then

Call LoopAssembly (oPart)

End If
Next
End Sub

Function LoopAssembly (Asse As ComponentOccurrence)

Dim oPartfunc As ComponentOccurrence

For Each oPartfunc In Asse.SubOccurrences
MessageBox.Show (oPartfunc.Name)
If oPartfunc.SubOccurrences.Count > 0 Then

Call LoopAssembly (oPartfunc)

End if
Next

End Function

[#4 · Accepted solution]

Sub InspectAssembly()

Dim oApp As AssemblyDocument
Set oApp = ThisApplication.ActiveDocument

Dim oPart As ComponentOccurrence

For Each oPart In oApp.ComponentDefinition.Occurrences
MsgBox oPart.Name
If oPart.SubOccurrences.Count > 0 Then

Call LoopAssembly (oPart)

End If
Next
End Sub

Function LoopAssembly (Asse As ComponentOccurrence)

Dim oPartfunc As ComponentOccurrence

For Each oPartfunc In Asse.SubOccurrences
MessageBox.Show (oPartfunc.Name)
If oPartfunc.SubOccurrences.Count > 0 Then

Call LoopAssembly (oPartfunc)

End if
Next

End Function

[Anonymous]

Hello,

It doesn't work. I had to change the sintax as "For Each oPart as object" doesn't work on VBA, and used Dim oPart as Object instead of component occurence,. But the result was the same, unable to pass oPart as an argument.

Thank you

[Anonymous]

Hello,

That is not the problem. Actually you don't need to use end if, if you are just writting one line of code ahead of then.

Thank you anyway for the attention

[dgreatice]

Did you see my red highlight?

When I try you code, same error are show.

[bradeneuropeArthur]

Public Sub main()

Dim a As Application
Set a = ThisApplication

Dim b As AssemblyDocument
Set b = a.ActiveDocument

Call InspectAssembly(b)
End Sub
Sub InspectAssembly(oApp As AssemblyDocument)

Dim oPart As ComponentOccurrence
Dim aascom As AssemblyComponentDefinition
Dim partComp As PartComponentDefinition

Set aascom = oApp.ComponentDefinition
For Each oPart In aascom.Occurrences
    MsgBox oPart.Name
    
    If oPart.DefinitionDocumentType = kAssemblyDocumentObject Then
    'LoopAssembly (oPart.)
    InspectAssembly (oPart.Definition.Document)
    End If
    'If oPart.SubOccurrences.Count > 0 Then
    
    
    'End If
Next
End Sub

[Anonymous]

Hello,

Thank you for the tip. Using Call solved my problem.

I was trying to understand your end if reference, that my eyes didn't see  the "Call" word 

This works like a charm now.

Sub InspectAssembly()

Dim oApp As AssemblyDocument
Set oApp = ThisApplication.ActiveDocument
Dim oPart As ComponentOccurrence

For Each oPart In oApp.ComponentDefinition.Occurrences
MsgBox oPart.Name
If oPart.SubOccurrences.Count > 0 Then Call LoopAssembly(oPart)
Next

End Sub


Function LoopAssembly(Asse As ComponentOccurrence)

Dim oPartfunc As Inventor.ComponentOccurrence
For Each oPartfunc In Asse.SubOccurrences
MsgBox (oPartfunc.Name)
If oPartfunc.SubOccurrences.Count > 0 Then Call LoopAssembly(oPartfunc)
Next

End Function