如何添加/更改布局选项卡和属性。有教程吗？

havano · 发表于 2006-11-3 11:40:29

有人知道在线分步VBA教程吗？该教程介绍了如何在此视口中从模型空间创建纸空间布局选项卡、布局模板、视口和几何选择，以及如何让那里的线型缩放与模型空间中的相同？到目前为止，我知道我在模型空间相关编程中的方法，但纸空间仍然为我提供了许多谜团/痛苦。
任何（建设性）建议都将更受欢迎！

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

havano · 发表于 2006-11-3 14:18:21

这幅画。布局。添加“布局名称”
此绘图。PaperSpace.AddPViewport中心，宽度，高度

Bryco · 发表于 2006-11-3 14:18:58

这应该能让你开始希望有帮助

havano · 发表于 2006-11-3 17:29:05

这应该可以让您开始

copy

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 · 发表于 2006-11-5 11:24:54

谢谢Bryco，但这里没有运气。您的行“Dim axDoc As AxDbDocument”返回“编译错误，用户定义类型未定义”。AxDbDocument上的文档似乎不存在。我使用Autocad 2007，这可能是问题的（一部分）吗？

havano · 发表于 2006-11-18 13:30:26

在“工具->引用”中查找，并在下拉列表中添加对objectdbx的引用，我的看起来像->Autocad/objectdbx Common 16.0类型库
您的可能有17个。

Bryco · 发表于 2006-11-18 13:37:54

它的工作原理！谢谢布莱科
现在，我可以继续确定如何操作导入的 blockref 的属性，使现在存在的视口显示模型空间的特定区域等。任何关于这一点的指示也将不胜感激。

havano · 发表于 2006-11-18 17:11:00

哈瓦诺我更愿意帮你把你已经开始的一些代码，

Bryco · 发表于 2006-11-18 17:34:42

实际上，正在制作的代码是一个独立的子例程，将在一个巨大的交互式参数绘图宏的末尾调用，就在最终绘图被保存之前。它应该在绘图中添加4个布局选项卡（使用上面的代码）并更改每个选项卡的视口属性，以便显示模型空间的特定区域（取决于生成的几何形状）。此外，它应该填写每个布局标题块的块属性。
我可以为您提供一些示例图。这个周末，我将建立一个带有“图形详细信息”的临时网站。

Bryco · 发表于 2006-11-18 21:09:28

哈瓦诺，我不能打开那些图纸，我只有2006年。
属性，这个网站上有很多关于属性处理的信息。
视口视图；您是否选择了要按2层的范围查看的比例和对象？

如何添加/更改布局选项卡和属性。有教程吗？

发表回复

精选推荐