kingfox 发表于 2005-5-11 22:44:00

[VBA]弱若地问:如何实现功能?

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


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


请问如何添加该Toolbar



新手,谢了

雪山飞狐_lzh 发表于 2005-5-12 09:06:00

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

kingfox 发表于 2005-5-12 15:14:00

请问菜单文件加载,如何实现?

wyj7485 发表于 2005-5-12 16:01:00

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]
查看完整版本: [VBA]弱若地问:如何实现功能?