.NET

Reply
Contributor
NovayaEra
Posts: 13
Registered: ‎08-10-2011
Message 1 of 2 (342 Views)
Accepted Solution

How to make Menu visible?

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

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?

 

 

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

 

 

ADN Support Specialist
wayne.brill
Posts: 246
Registered: ‎08-25-2004
Message 2 of 2 (324 Views)

Re: How to make Menu visible?

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

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

 

 



Wayne Brill
Developer Technical Services
Autodesk Developer Network

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Are You Going To Be @ AU 2014? Feel free to drop by our AU topic post and share your plans, plug a class that you're teaching, or simply check out who else from the community might be in attendance. Ohh and don't forgot to stop by the Autodesk Help | Learn | Collaborate booths in the Exhibit Hall and meet our community team if you get a chance!