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

ganok · 发表于 2006-5-27 19:12:00

赞一个，送朵花！！

tcsl9621 · 发表于 2006-5-27 21:25:00

谢谢ganok兄的花。我会多多努力的。大家一起学习，共同进步吧。

tcsl9621 · 发表于 2006-6-2 12:08:00

发贴心情 用VB.net在CAD下动态加载菜单
public class class1
'
Dim acadapp As AcadApplication = Application.AcadApplication

Dim mymenu As AcadPopupMenu = acadapp.MenuGroups.Item(0).Menus.Add("&Mymenu")
'
<CommandMethod("addmenu")> _
public sub addmenu ()
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

mymenu.Unload()

应当能卸载。

tcsl9621 · 发表于 2006-8-26 22:44:00

没人关心菜单了吗？

对牛谈情 · 发表于 2006-8-31 11:44:00

我查了一下，对像浏览器中找不到AcadPopupMenu类，请问楼上如何编译成功的？？

muli · 发表于 2006-9-17 10:39:00

让我试试C#的先~~~~

hbwush · 发表于 2006-9-19 19:22:00

通过com，需引用类库。

xiaoyicn · 发表于 2006-9-21 15:00:00

AutoCAD2006测试可以，请问2004也可以么？

muli · 发表于 2006-9-22 12:47:00

晚上回去的时候我给你搞一个C#加载自定义菜单的程序

muli · 发表于 2006-9-22 12:50:00

原来我已经顶过一次了啊！！！

我用C#.net + auto2006

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