社区 › VB › 从另一个图形插入布局

Humbertogo 发表于 2007-4-25 07:15:06

从另一个图形插入布局

如何插入另一个图形中的布局，例如它在设计中心中的抖动？
**** Hidden Message *****

Bryco 发表于 2007-4-25 11:05:20

我不记得我从哪里得到这个。
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 发表于 2007-4-26 03:29:42

再次感谢

查看完整版本: 从另一个图形插入布局