API: Copying a SketchBlockDefinition from one part file to another

[mike.ponti]

hi, Does anybody have any guidance on copying a sketch block defintion from one part file to another? So far as I can see, I will have to go through each property in the source sketch block defintion and create equivalent objects to place in the destination sketch block definition. Any ideas on a more efficient way to handle this would be appreciated! Thanks Mike

[ekinsb · Accepted solution]

You can use the CopyTo method to copy a sketch block definition from one document to another.  Below is a very basic example that illustrates it.

Public Sub CopyBlocks()
    ' Somehow get a reference to the document you want to copy from and the
    ' one you're copying to.
    Dim sourceDoc As PartDocument
    Dim targetDoc As PartDocument
    Set sourceDoc = ThisApplication.Documents.Item(4)
    Set targetDoc = ThisApplication.Documents.Item(5)
    
    ' Get the sketch block definition you want to copy.
    Dim sourceBlockDef As SketchBlockDefinition
    Set sourceBlockDef = sourceDoc.ComponentDefinition.SketchBlockDefinitions.Item(1)
    
    ' Copy the sketch block definition into the other document.
    Call sourceBlockDef.CopyTo(targetDoc)
End Sub

[mike.ponti]

Thanks, not sure how I missed that call in the api file.