[VBA]弱若地问：如何实现功能？

kingfox

我想添加一个ToolBar，每次打开AutoCAD的时候都加载该ToolBar


ToolBar里面有一个按钮，该按钮实现某个功能，对应一个宏


请问如何添加该Toolbar



新手，谢了

雪山飞狐_lzh

简单的办法就是做一个菜单文件加载即可

kingfox

请问菜单文件加载，如何实现？

wyj7485

2. vba部分：Sub myToolbar()
3. Dim     MyToolbar As AcadToolbar
4. Set MyToolbar = mymenugroup.Toolbars.Add("☆ 工具条名称")
6. Dim MyCmd1 As String
7. MyCmd1 = Chr(3) + Chr(3) + Chr(95) + "命令名" + Chr(32)
8. Dim MyCmdbutton1 As AcadToolbarItem
9. Set MyCmdbutton1 = MyToolbar.AddToolbarButton(0, "说明1", "说明2":命令名,MyCmd1)
10. MyCmdbutton1 .SetBitmaps "a.bmp", "a.bmp" ' 小、大图标MyToolbar.Dock acToolbarDockLeftEnd Sub  lisp部分：(defun c:命令名()(command "_vbarun " "宏（包含路径）"))

vba部分：Sub myToolbar() Dim     MyToolbar As AcadToolbar Set MyToolbar = mymenugroup.Toolbars.Add("☆ 工具条名称") Dim MyCmd1 As String MyCmd1 = Chr(3) + Chr(3) + Chr(95) + "命令名" + Chr(32) Dim MyCmdbutton1 As AcadToolbarItem Set MyCmdbutton1 = MyToolbar.AddToolbarButton(0, "说明1", "说明2":命令名,MyCmd1) MyCmdbutton1 .SetBitmaps "a.bmp", "a.bmp" ' 小、大图标MyToolbar.Dock acToolbarDockLeftEnd Sub  lisp部分：(defun c:命令名()(command "_vbarun " "宏（包含路径）"))