[编程交流] VB。网络问题-活动视图

'*************************************** find viewport and activate **************************************
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim db As Database = HostApplicationServices.WorkingDatabase
Try
Dim layoutManager__1 As LayoutManager = LayoutManager.Current
layoutManager__1.CurrentLayout = "Floor Plan 100"
Dim vpXdim As String = ("18") 'viewport desired's CenterPoint X value
Dim layout As Layout = TryCast(myTrans.GetObject(layoutManager__1.GetLayoutId _
("Floor Plan 100"), OpenMode.ForRead), Layout)
Dim objectIdCollection As ObjectIdCollection = layout.GetViewports()
For Each VportObjId As ObjectId In objectIdCollection
Dim Vport As Viewport = DirectCast(myTrans.GetObject(VportObjId, OpenMode.ForWrite), Viewport)
Dim X As String = Vport.CenterPoint.X.ToString
If vpXdim = X Then 'center points are the same > this is desired viewport 
MsgBox("this is the viewport we want.....")
'Vport As AutoDesk.AutoCAD.DataBaseServices.Viewport
'Public Property ActiveViewport()As AutoDesk.AutoCAD.Interop.AcadViewport
Exit For
End If
Next
Catch ex As System.Exception
ed.WriteMessage(vbLf & ex.Message)
ed.WriteMessage(vbLf & ex.StackTrace)
End Try
'*********************************************************************************************************