Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Public Class Class1
    <CommandMethod("test")> Public Sub test()
        Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        AddHandler Ed.PointMonitor, New PointMonitorEventHandler(AddressOf Getpoint)
    End Sub
    Public Sub Getpoint(ByVal sender As Object, ByVal e As PointMonitorEventArgs)
        Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        Ed.WriteMessage(vbNewLine & e.Context.RawPoint.X)
        'RemoveHandler Ed.PointMonitor, AddressOf Getpoint
    End Sub
End Class

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

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