Topic: insert a layout from another drawing

[Humbertogo]

How can i insert a layout from another drawing like its happing in the desingcenter?

[Bryco]

I don't remember where I got this.

Code: [Select]

Public Function CopyLayout(Source As AcadLayout, TargetName As String) As AcadLayout

    Dim Doc As AcadDocument, Layout As AcadLayout
    Dim objArray() As Object, i As Integer

    Set Doc = Source.Document
    Set Layout = Doc.Layouts.Add(TargetName)

    If Source.Block.count > 0 Then

        ReDim objArray(0 To Source.Block.count - 1)

        For i = 0 To Source.Block.count - 1
            Set objArray(i) = Source.Block.Item(i)
        Next

        Doc.CopyObjects objArray, Layout.Block

    End If

    Layout.CopyFrom Source

    Set CopyLayout = Layout

End Function

[Humbertogo]

thanks again