[求助]：如何控制当关闭AutoCAD时自动卸载自定义的菜单文件？

sandf

想实现当关闭AUtoCAD时，自动卸载自定义的Menu，请教如何实现？

cyt4321

用事件。例子如下：

Option Explicit

Public WithEvents ACADApp As AcadApplication

Sub Example_AcadApplication_Events()
      Set ACADApp = GetObject(, "AutoCAD.Application")
End Sub


Private Sub ACADApp_BeginQuit(Cancel As Boolean)  
  Dim Menu As AcadMenuGroup
  Dim Isbeing As Boolean
  Dim IsBeingACADMenu As Boolean
  Dim MenuName As String
  Dim customMenuGroup As AcadMenuGroup
  Dim newMenu As AcadPopupMenu
  
  If ACADApp.Application.Documents.Count <> 0 Then
    For Each Menu In ACADApp.Application.MenuGroups
      If UCase(Menu.Name) = "aaa" Then  ' 自定义的菜单名称
        Menu.unload
        exit for
      End If
    Next Menu
  end if
End Sub

sandf

太感谢了！我也知道要用事件，可是就是不知道该怎么用。多谢这位仁兄，以后还请多多指教！