cad中运行vba的简单途径

sscylh

想请问一下各位大侠:
   在cad中要运行vba能不能像在excel那样通过一个控件或者窗体按钮点下即可运行，这样会很方便。
   我现在运行vba都是alt+f11打开vbe，然后f5运行，我自己用还好，但是对于一些不会vba的，他们会不知道怎么运行。
  初学vba for cad，望各位不吝赐教，谢谢！
                                           sscylh

齐天大圣3386

可以做成命令，放到菜单栏里，用菜单按钮直接调用。

yuanji007

你看一下自定义菜单  应该可以的

woaishuijia

打开 WINDOWS 记事本程序,写入以下代码

2. (defun s::startup ()
   
3.   (arxload "acvba")
   
4. )

(defun s::startup ()<br />   (arxload "acvba")<br /> )

保存在CAD支持文件搜索目录中,文件名为"acad.lsp"

打开VBAIDE,编写一个创建自定义菜单和(或)工具栏的程序

2. Sub AcadStartup()
   
3.     Dim MyMenu As AcadPopupMenu, MyToolbar As AcadToolbar, MyToolButton As AcadToolbarItem, Macro As String
   
4.    
   
5.     '运行用户二次开发VBA程序 "a.dvb!MyProgram" 的命令宏字符串,相当于在CAD命令行键入的内容
   
6.     Macro = "-vbarun " & Chr(34) & "a.dvb!MyProgram" & Chr(34) & vbCr
   
7.     '在"自定义"菜单组中创建新菜单和工具栏,也可以在其它菜单组(如"ACAD")中创建,随意
   
8.     With MenuGroups.Item("CUSTOM")
   
9.         '创建菜单
   
10.         Set MyMenu = .Menus.Add("我的菜单")
    
11.         '把新建的菜单插入到ACAD菜单栏的第11列.索引(位置)可以任意,但不得超过原有下拉菜单的数量
    
12.         .Menus.InsertMenuInMenuBar "我的菜单", 10
    
13.         '在新菜单中添加关联到运行VBA程序 "a.dvb!MyProgram" 的菜单项
    
14.         MyMenu.AddMenuItem 0, "我的宏1(&M)", Macro
    
15.         '创建工具栏
    
16.         Set MyToolbar = .Toolbars.Add("我的工具栏")
    
17.         '工具栏可见
    
18.         MyToolbar.Visible = True
    
19.         '在新工具栏中添加关联到运行VBA程序 "a.dvb!MyProgram" 的按钮
    
20.         Set MyToolButton = MyToolbar.AddToolbarButton(0, "我的宏1", "VBA宏1(工具按钮提示字符串)", Macro)
    
21.         '为按钮添加位图图像
    
22.         MyToolButton.SetBitmaps "小图标(16*16像素)位图文件路径和文件名", "大图标(32*32像素)位图文件路径和文件名"
    
23.     End With
    
24. End Sub

Sub AcadStartup()<br />     Dim MyMenu As AcadPopupMenu, MyToolbar As AcadToolbar, MyToolButton As AcadToolbarItem, Macro As String<br />     <br />     '运行用户二次开发VBA程序 "a.dvb!MyProgram" 的命令宏字符串,相当于在CAD命令行键入的内容<br />     Macro = "-vbarun " & Chr(34) & "a.dvb!MyProgram" & Chr(34) & vbCr<br />     '在"自定义"菜单组中创建新菜单和工具栏,也可以在其它菜单组(如"ACAD")中创建,随意<br />     With MenuGroups.Item("CUSTOM")<br />         '创建菜单<br />         Set MyMenu = .Menus.Add("我的菜单")<br />         '把新建的菜单插入到ACAD菜单栏的第11列.索引(位置)可以任意,但不得超过原有下拉菜单的数量<br />         .Menus.InsertMenuInMenuBar "我的菜单", 10<br />         '在新菜单中添加关联到运行VBA程序 "a.dvb!MyProgram" 的菜单项<br />         MyMenu.AddMenuItem 0, "我的宏1(&M)", Macro<br />         '创建工具栏<br />         Set MyToolbar = .Toolbars.Add("我的工具栏")<br />         '工具栏可见<br />         MyToolbar.Visible = True<br />         '在新工具栏中添加关联到运行VBA程序 "a.dvb!MyProgram" 的按钮<br />         Set MyToolButton = MyToolbar.AddToolbarButton(0, "我的宏1", "VBA宏1(工具按钮提示字符串)", Macro)<br />         '为按钮添加位图图像<br />         MyToolButton.SetBitmaps "小图标(16*16像素)位图文件路径和文件名", "大图标(32*32像素)位图文件路径和文件名"<br />     End With<br /> End Sub

把上面的VBA工程文件同样保存在CAD支持文件搜索目录中,文件名为"acad.dvb"

上面代码中自定义菜单名称,菜单项名称,自定义工具栏名称,按钮名称均为示例.
代码第5行中"a.dvb!MyProgram"是与该新建的菜单项和工具栏按钮关联的运行用户指定VBA程序的工程文件名和宏名称.该文件名和宏名称均为示例
如果该用户指定的VBA工程文件不在CAD支持文件搜索目录中,则应包含完整路径;如该工程文件中包含多个模块且不同模块中存在同名宏,则宏名称中应包含模块名称.如"D:\我的VBA程序\c.dvb!thisdrawing.d"
代码中只新建了一个菜单项和一个工具栏按钮,实际使用时可根据需要创建多个

使用方法
ACAD软件启动时,会在支持文件搜索目录中自动搜索加载"acad.lsp"文件并运行其中的"s::startup"程序,该程序会令CAD加载VBA模块,进而在支持文件搜索目录中自动搜索加载"acad.dvb"文件并运行其中的"AcadStartup"VBA宏,达到在CAD图形界面添加自定义菜单和(或)工具栏的目的.用户使用时只要点击相应的菜单项或工具栏按钮,就可方便地运行指定的VBA程序.

aceowen

完全可以自定义工具按钮的。

fxz07

这个适用于2012版不

飞天鱼Tommy

学习了，这个新手很实用