[VBA]弱若地问:如何实现功能?
我想添加一个ToolBar,每次打开AutoCAD的时候都加载该ToolBarToolBar里面有一个按钮,该按钮实现某个功能,对应一个宏
请问如何添加该Toolbar
新手,谢了 简单的办法就是做一个菜单文件加载即可 请问菜单文件加载,如何实现? 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 Sublisp部分:(defun c:命令名()(command "_vbarun " "宏(包含路径)"))
页:
[1]