- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello,
Does anybody know why my menu group is not saving in the following code.
The following code adds a menu item to the Toolbar Test in a menu group named TEST. However when I exit and re-enter AutoCAD the menu is not saved. I have also tried saveas with no luck.
I am compiling the code **** a .net dll and then running it via lisp.
Any ideas?
'
'(TestAddToolbarItem_dotNet)
'
<LispFunction("TestAddToolbarItem_dotNet")> _
Public Function TestAddToolbarItem_dotNet(Optional ByVal myLispArgs As ResultBuffer = Nothing) As ResultBuffer
Dim acadApp As AcadApplication = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication
Dim objMenuGroup As AcadMenuGroup = acadApp.Application.MenuGroups.Item("TEST")
Dim objToolbar As AcadToolbar = objMenuGroup.Toolbars.Item("Test")
objToolbar.Visible = True
Dim objNewToolbrItem As AcadToolbarItem = objToolbar.AddToolbarButton(objToolbar.Count, "Test", "", "Macro")
'objMenuGroup.Save(Autodesk.AutoCAD.Interop.Common.AcMenuFileType.acMenuFileSource)
objMenuGroup.Save(Autodesk.AutoCAD.Interop.Common.AcMenuFileType.acMenuFileCompiled)
MsgBox("'" & objMenuGroup.MenuFileName & "' Attempt Menu Group save. But it does not seem to be saving..")
Return myLispArgs
End Function
Kind Regards
David Rock
Solved! Go to Solution.

