Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Interop
Public Class Class1
    <Autodesk.AutoCAD.Runtime.CommandMethod("Test")> _
    Public Sub AddHandlerBeginCommand()
        AddHandler Application.DocumentManager.MdiActiveDocument.CommandWillStart, AddressOf CommandWillStart
    End Sub
    Public Sub CommandWillStart(ByVal sender As Object, ByVal e As Autodesk.AutoCAD.ApplicationServices.CommandEventArgs)
        Dim acDoc As Autodesk.AutoCAD.ApplicationServices.Document = Application.DocumentManager.MdiActiveDocument
        acDoc.Editor.WriteMessage(vbCrLf + "你将执行命令  " & e.GlobalCommandName + vbCrLf)
    End Sub
End Class

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

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