[VBA]有点意思啊？

zzhzq_1234

各位高手 帮小弟指点一二啊

在使用如下程序后就重新启动AutoCAD后

菜单栏就只剩下《文件》、《视图》、《窗口》、《帮助》了  其他的什么都没有了哦

请问各位如何恢复啊？

程序如下：
Sub InsertMenu()
'difine a variable for the current menu group
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

'create a new menu
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("驱动")

'declare the variable for the menu item
Dim newMenuItem As AcadPopupMenuItem
Dim LineDrive As String
Dim CirCleDrive As String
Dim ItemNum As Integer

LineDrive = Chr(3) + Chr(3) + Chr(95) + "zq.show" + Chr(32)
Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, "直线驱动", LineDrive)
currMenuGroup.Menus.InsertMenuInMenuBar "驱动", ""
If MsgBox("Delete the Menu?", vbYesNo + vbQuestion, "Asking") = vbYes Then
     ItemNum = ThisDrawing.Application.MenuGroups.Count - 1
     currMenuGroup.Unload
End If
End Sub

就是使用了
currMenuGroup.Unload 后出现的
请问如何恢复
谢谢各位了

xnn2004

输入命令menu,加载acad.mnu，位置在D:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2005\R16.1\chs\Support

zzhzq_1234

问题已经解决了 谢谢