NameNoMnemonic Example

Using Programming Languages other than VBA

Sub Example_NameNoMnemonic()
	' This example iterates through the menus collection and
	' displays the Name and NameNoMnemonic property for each menu.

	' Note that depending on how many menus are currently loaded, the
	' menuStatus string may not be displayed in full.

	Dim currMenu As AcadPopupMenu
	Dim menuStatus As String

	menuStatus = ""
	For Each currMenu In ThisDrawing.Application.MenuGroups.Item(0).Menus
		menuStatus = menuStatus & & " -- " & currMenu.NameNoMnemonic & vbCrLf
	Next currMenu
	MsgBox menuStatus

End Sub