[转帖]建立图纸空间视口
图纸空间视口是由AddPViewport方法建立的。这个方法需要输入一个中心点及新视口的宽度和高度。在建立新视口之前，要用ActiveSpace属性将图纸空间设为当前的空间(通常是将TILEMODE设为0)。在建立了一个Pviewport对象之后，你可以设置这个视图自己的属性，例如观察方向(Direction属性)、透视图的焦距(LensLength属性)以及栅格显示(GridOn属性)。你也可以控制视口自己的属性，例如图层(Layer属性),线型(Linetype属性),
以及线型比例 (LinetypeScale属性)。
要学更多VBA见
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
页:
[1]