check for unused parts

[GosponZ]

I'm trying to check if there is any  unused (ghost) parts in assembly. Sometimes i see parts in BOM and in browser tree they are not belong to assembly. Usually when copy design happened when part(s) aredeleted from assembly but they still in BOM. I'm trying with this code but error on line 18

Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument

' Ensure that the document is an assembly
If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then

    ' Get the assembly document
    Dim oAsmDoc As AssemblyDocument
    oAsmDoc = oDoc

    ' Create a collection to store unused parts
    Dim unusedParts As New List(Of String)

    ' Iterate through all components in the assembly
    Dim oComp As ComponentOccurrence
    For Each oComp In oAsmDoc.ComponentOccurrences

        ' Check if the component is a part document
        If oComp.DefinitionDocumentType = DocumentTypeEnum.kPartDocumentObject Then

            ' Check if the part is not suppressed and is placed in the assembly
            If Not oComp.Suppressed Then
                ' Add the component name to the unused parts list
                unusedParts.Add(oComp.Name)
            End If
        End If
    Next

    ' Check if any unused parts were found
    If unusedParts.Count > 0 Then
        ' Display unused parts
        Dim msg As String = "Unused parts in assembly:" & vbCrLf
        For Each part In unusedParts
            msg &= part & vbCrLf
        Next
        MessageBox.Show(msg, "Unused Parts Check")
    Else
        ' No unused parts found
        MessageBox.Show("No unused parts found in the assembly.", "Unused Parts Check")
    End If

Else
    MessageBox.Show("This is not an assembly document.", "Error")
End If

[Curtis_Waguespack]

Hi @GosponZ,

see attached rule, I had on hand for this issue. It's been a while so I don't recall all the ins and outs of this.

I hope this helps.
Curtis

[GosponZ]

Curtis,

thank you for response on this. I tried but do not see that is working for me. Rule is good. Is it another way to check if all parts in browser tree belong to assembly and if not whick one.

[C_Haines_ENG]

Can you attach a document that has this "unused" error. I'm struggling to understand what you mean by "unused".

[Viktor.Lukjanow · Accepted solution]

Change this Line
For Each oComp In oAsmDoc.ComponentOccurrences 
to 
For Each oComp In oAsmDoc.ComponentDefinition.Occurrences
Try this:

Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument

' Ensure that the document is an assembly
If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then

    ' Get the assembly document
    Dim oAsmDoc As AssemblyDocument
    oAsmDoc = oDoc

    ' Create a collection to store unused parts
    Dim unusedParts As New List(Of String)

    ' Iterate through all components in the assembly
    Dim oComp As ComponentOccurrence
    For Each oComp In oAsmDoc.ComponentDefinition.Occurrences

        ' Check if the component is a part document
        If oComp.DefinitionDocumentType = DocumentTypeEnum.kPartDocumentObject Then

            ' Check if the part is not suppressed and is placed in the assembly
            If Not oComp.Suppressed Then
                ' Add the component name to the unused parts list
                unusedParts.Add(oComp.Name)
            End If
        End If
    Next

    ' Check if any unused parts were found
    If unusedParts.Count > 0 Then
        ' Display unused parts
        Dim msg As String = "Unused parts in assembly:" & vbCrLf
        For Each part In unusedParts
            msg &= part & vbCrLf
        Next
        MessageBox.Show(msg, "Unused Parts Check")
    Else
        ' No unused parts found
        MessageBox.Show("No unused parts found in the assembly.", "Unused Parts Check")
    End If

Else
    MessageBox.Show("This is not an assembly document.", "Error")
End If

[GosponZ]

thank you that is it

[_dscholtes_]

Just like @C_Haines_ENG, I fail to see what you are looking for. By default, any part placed in an assembly is part of the assembly BOM.

Your script just list all unsuppressed components and reports them as unused (which is a contradiction) and does nothing with the BOM (object) at all.

FYI, you can restructure the first 9 lines of code to remove the oDoc variable:

' Ensure that the document is an assembly
If ThisApplication.ActiveDocument = DocumentTypeEnum.kAssemblyDocumentObject Then

    ' Get the assembly document
    Dim oAsmDoc As AssemblyDocument
    oAsmDoc = ThisApplication.ActiveDocument

    <rest of code>

Else
    MessageBox.Show("This is not an assembly document.", "Error")
End If

[GosponZ · Accepted solution]

Great rule. Thank you Viktor.