ViewportTable

        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
            '' Open the ViewportTable for read
            Dim acViewTbl As ViewportTable
            acViewTbl = acTrans.GetObject(acCurDb.ViewportTableId, OpenMode.ForRead)
            For Each acObjId As ObjectId In acViewTbl
                If acObjId <> Nothing Then
                    Dim acViewTblRec As ViewportTableRecord
                    acViewTblRec = acTrans.GetObject(acObjId, OpenMode.ForWrite)
                End If
            Next
            acTrans.Commit()
            '' Dispose of the transaction
        End Using

Please follow WeChat's public account ByCAD