[求助]关于刷新实现动态效果的求救！

Crazyhoof

第一次执行命令，圆可以动态显示，第二次执行命令的时候，圆就不能动态显示了，这段代码有什么问题呢，请大家指点迷津。

4. Imports Autodesk.AutoCAD.ApplicationServices
5. Imports Autodesk.AutoCAD.Colors
6. Imports Autodesk.AutoCAD.DatabaseServices
7. Imports Autodesk.AutoCAD.EditorInput
8. Imports Autodesk.AutoCAD.Geometry
9. Imports Autodesk.AutoCAD.Runtime
10. Imports Autodesk.AutoCAD.GraphicsSystem
11. Imports Autodesk.AutoCAD.GraphicsInterface
12. Imports Autodesk.AutoCAD.Windows
13. Imports Autodesk.AutoCAD.Publishing
14. Imports Autodesk.AutoCAD.PlottingServices
15. Imports Autodesk.AutoCAD.ComponentModel
16. Imports Autodesk.AutoCAD.LayerManager
17. Public Class Class1
18.     Private MousePoint As Point3d = New Point3d(0, 0, 0) '保存当前鼠标位置
19.     Shared Cr As Circle
20.     <CommandMethod("mp")> Public Sub test()
21.         Dim Db As Database = HostApplicationServices.WorkingDatabase
22.         Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
23.         Dim Doc As Document = Application.DocumentManager.MdiActiveDocument
24.         Using LckDoc As DocumentLock = Doc.LockDocument
25.             Using Trans As Transaction = Db.TransactionManager.StartTransaction()
26.                 Try
27.                     Dim Bt As BlockTable = Trans.GetObject(Db.BlockTableId, OpenMode.ForRead)
28.                     Dim Btr As BlockTableRecord = Trans.GetObject(Bt.Item(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
29.                     
30.                     Cr = New Circle
31.                     Cr.SetDatabaseDefaults()
32.                     Cr.Radius = 10
33.                     Cr.Center = New Point3d(0, 0, 0)
34.                     Btr.AppendEntity(Cr)
35.                     Trans.AddNewlyCreatedDBObject(Cr, True)
36.                     ed.WriteMessage("new后圆id:" + Cr.ObjectId.ToString)
37.                     Dim pro As PromptPointOptions = New PromptPointOptions("按左键退出...")
38.                     AddHandler ed.PointFilter, AddressOf GetMousePoint
39.                     Dim res As PromptPointResult = ed.GetPoint(pro)
40.                     Dim Po1 As Point3d = res.Value
41.                     RemoveHandler ed.PointFilter, AddressOf GetMousePoint
42.                     Cr.ColorIndex = 1
43.                     Trans.Commit()
44.                 Catch ex As System.Exception
45.                     MsgBox("Error : " + ex.Message)
46.                 Finally
47.                 End Try
48.             End Using
49.         End Using
51.     End Sub
53.     ''动态获取鼠标位置  
54.     Private Sub GetMousePoint(ByVal sender As Object, ByVal e As PointFilterEventArgs)
55.         MousePoint = e.Context.ComputedPoint
56.         Dim Db As Database = HostApplicationServices.WorkingDatabase
57.         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
58.         Dim Doc As Document = Application.DocumentManager.MdiActiveDocument
59.         Using LckDoc As DocumentLock = Doc.LockDocument
60.             Using Trans As Transaction = Db.TransactionManager.StartTransaction()
61.                 Try
62.                     Dim Pt1 As Point3d = New Point3d(0, 0, 0)
63.                     Cr.Radius = New Line(MousePoint, Pt1).Length / 2
64.                     Cr.Center = MousePoint
65.                     Doc.Editor.Regen()
66.                     Ed.WriteMessage("圆id:" + Cr.ObjectId.ToString)
67.                     Trans.Commit()
68.                 Catch ex As System.Exception
69.                     MsgBox("Error : " + ex.Message)
70.                 Finally
71.                 End Try
72.             End Using
73.         End Using
74.     End Sub
75. End Class

Imports Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices Imports Autodesk.AutoCAD.Colors Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.GraphicsSystem Imports Autodesk.AutoCAD.GraphicsInterface Imports Autodesk.AutoCAD.Windows Imports Autodesk.AutoCAD.Publishing Imports Autodesk.AutoCAD.PlottingServices Imports Autodesk.AutoCAD.ComponentModel Imports Autodesk.AutoCAD.LayerManager Public Class Class1     Private MousePoint As Point3d = New Point3d(0, 0, 0) '保存当前鼠标位置     Shared Cr As Circle     <CommandMethod("mp")> Public Sub test()         Dim Db As Database = HostApplicationServices.WorkingDatabase         Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor         Dim Doc As Document = Application.DocumentManager.MdiActiveDocument         Using LckDoc As DocumentLock = Doc.LockDocument             Using Trans As Transaction = Db.TransactionManager.StartTransaction()                 Try                     Dim Bt As BlockTable = Trans.GetObject(Db.BlockTableId, OpenMode.ForRead)                     Dim Btr As BlockTableRecord = Trans.GetObject(Bt.Item(BlockTableRecord.ModelSpace), OpenMode.ForWrite)                                          Cr = New Circle                     Cr.SetDatabaseDefaults()                     Cr.Radius = 10                     Cr.Center = New Point3d(0, 0, 0)                     Btr.AppendEntity(Cr)                     Trans.AddNewlyCreatedDBObject(Cr, True)                     ed.WriteMessage("new后圆id:" + Cr.ObjectId.ToString)                     Dim pro As PromptPointOptions = New PromptPointOptions("按左键退出...")                     AddHandler ed.PointFilter, AddressOf GetMousePoint                     Dim res As PromptPointResult = ed.GetPoint(pro)                     Dim Po1 As Point3d = res.Value                     RemoveHandler ed.PointFilter, AddressOf GetMousePoint                     Cr.ColorIndex = 1                     Trans.Commit()                 Catch ex As System.Exception                     MsgBox("Error : " + ex.Message)                 Finally                 End Try             End Using         End Using     End Sub     ''动态获取鼠标位置       Private Sub GetMousePoint(ByVal sender As Object, ByVal e As PointFilterEventArgs)         MousePoint = e.Context.ComputedPoint         Dim Db As Database = HostApplicationServices.WorkingDatabase         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor         Dim Doc As Document = Application.DocumentManager.MdiActiveDocument         Using LckDoc As DocumentLock = Doc.LockDocument             Using Trans As Transaction = Db.TransactionManager.StartTransaction()                 Try                     Dim Pt1 As Point3d = New Point3d(0, 0, 0)                     Cr.Radius = New Line(MousePoint, Pt1).Length / 2                     Cr.Center = MousePoint                     Doc.Editor.Regen()                     Ed.WriteMessage("圆id:" + Cr.ObjectId.ToString)                     Trans.Commit()                 Catch ex As System.Exception                     MsgBox("Error : " + ex.Message)                 Finally                 End Try             End Using         End Using     End Sub End Class

雪山飞狐_lzh

用Jig实现，看看Kean专题中关于Jig的部分