【转帖】用vb.net在cad下动态加载菜单
 

用vb.net在cad下动态加载菜单
www.dimcax.com
用vb.net在cad下动态加载菜单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中加入自已的菜单，摸索了好多天。唉。。。。
在此拿出来供大家分享。
lisp vba arx .net开发都会一点。可惜都不精。希望和大家共同学习进步。
【送花】送上鲜花一朵 鲜花+1 [ganok |
不错，顶起
能用吗？
当然能用.你可以上机试试。我在网上找了很久都没有。我只好一点一点摸索着找出来的。
[此贴子已经被作者于
lisp vba arx .net开发都会一点。可惜都不精。希望和大家共同学习进步。
系统菜单怎么能够动态隐藏？
我没试过隐藏,不过可以试试.
lisp vba arx .net开发都会一点。可惜都不精。希望和大家共同学习进步。