|
各位高手 帮小弟指点一二啊
在使用如下程序后就重新启动后
菜单栏就只剩下《文件》、《视图》、《窗口》、《帮助》了 其他的什么都没有了哦
请问各位如何恢复啊?
程序如下:
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 后出现的
请问如何恢复
谢谢各位了
mot2y2gewkc.BMP
|
|