[转帖]建立图纸空间视口

ningyong58

http://www.mjtd.com/Manual/ArticleShow.asp?ArticleID=681

图纸空间视口是由AddPViewport方法建立的。这个方法需要输入一个中心点及新视口的宽度和高度。在建立新视口之前，要用ActiveSpace属性将图纸空间设为当前的空间(通常是将TILEMODE设为0)。

在建立了一个Pviewport对象之后，你可以设置这个视图自己的属性，例如观察方向(Direction属性)、透视图的焦距(LensLength属性)以及栅格显示(GridOn属性)。你也可以控制视口自己的属性，例如图层(Layer属性),线型(Linetype属性),
以及线型比例 (LinetypeScale属性)。

要学更多VBA见http://www.mjtd.com/Manual/ShowClass.asp?ClassID=60&SpecialID=0&page=1

Sub ll()
  Dim objLayout As AcadLayout, objLayouts As AcadLayers
  With ThisDrawing
    Set objLay = .Layers.Add("aa")
    Set objLay = .Layers.Add("bb")
    For Each objLayout In .Layouts
      Debug.Print objLayout.Name
    Next objLayout
    .ActiveLayout = .Layouts("布局1")
    Set objLayout = .Layouts("布局1")
    Debug.Print objLayout.ViewToPlot
    '.Layers("aa").LayerOn = False
    ZoomExtents
    .MSpace = True
    ZoomExtents
    .SendCommand "VPLayer" & vbCr & "F" & vbCr & "aa" & vbCr & vbCr & vbCr
  End With
End Sub