''' <summary>
    ''' 绘图次序置底
    ''' </summary>
    ''' <param name="doc"></param>
    ''' <param name="entities"></param>
    Public Shared Sub DrawOrderToBottom(doc As Document, entities As List(Of Entity))
        Dim collection As New ObjectIdCollection()
        Dim i As Integer = 0
        While i < entities.Count
            collection.Add(entities(i).ObjectId)
            i += 1
        End While
        Dim db As Database = doc.Database
        Dim ed As Editor = doc.Editor
        Try
            Using doc.LockDocument()
                Using tr As Transaction = db.TransactionManager.StartTransaction()
                    Dim bt As BlockTable = CType(tr.GetObject(db.BlockTableId, OpenMode.ForWrite, False), BlockTable)
                    Dim btr As BlockTableRecord = CType(tr.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False), BlockTableRecord)
                    Dim orderTable As DrawOrderTable = TryCast(tr.GetObject(btr.DrawOrderTableId, OpenMode.ForWrite), DrawOrderTable)
                    orderTable.MoveToBottom(collection)
                    tr.Commit()
                End Using
            End Using
        Catch exc As Autodesk.AutoCAD.Runtime.Exception
        End Try
    End Sub

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

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