Index Пример |
Sub Example_Index() ' Этот пример выполняет итерации через первое меню в строке меню ' и показывает индекс для каждого пункта меню. Dim menuItem As AcadPopupMenuItem Dim menuIndex As String menuIndex = "" For Each menuItem In ThisDrawing.Application.MenuBar.Item(0) menuIndex = menuIndex & menuItem.TagString & " имеет индекс: " & menuItem.index & vbCrLf Next menuItem MsgBox menuIndex End Sub