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

tcsl9621 · 发表于 2006-4-10 20:36

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 · 发表于 2006-4-23 23:36

不错，顶起

babyshan · 发表于 2006-4-25 14:49

能用吗？

tcsl9621 · 发表于 2006-4-25 19:23

本帖最后由作者于 2006-4-26 21:55:59 编辑

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

houlinbo · 发表于 2006-5-9 11:34

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

tcsl9621 · 发表于 2006-5-11 20:07

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

56854365 · 发表于 2006-5-15 17:02

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

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

heluyuan · 发表于 2006-5-17 09:39

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

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

tcsl9621 · 发表于 2006-5-19 21:37

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

lhtfh · 发表于 2006-5-21 13:24

不错，可以试试

账号		自动登录	找回密码
密码			注册