为菜单项和工具栏项创建状态行帮助

Sub Ch6_AddHelp()

    Dim currMenuGroup As AcadMenuGroup

    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

      
    ' 创建新菜单
      
    Dim newMenu As AcadPopupMenu
      
    Set newMenu = currMenuGroup.Menus.Add _
      
                              ("Te" + Chr(Asc("&")) + "stMenu")
      
      
    ' 向新菜单添加菜单项
      
    Dim newMenuItem As AcadPopupMenuItem
      
    Dim openMacro As String
      
    ' 给宏指定“ESC ESC _open”的 VBA 等价值
      
    openMacro = Chr(3) + Chr(3) + "_open "
      
      
      
    ' 创建菜单项
      
    Set newMenuItem = newMenu.AddMenuItem _
      
                       (newMenu.count + 1, Chr(Asc("&")) _
      
                        + "Open", openMacro)
      
      
    ' 向菜单项添加状态行帮助
      
     newMenuItem.HelpString = "Opens an AutoCAD drawing file."
      
      
    ' 在菜单栏上显示菜单
      
    newMenu.InsertInMenuBar _
      
                 (ThisDrawing.Application.menuBar.count + 1)
      
End Sub