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

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：2*6=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情