yang686526

一个vba开发菜单和工具栏的源程序
www.dimcax.com
一个vba开发菜单和工具栏的源程序
'更多更好的cad开发资料尽在“天乐cad”
'
sub ad_addmenuitems()
dim objmenu as acadpopupmenu
dim newmenuitem as acadpopupmenuitem
dim menumacro as string
dim objtoolbar as acadtoolbar
dim objtoolbarbutton as acadtoolbaritem
dim buttonname as string
dim objmenugroup as acadmenugroup
dim menuname as string
dim smallbitmap as string
dim largebitmap as string
' on error goto menu_error

'在编辑菜单中加入一个画直径为20圆的菜单
set objmenu = thisdrawing.application.menubar.item("编辑(&e)")
menumacro = "circle 100,100 d 20 "
menuname = "acad"
set newmenuitem = objmenu.addmenuitem(objmenu.count + 1, "我的菜单", menumacro)
'创建工具栏
thisdrawing.application.menugroups(menuname).toolbars.add "我的工具栏"
buttonname = "我的命令"
set objtoolbar = thisdrawing.application.menugroups(menuname).toolbars("我的工具栏")
set objtoolbarbutton = objtoolbar.addtoolbarbutton(1, "我的命令", "绘制20圆", menumacro)
'下面的代码是为工具栏加载一个图标，是16x16和32x32的bmp图片，注意要加路径
' smallbitmap = "你的文件.bmp"
' largebitmap = "你的文件.bmp"
' objtoolbarbutton.setbitmaps smallbitmap, largebitmap
exit sub
'menu_error:
' msgbox err.description
end sub

感觉还不错,学习了

好好学下