VBA做的按钮如何加入到CAD工具栏中?

keelung

各位高手,我是个初学者,刚刚学着用VBA作了个添加按钮调用某个宏实现简单操作的工具,但我不知道如何能将VBA生成的工具栏按钮自动加载到CAD工具栏上,而不是每次都要在命令行键入"-vbarun",然后再键入vba的宏命令后才能出现该按钮?(CAD启动后自动成加载宏,自动生成该按钮?我只需点击按钮就可使用?)

期待着您给予帮助,谢谢!

city_camel

在你默认的cad安装目录里找/Sample/VBA/VBAIDEMenu里有两个dvb文件（acad.dvb，custom_menu.dvb）剪切到Support里，然后重启cad在VBE里就能看到，

Sub ACADStartup()
    Call AcadApplication.RunMacro(".\Sample\VBA\VBAIDEmenu\Custom_menu.dvb!CreateVBAToolBar")
    Call AcadApplication.RunMacro(".\Sample\VBA\VBAIDEmenu\Custom_menu.dvb!VBAIDE_Customization")
End Sub
这就是默认打开cad时加载的，你照这样的格式加载你的工具栏，试试！

keelung

谢谢!