Posts: 13
Registered: ‎08-10-2011
Message 1 of 2 (318 Views)
Accepted Solution

How to make Menu visible?

318 Views, 1 Replies
12-11-2012 11:44 PM

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


Dim mg As Object
    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

 How to make menu visible?



ADN Support Specialist
Posts: 198
Registered: ‎08-25-2004
Message 2 of 2 (300 Views)

Re: How to make Menu visible?

12-12-2012 10:48 AM in reply to: NovayaEra



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:




Wayne Brill
Developer Technical Services
Autodesk Developer Network

Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.
Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.