重新排列菜单栏上的菜单项

Sub Ch6_MoveMenu()

    ' 定义一个变量来保存要移动的菜单

    Dim moveMenu As AcadPopupMenu

    Dim MyMenuBar As AcadMenuBar

    Set MyMenuBar = ThisDrawing.Application.menuBar

      
    ' 将 moveMenu 设置为等于菜单栏上
      
    ' 显示的第一个菜单
      
    Set moveMenu = MyMenuBar.Item(0)
      
      
    ' 从菜单栏中删除第一个菜单
      
    MyMenuBar.Item(0).RemoveFromMenuBar
      
      
    ' 将菜单添加回菜单栏上的
      
    ' 最后一个位置
      
    moveMenu.InsertInMenuBar (MyMenuBar.count)
      
End Sub