请教如何改变视口中的视图中心点，显示不同的内容

xjdpd

Private Sub CommandButton1_Click()

Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim pp(0 To 2) As Double

ThisDrawing.Application.Documents.Add
For i = 0 To 5          '写文字
    insertionPoint(0) = i * 200: insertionPoint(1) = 0: insertionPoint(2) = 0:  '文字插入点
    textString = Str(i + 1)
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, 50)
Next i
ZoomAll

Dim mylayout As AcadLayout          '定义布局
Dim myVport As AcadPViewport        '定义视口
For i = 0 To 5          '新建5个布局
     Set mylayout = ThisDrawing.Layouts.Add("P" + LTrim(Str(i + 1))) '新建布局
     ThisDrawing.ActiveLayout = mylayout        '激活布局
     ThisDrawing.MSpace = True
    '获取当前布局中的视口
    Set myVport = ThisDrawing.ActivePViewport
    myVport.Display True
    myVport.Width = 200             '视口宽
    myVport.height = 150         '视口高
    myVport.CustomScale = 1
    pp(0) = 125: pp(1) = 100: pp(2) = 0         '视口中心
    myVport.Center = pp
    ThisDrawing.MSpace = False
    ZoomAll
Next i


'让 p1，p2，p3，p4，p5 视口分别显示 对应的1,2,3,4,5数字
'如何改变视口中视图的中心点
End Sub

CSharpBoy

VBA  使用 ActiveViewPort方法

下面是创建一个VIEW的例子代码，

Sub createViewWithTwistAngle()
   ' This example creates a new paperspace viewport.
   ' It then sets the viewdirection, and the TwistAngle
   ' Then view is then created using SendCommand (VIEW)
   ' The viewport erased it is only created to set the
   ' TwistAngle
           
   Dim pviewportObj As AcadPViewport
   Dim viewportObj As AcadViewport
   Dim myView As AcadView
   Dim center(0 To 2) As Double
   Dim width As Double
   Dim height As Double
   Dim int1 As Integer
  
   ' Define the pviewport
   center(0) = 3: center(1) = 3: center(2) = 0
 
   width = 4
   height = 4
    
   ' Change from model space to paperspace
   ThisDrawing.ActiveSpace = acPaperSpace
 
   ' Create the pviewport
   Set pviewportObj = ThisDrawing.PaperSpace.AddPViewport(center, width,
height)
   pviewportObj.Display True
   pviewportObj.ViewportOn = True
   ThisDrawing.MSpace = True
   ThisDrawing.ActivePViewport = pviewportObj
 
   ' Change the viewing direction of the ViewPort
   Dim NewDirection(0 To 2) As Double
   NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
   pviewportObj.Direction = NewDirection
     
   ' Set the twist angle for the viewport
   pviewportObj.twistAngle = 0.57
     
  
   ' Remove view named test1
   For int1 = 0 To ThisDrawing.Views.Count - 1
            If ThisDrawing.Views(int1).Name = "test1" Then
                ThisDrawing.Views(int1).Delete
            End If
   Next int1
     
     
   ThisDrawing.Application.ZoomExtents
  
   ' Create a view
   SendCommand "-view" & Chr(13) & "Save" & Chr(13) & "test1" & Chr(13)
           
   ' Erase the paper space view port
   pviewportObj.Delete
  
   ThisDrawing.ActiveSpace = acModelSpace
  
   ' Reference model space viewport and set the view to the one
   ' created above
   Set viewportObj = ThisDrawing.ActiveViewport
   Set myView = ThisDrawing.Views.Item("Test1")
   viewportObj.SetView myView
   ThisDrawing.ActiveViewport = viewportObj
 
End Sub

xjdpd

这段代码对我很有帮助，但问题还没有解决，如何将自定义视图放在视口中呢   
viewportObj.SetView myView   我以为是的，结果不是