用VB.net在CAD下动态加载菜单

tcsl9621

public class class1
'
Dim acadapp As AcadApplication = Application.AcadApplication
'
<CommandMethod("addmenu")> _
public sub addmenu ()
Dim mymenu As AcadPopupMenu = acadapp.MenuGroups.Item(0).Menus.Add("&Mymenu")
dim m1 as AcadPopupMenuItem = mymenu.AddMenuItem(0, "&Line", "line ")
mymenu.AddSeparator(1)
dim m2 As AcadPopupMenu = mymenu.AddSubMenu(2, "&Submenu")
dim m3 as AcadPopupMenuItem = m2.AddMenuItem(3, "&Circle", "circle ")
dim m4 as AcadPopupMenuItem = m2.AddMenuItem(4, "&Arc", "arc ")
mymenu.InsertInMenuBar(12)
end sub
end class
向CAD中加入自已的菜单，摸索了好多天。唉。。。。
在此拿出来供大家分享。

simonkx

不错，顶起

babyshan

能用吗？

tcsl9621

当然能用.你可以上机试试。我在网上找了很久都没有。我只好一点一点摸索着找出来的。

houlinbo

系统菜单怎么能够动态隐藏？

tcsl9621

我没试过隐藏,不过可以试试.

56854365

        For i As Integer = 0 To app.MenuGroups.Count - 1
            app.MenuGroups.Item(i).Unload()
        Next

这样就可以把CAD自带的菜单都卸载掉了

heluyuan

不错，试了一下，确实可行！

但在C＃.net中找了很久，也没弄出来，楼主可否再赐教……

tcsl9621

C#和VB.NET中编程是一样的。我没用C#。

lhtfh

不错，可以试试