关于在 VBA 中对文档级事件进行编码 （VBA/ActiveX）

加载 VBA 项目时，将自动启用文档级事件。

若要在 VBA 中为文档级事件编写事件处理程序，只需从“代码”窗口中的“对象”下拉列表中选择。文档的可用事件将显示在“过程”下拉列表中。只需选择要为其编写处理程序的事件，即可自动创建处理程序框架。AcadDocument

请注意，以这种方式创建的事件处理程序适用于当前活动图形。

下面的示例使用事件的事件处理程序将“OpenDWG”菜单项添加到快捷菜单的开头。然后，事件的事件处理程序将删除其他菜单项，以便它不会永久保存在用户的菜单配置中。BeginShortcutMenuDefaultEndShortcutMenu

Private Sub AcadDocument_BeginShortcutMenuDefault _
 (ShortcutMenu As AutoCAD.IAcadPopupMenu)
    On Error Resume Next
    ' Add a menu item to the cursor menu
    Dim newMenuItem As AcadPopupMenuItem
    Dim openMacro As String
    openMacro = Chr(vbKeyEscape) + Chr(vbKeyEscape) + "_open "
    Set newMenuItem = ShortcutMenu.AddMenuItem _
 (0, Chr(Asc("&")) _
 + "OpenDWG", openMacro)
End Sub

Private Sub AcadDocument_EndShortcutMenu _
 (ShortcutMenu As AutoCAD.IAcadPopupMenu)
    On Error Resume Next
    ShortcutMenu.Item("OpenDWG").Delete
End Sub