如何添加/更改布局选项卡和属性。有教程吗？
有人知道在线分步VBA教程吗？该教程介绍了如何在此视口中从模型空间创建纸空间布局选项卡、布局模板、视口和几何选择，以及如何让那里的线型缩放与模型空间中的相同？到目前为止，我知道我在模型空间相关编程中的方法，但纸空间仍然为我提供了许多谜团/痛苦。任何（建设性）建议都将更受欢迎！
**** Hidden Message ***** 这幅画。布局。添加“布局名称”
此绘图。PaperSpace.AddPViewport中心，宽度，高度 这应该能让你开始希望有帮助 这应该可以让您开始
Public Function CopyDwgLayout(sPath As String, SourceName, TargetName As String) As AcadLayout
Dim axDoc As AxDbDocument
Dim Doc As AcadDocument
Dim sLayout As AcadLayout
Dim tLayout As AcadLayout
Dim i As Integer
Dim objArray() As Object
Set Doc = ThisDrawing
Set axDoc = New AxDbDocument
axDoc.Open sPath
Set sLayout = axDoc.Layouts(SourceName)
Set tLayout = Doc.Layouts.Add(TargetName)
If sLayout.Block.count > 0 Then
ReDim objArray(0 To sLayout.Block.count - 1)
For i = 0 To sLayout.Block.count - 1
Set objArray(i) = sLayout.Block.Item(i)
Next
axDoc.CopyObjects objArray, tLayout.Block
End If
tLayout.CopyFrom sLayout 'here you copy the pagesetups etc
Set axDoc = Nothing
End Function
Sub TestCopyLayout()
Dim sPath As String
sPath = "C:\MyAppPath\StdSheets.DWG"
CopyDwgLayout sPath, "A4Psheet", "A4Psheet"
End Sub
谢谢Bryco，但这里没有运气。您的行“Dim axDoc As AxDbDocument”返回“编译错误，用户定义类型未定义”。AxDbDocument上的文档似乎不存在。我使用Autocad 2007，这可能是问题的（一部分）吗？ 在“工具->引用”中查找，并在下拉列表中添加对objectdbx的引用，我的看起来像->Autocad/objectdbx Common 16.0类型库
您的可能有17个。 它的工作原理！谢谢布莱科
现在，我可以继续确定如何操作导入的 blockref 的属性，使现在存在的视口显示模型空间的特定区域等。任何关于这一点的指示也将不胜感激。 哈瓦诺我更愿意帮你把你已经开始的一些代码， 实际上，正在制作的代码是一个独立的子例程，将在一个巨大的交互式参数绘图宏的末尾调用，就在最终绘图被保存之前。它应该在绘图中添加4个布局选项卡（使用上面的代码）并更改每个选项卡的视口属性，以便显示模型空间的特定区域（取决于生成的几何形状）。此外，它应该填写每个布局标题块的块属性。
我可以为您提供一些示例图。这个周末，我将建立一个带有“图形详细信息”的临时网站。 哈瓦诺，我不能打开那些图纸，我只有2006年。
属性，这个网站上有很多关于属性处理的信息。
视口视图；您是否选择了要按2层的范围查看的比例和对象？
页:
[1]
2