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

赞一个，送朵花！！

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

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

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

<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%">
<P><IMG alt=发贴心情 src="http://www.mjtd.com/bbs/skins/default/topicface/face1.gif" border=0>&nbsp;<B>用VB.net在CAD下动态加载菜单</B><BR>public class class1 <BR>'<BR>Dim acadapp As AcadApplication = Application.AcadApplication</P>
<P>Dim mymenu As AcadPopupMenu = acadapp.MenuGroups.Item(0).Menus.Add("&amp;Mymenu")<BR>'<BR>&lt;CommandMethod("addmenu")&gt; _<BR>public sub addmenu ()<BR>dim m1 as AcadPopupMenuItem = mymenu.AddMenuItem(0, "&amp;Line", "line ")<BR>mymenu.AddSeparator(1)<BR>dim m2 As AcadPopupMenu = mymenu.AddSubMenu(2, "&amp;Submenu")<BR>dim m3 as AcadPopupMenuItem = m2.AddMenuItem(3, "&amp;Circle", "circle ")<BR>dim m4 as AcadPopupMenuItem = m2.AddMenuItem(4, "&amp;Arc", "arc ")<BR>mymenu.InsertInMenuBar(12)<BR>end sub<BR>end class</P></TD></TR></TBODY></TABLE>
<P>mymenu.Unload()</P>
<P>应当能卸载。</P>

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

没人关心菜单了吗？

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

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

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

<P>让我试试C#的先~~~~</P>

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

通过com，需引用类库。

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

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

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

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

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

<P>原来我已经顶过一次了啊！！！</P>
<P>我用C#.net + auto2006</P>
页: 1 [2] 3
查看完整版本: 用VB.net在CAD下动态加载菜单