access Derived Part object

[Anonymous]

Is it possible to access blocks object of derived part?

[CCarreiras]

Yes!!

[Anonymous]

Can you help me with the code ?

[Anonymous]

Can someone help me with the code to include the "square" block ?

I can get the name "square" but dont know how to include it to my 200.ipt

Public Sub mDerived_block()

    Dim oPartDoc As PartDocument
        Set oPartDoc = ThisApplication.ActiveDocument
   
    Dim oderivedPart As DerivedPartComponent
    Set oderivedPart = oPartDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.Item(1)
   
    Dim oRefPart As PartDocument
    Set oRefPart = oderivedPart.ReferencedDocumentDescriptor.ReferencedDocument
     Debug.Print (oRefPart.DisplayName)
    
    Dim oRefPartDef As PartComponentDefinition
    Set oRefPartDef = oRefPart.ComponentDefinition
           
    Dim oSketchBlockDef As SketchBlockDefinition
    Set oSketchBlockDef = oRefPartDef.SketchBlockDefinitions.Item(1)

    Debug.Print (oSketchBlockDef.Name)
    End Sub