Sub Example_Check()
    ' Этот пример создает новое меню по имени TestMenu и вставляет два
    ' пункта меню. Второй пункт меню затем проверен.
    ' Меню показано на строке меню.
    ' Чтобы удалять меню после выполнения этой макрокоманды, используйте
    ' опцию Customize Menu из меню Tools.
    
    Dim currMenuGroup As acadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
    
    ' Создайте новое меню
    Dim newMenu As AcadPopupMenu
    Set newMenu = currMenuGroup.Menus.Add("TestMenu")
    
    ' Добавьте два пункта меню к новому меню
    Dim Menu1 As AcadPopupMenuItem
    Dim Menu2 As AcadPopupMenuItem
    Dim MenuSeparator As AcadPopupMenuItem
    Dim openMacro As String
    
    ' Назначите макро строку VB эквивалент "ESC ESC _open "
    openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
    
    Set Menu1 = newMenu.AddMenuItem(newMenu.count + 1, "Open1", openMacro)
    Set MenuSeparator = newMenu.AddSeparator("")
    Set Menu2 = newMenu.AddMenuItem(newMenu.count + 1, "Open2", openMacro)
    
    ' Отключите новый пункт меню
    Menu2.Check = True
    
    ' Покажите меню на строке меню
    newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.count + 1)
    
End Sub