net下cad对象动画问题

arthurfy

大家好，我想做一个在cad里的动态演示，用的timer控制时间，5秒间隔还行，1秒以下cad就挂了为什么？源码如下，求高手帮忙，多谢。

---

Private Shared Sub OnTimedEvent(source As Object, e As ElapsedEventArgs)

        Dim str As String = "The Elapsed event was raised at {0}" & e.SignalTime
        Dim str2 As String = str


        Dim i As Integer = 0
        Dim id As ObjectId
        For Each id In mBodyId

            intEnd = Now.Ticks

            tsnResult = New TimeSpan(intEnd - intStart)
            Dim tt As Double = Val(tsnResult.TotalMilliseconds.ToString) / 1000

            Dim v As Double = 1
            Dim x As Double = v * tt
            Dim angle As Single = 0
            ChangeBlockRefInsPointAndAngle(id, New Point3d(x, 2 * x + 1, 0), angle)



        Next

End Sub



Public Shared Sub ChangeBlockRefInsPointAndAngle(ByVal BlockRefId As ObjectId, ByVal Newposition As Point3d, ByVal angle As Single)



        Dim acCurDb As Database = HostApplicationServices.WorkingDatabase
        ''启动一个事务   Start a transaction
        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()


            Dim ent As BlockReference = acTrans.GetObject(BlockRefId, OpenMode.ForWrite)

            '' 创建一个矩阵并利用一个矢量将圆从点(0,0,0)移动到点(2,0,0)     Create a matrix and move the circle using a vector from (0,0,0) to (2,0,0)
            Dim acPt3d As Point3d = New Point3d(ent.Position.X, ent.Position.Y, 0)
            Dim acVec3d As Vector3d = acPt3d.GetVectorTo(New Point3d(Newposition.X, Newposition.Y, 0))


            ent.TransformBy(Matrix3d.Displacement(acVec3d))


            '' 保存新对象到数据库中   Save the new objects to the database
            acTrans.Commit()

            Autodesk.AutoCAD.ApplicationServices.Application.UpdateScreen()
        End Using



    End Sub