API - All Assembly Parts - Set End Of Part to Top Or Bottom

[Anonymous]

So, I have a snippet of code that I want to go through my assembly and roll the end of all parts up to expedite calculations. The issue is, it is grabbing the proxies instead of the actual components, so it throws an error.

Dim oDoc as Document 
oDoc = ThisDoc.Document

Dim oOcc as ComponentOccurrence

Dim oAsmCompDef As AssemblyComponentDefinition 
oAsmCompDef = oDoc.ComponentDefinition

For Each oOcc In oAsmCompDef.Occurrences.AllLeafOccurrences
   
    If oOcc.Definition.Type <> ObjectTypeEnum.kAssemblyComponentDefinitionObject Then 
         oOcc.ComponentDefinition.SetEndOfPartToTopOrBottom(True)
    End If 
Next 

[Vladimir.Ananyev]

Here is the VBA sample that does this work:

Private Sub SetEOF()
    Dim oAssyDoc As AssemblyDocument
    Set oAssyDoc = ThisApplication.ActiveDocument
    Dim oAsmCompDef As AssemblyComponentDefinition
    Set oAsmCompDef = oAssyDoc.ComponentDefinition
    
    Dim oOcc As ComponentOccurrence
    
    For Each oOcc In oAsmCompDef.Occurrences.AllLeafOccurrences
        If oOcc.Definition.Type = ObjectTypeEnum.kPartComponentDefinitionObject Then
            Dim oDef As PartComponentDefinition
            Set oDef = oOcc.Definition
            Call oDef.SetEndOfPartToTopOrBottom(True)
        End If
    Next
    oAssyDoc.Update
    Beep
End Sub

 Cheers,