该样例程序是通过执行“AddEvent”命后，进行注册ObjectErased事件。在注册了该事件之后，每当删除对象时，就是激活该事件进行调用自定义的ObjectErasedEvent函数。

但是如果运行RemoveEvent命令后，将会注销该命令。在注册了该命令后，即使是删除对象，也不会激活事件的。即也不会调用自定义函数。

Imports ZwSoft.ZwCAD.Runtime

Imports ZwSoft.ZwCAD.DatabaseServices Imports ZwSoft.ZwCAD.ApplicationServices Namespace ZwApp Public Class EventSample <CommandMethod("AddEvent")> _ Public Sub AddObjectErasedEvent() Dim ZcDB As Database = HostApplicationServices.WorkingDatabase AddHandler ZcDB.ObjectErased,AddressOf ObjectErasedEvent End Sub <CommandMethod("RemoveEvent")> _ Public Sub RemoveObjectErasedEvent() Dim ZcDB As Database = HostApplicationServices.WorkingDatabase AddHandler ZcDB.ObjectErased,AddressOf ObjectErasedEvent End Sub Public Shared Sub ObjectErasedEvent(ByVal sender As Object,ByVal e As ObjectErasedEventArgs) Application.ShowAlertDialog(vbLf & "Object(s) erased") End Sub End Class End Namespace 原文链接：https://www.f2er.com/vb/258334.html