TheSwamp
Code Red => VB(A) => Topic started by: Humbertogo on April 25, 2007, 07:15:06 AM
-
How can i insert a layout from another drawing like its happing in the desingcenter?
-
I don't remember where I got this.
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
-
thanks again