iLogic Error

[Anonymous]

Can anyone run this code? Do you get an error? If an error occurs, how is said error corrected?

SyntaxEditor Code Snippet

Public Sub Main()

    ' Get the active assembly. 
    Dim oAsmDoc As AssemblyDocument 
    oAsmDoc = ThisApplication.ActiveDocument 
    
    
    Call TraverseAssembly(oAsmDoc.ComponentDefinition.Occurrences, 1)

End Sub 

Private Sub TraverseAssembly(Occurrences As ComponentOccurrences, _ 
                             Level As Integer) 
    
    Dim oOcc As ComponentOccurrence 
    For Each oOcc In Occurrences 
    
    If oOcc.Definition.BOMStructure = BOMStructureEnum.kPurchasedBOMStructure
         oOcc.Definition.Document.PropertySets.Item("Inventor User Defined Properties").Item("WO#").Value = "S"
    End If
    
        ' Check to see if this occurrence represents a subassembly 
        ' and recursively call this function to traverse through it. 
        If oOcc.DefinitionDocumentType = kAssemblyDocumentObject Then
            Call TraverseAssembly(oOcc.SubOccurrences, Level + 1) 
        End If 
    Next
End Sub

[MechMachineMan]

Did you get an error running this code, or why are you asking?

[Anonymous]

yes

[Anonymous]

and

[MechMachineMan]

Try running it from your master LOD and see if that makes any difference

[Anonymous]

same result

[Anonymous]

By the way, I am grateful for the help.

[MechMachineMan]

Try this:

Public Sub Main()

    ' Get the active assembly. 
    Dim oAsmDoc As AssemblyDocument 
    oAsmDoc = ThisApplication.ActiveDocument 
    
    
    Call TraverseAssembly(oAsmDoc.ComponentDefinition.Occurrences, 1)

End Sub 

Private Sub TraverseAssembly(Occurrences As ComponentOccurrences, _ 
                             Level As Integer) 
    
    Dim oOcc As ComponentOccurrence 
    For Each oOcc In Occurrences 
    
    If oOcc.Definition.BOMStructure = BOMStructureEnum.kPurchasedBOMStructure
         Try
             oOcc.Definition.Document.PropertySets.Item("Inventor User Defined Properties").Item("WO#").Value = "S"
         Catch
             If MsgBox("iProp WO# does not exist. Create?",MsgBoxStyle.YesNo,"Rules") = MsgBoxResult.Yes
		oOcc.Definition.Document.PropertySets.Item("Inventor User Defined Properties").Add("S", "WO#")
             End if
         End Try
    End if

 ' Check to see if this occurrence represents a subassembly 
        ' and recursively call this function to traverse through it. 
        If oOcc.DefinitionDocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
            Call TraverseAssembly(oOcc.SubOccurrences, Level + 1) 
        End If 
    Next
End Sub

[Anonymous]

Threw up errors again. Here is a screen shot of that information.

[MechMachineMan]

I have a really good idea what's wrong. But I'm going to let you figure it out.

Look at your error windows and read.

One of the lines sticks out as familiar - "get.BomStructure"

This tells us it's either that function or something invoked by/related to that function.

Run a basic name check of the occurrences and let me know how that goes.

Let me know if you see anything weird.

Public Sub Main()

    ' Get the active assembly. 
    Dim oAsmDoc As AssemblyDocument 
    oAsmDoc = ThisApplication.ActiveDocument 
    
    
    Call TraverseAssembly(oAsmDoc.ComponentDefinition.Occurrences, 1)

End Sub 

Private Sub TraverseAssembly(Occurrences As ComponentOccurrences, _ 
                             Level As Integer) 
    
    Dim oOcc As ComponentOccurrence 
    For Each oOcc In Occurrences 
              MsgBox(oOcc.Name
 
 ' Check to see if this occurrence represents a subassembly 
        ' and recursively call this function to traverse through it. 
        If oOcc.DefinitionDocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
            Call TraverseAssembly(oOcc.SubOccurrences, Level + 1) 
        End If 
    Next
End Sub

[Anonymous]

it did partially work & I think I noticed it wanted the part to be checked out by the user running the code.

[Anonymous]

This is all greek to me. I have no idea where to start. However, when I tried the rule on a single subassembly with just parts, it worked well. SO maybe the problem is the subassemblies within an assembly?

[Anonymous]

I noticed I had less problem when I had everything checked out. Other than that. I have no idea. I'm such a novice with code that I don't know where to start to look.