find dervied base model in asembly

[NachoShaw]

Hi

Please see image. How can i find these derived base model parts to suppress them by using code only?

Cheers

Nacho

[dano0310]

Hi Nacho

See if this is what you are chasing

Sub Derived_Part_Hider()
    'Turns off all parts which have a derived feature as the first feature
    '4/02/2016   
    Dim oAssyDoc As Document
    Set oAssyDoc = ThisApplication.ActiveDocument
    
    If oAssyDoc.DocumentType = kAssemblyDocumentObject Then
        Dim oOccs As ComponentOccurrences
        Set oOccs = oAssyDoc.ComponentDefinition.Occurrences
        
        Dim oOcc As ComponentOccurrence
        For Each oOcc In oOccs
            If oOcc.DefinitionDocumentType = kPartDocumentObject Then
                If oOcc.Definition.Features(1).Type = kReferenceFeatureObject Then oOcc.Visible = False
            End If
        Next
        
    Else
        Exit Sub
    End If
End Sub

Regards

Dan