社区 › VB › 插入其他图形中的布局

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

插入其他图形中的布局

如何插入另一个图形中的布局，就像它发生在设计中心一样？

诛仙图片 发表于 2007-4-25 11:05:20

我不知道&#039；我不记得我从哪里得到这个
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

东北人 发表于 2007-4-26 03:29:42

再次感谢

查看完整版本: 插入其他图形中的布局