How to make Menu visible?

[Anonymous]

I load my .cuix file into Autocad 2013 using VB.Net:

Dim mg As Object
Try
    mg = Application.MenuGroups.Item(cuiName)
Catch ex As System.Exception
    mg = Application.MenuGroups.Load(cuiFile)
End Try

File loading sucsessfuly, but my menu is invisible.

I tried do this, but got an error..

            Dim i As Integer
            For i = 0 To mg.Menus.count - 1
                mg.Menus.Item(i).Visible = True
            Next

 How to make menu visible?

[wayne.brill · Accepted solution]

Hi,

Try using InsertMenuInMenuBar. Here is the VBA example from the AutoCAD ActiveX API help file.

 "C:\Program Files\Common Files\Autodesk Shared\acadauto.chm"

 
Sub Example_InsertMenuInMenuBar()
    ' This example creates a new menu called TestMenu and inserts a menu item
    ' into it. The menu is then displayed on the menu bar.
   
    Dim currMenuGroup As acadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
   
    ' Create the new menu
    Dim newMenu As AcadPopupMenu
    Set newMenu = currMenuGroup.Menus.Add("TestMenu")
   
    ' Add a menu item to the new menu
    Dim newMenuItem As AcadPopupMenuItem
    Dim openMacro As String
    ' Assign the macro string the VB equivalent of "ESC ESC _open "
    openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
   
    Set newMenuItem = newMenu.AddMenuItem(newMenu.count + 1, "Open", openMacro)
   
    ' Display the menu on the menu bar
    currMenuGroup.Menus.InsertMenuInMenuBar "TestMenu", ""
       
End Sub

This blog post could also be of interest:

http://through-the-interface.typepad.com/through_the_interface/2006/11/loading_a_parti.html