Label Example

Using Programming Languages other than VBA

Sub Example_Label()
	' This example iterates through the first menu in the menu bar
	' and displays the label for each menu item.

	Dim menuItem As AcadPopupMenuItem
	Dim menuLabel As String
	menuLabel = ""

	For Each menuItem In ThisDrawing.Application.MenuBar.Item(0)
		menuLabel = menuLabel & menuItem.Label & vbCrLf
	Next menuItem
	MsgBox menuLabel

End Sub

 

   Comments?