有时有效有时无效

Keith · 发表于 2006-6-14 07:07:14

本人&#039；我迷惑不解和迷惑…有时这个代码有效…有时不#039；t、 ..如能随时修改代码以实现此功能，我们将不胜感激。TIA：丑陋：
私有子CMDChangePortLayer\u Click（）
Dim vport As AcadPViewport
Dim oLayout As AcadLayout
Dim newLayer As AcadLayer
Set newLayer=ThisDrawing.Layers.Add（“Viewport”）
本图纸。ActiveLayer=newLayer.ActiveLayer。Plottable=FalseThisDrawing.ActiveLayer。颜色=acGreen。隐藏；出错时，继续此绘图中每个oLayout的下一步。如果oLayout，则布局。名称（&lt）&燃气轮机&引用；型号；然后针对oLayout中的每个vport。块
&039；将vports更改为驻留在层上；视口“
。层（&lt）&燃气轮机&引用；视口“；然后输入。层=“”；视口“
如果下一个&#039；扼流圈

Bryco · 发表于 2006-6-14 07:27:27

有一件事很多人都不知道&#039；我不知道，纸张空间本身就是一个视口。。。

Cathy · 发表于 2006-6-14 09:20:00

看起来是这样的；“应该”；当然，您也可以枚举PS对象或创建paperspace中所有视口对象的选择集。可能存在争议的一件事是不规则形状的视口。编程上，它们是被闭合多边形或圆遮挡的视口，可能无法识别。

Bryco · 发表于 2006-6-14 09:23:49

我似乎还记得格伦·布洛克帮我问过同样的问题
纸张空间视口始终在单个VP之前创建，因此您可以使用它&#039；s id.

copy

Public Sub PViewportsLayer(pLayout As AcadLayout)
     Dim pEnt As AcadEntity, id As Long
     For Each pEnt In pLayout.Block
        If TypeOf pEnt Is AcadPViewport Then
            If id = 0 Then
                id = pEnt.ObjectID
            Else
                If pEnt.ObjectID > id Then
                   pEnt.Layer = "Viewport"
                End If
            End If
        End If
    Next
    Set pEnt = Nothing
    Set pLayout = Nothing
End Sub
Sub Thang()
    Dim l As AcadLayout
    ThisDrawing.LAYERS.Add ("Viewport")
    For Each l In ThisDrawing.Layouts
        If l.ModelType = False Then
            PViewportsLayer l
        End If
    Next
End Sub