有一个CAD的宏名你查一下,名为acad
你更改一下,把你的VAB加进去,然后复制到CAD目录中\support下
下面是ACAD.dvb
Sub ACADStartup() Call AcadApplication.LoadDVB("c:\acad2000\Support\你的文件名.dvb")
'Call AcadApplication.RunMacro(".\Sample\VBA\VBAIDEmenu\Custom_menu.dvb!CreateVBAToolBar") 'Call AcadApplication.RunMacro(".\Sample\VBA\VBAIDEmenu\Custom_menu.dvb!VBAIDE_Customization") End Sub