Autodesk官方最新的.NET教程（七）（vb.net版）

                        Next

                    End If

                End If

            End If

        End If

        trans.Commit()

    Finally

        trans.Dispose()

    End Try

End Sub

第４步　创建第二个文档事件处理函数（回调函数）

当一个命令结束时，第三个事件处理函数被调用。同样地，我们要检查全局变量来验证这个将要结束的命令是我们监视的命令。如果是我们监视的，那么我们要重置这个变量：

If bEditCommand = False Then

    Return

End If

bEditCommand = False

这个回调函数执行的动作将会再次触发ObjectOpenedForModify事件。我们必须确定在这个回调函数中跳过了所有与此事件有关的动作。

''''设置标志来跳过OpenedForModify处理函数

bDoRepositioning = True

这个回调函数的剩余代码用来把EMPLOYEE块索引和它的关联属性引用的当前（修改过的）位置与它们的初始位置作比较。如果位置改变了，我们在这个回调函数中把它们重置这初始的位置。下面的代码可以被粘贴到这个事件处理函数中。

Public Sub cmdEnded(ByVal o As Object, ByVal e As CommandEventArgs)

    ''''Was our monitored command active?

    If bEditCommand = False Then

        Return

    End If

    bEditCommand = False

    ''''Set flag to bypass ObjectOpenedForModify handler

    bDoRepositioning = True

    Dim db As Database = HostApplicationServices.WorkingDatabase

    Dim trans As Transaction

    Dim bt As BlockTable

    Dim oldpos As Point3d

    Dim newpos As Point3d

    Dim i As Integer

    Dim j As Integer = 1

    For i = 0 To changedObjects.Count - 1

        trans = db.TransactionManager.StartTransaction()

        Try

            bt = trans.GetObject(db.BlockTableId, OpenMode.ForRead)

            Dim ent As Entity = CType(trans.GetObject(changedObjects.Item(i), OpenMode.ForWrite), Entity)

            If TypeOf ent Is BlockReference Then ''''We use .NET''''s RTTI to establish type.

                Dim br As BlockReference = CType(ent, BlockReference)

                newpos = br.Position

                oldpos = employeePositions.Item(i)

                ''''Reset blockref position

                If Not oldpos.Equals(newpos) Then

                    trans.GetObject(br.ObjectId, OpenMode.ForWrite)

                    br.Position = oldpos

                End If

            ElseIf TypeOf ent Is AttributeReference Then

                Dim att As AttributeReference = CType(ent, AttributeReference)

                 newpos = att.Position

                oldpos = employeePositions.Item(i)

                ''''Reset attref position

上一页  [1] [2] [3] [4]  下一页

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18