vba event事件处理

1005100717

翻阅ActiveX帮助的时候，发现AcadApplication对象下，有事件支持，见下图

cad程序激活、ARX加载卸载、命令开始、命令结束…………感觉还是很有用的，百度一番搜索没有找到用法。自己翻阅ActiveX帮助琢磨一通，来跟大家一起分享。
首先，插入一个类模块，模块名自定，比如叫做：xcadEvent定义如下：

1. Public WithEvents ACADApp As AcadApplication    ' 启用cad事件类，定义实例对象 ACADApp
   
2. 
   
3. Sub AcadApplication_Events()   '注册事件
   
4.     '慎用事件，容易导致死循环
   
5.     '注意事件过滤
   
6.     Dim vvv As String
   
7.     vvv = Left(ThisDrawing.Application.Version, 2)  '获取当前cad的版本
   
8.     Set ACADApp = GetObject(, "AutoCAD.Application." & vvv)    ‘创建实例对象位 ACADApp
   
9. End Sub
   
10. ‘这里以要处理命令完成后的事件为例。
    
11. Private Sub ACADApp_EndCommand(ByVal CommandName As String)                ’定义要处理事件的，函数，注意函数名要与实例对象对应
    
12.     MsgBox "A drawing has just finished a " & CommandName & " command."   
    
13. End Sub

Public WithEvents ACADApp As AcadApplication    ' 启用cad事件类，定义实例对象 ACADApp<br /> <br /> Sub AcadApplication_Events()   '注册事件<br />     '慎用事件，容易导致死循环<br />     '注意事件过滤<br />     Dim vvv As String<br />     vvv = Left(ThisDrawing.Application.Version, 2)  '获取当前cad的版本<br />     Set ACADApp = GetObject(, "<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Application." & vvv)    ‘创建实例对象位 ACADApp<br /> End Sub<br /> ‘这里以要处理命令完成后的事件为例。<br /> Private Sub ACADApp_EndCommand(ByVal CommandName As String)                ’定义要处理事件的，函数，注意函数名要与实例对象对应<br />     MsgBox "A drawing has just finished a " & CommandName & " command."    <br /> End Sub

在模块中如下定义：

1. Dim mycad As New xcadEvent   '定义事件对象
   
2. Sub testtest()
   
3.     mycad.AcadApplication_Events    '注册实例事件
   
4. End Sub

Dim mycad As New xcadEvent   '定义事件对象<br /> Sub testtest()<br />     mycad.AcadApplication_Events    '注册实例事件<br /> End Sub

运行子程序，完成注册。
实际使用效果：

测试工程：

kic

我想用一个图元对象的 被修改 事件，可是一直不成功呢！！比方，画一条直线，把事件挂接好后，拉长直线，显示长度