cad中运行vba的简单途径

sscylh · 发表于 2012-9-12 16:59:00

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

齐天大圣3386 · 发表于 2012-9-12 19:50:00

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

yuanji007 · 发表于 2012-10-13 20:29:00

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

woaishuijia · 发表于 2012-10-14 23:20:00

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

copy


(defun s::startup ()
  (arxload "acvba")
)

保存在CAD支持文件搜索目录中,文件名为"acad.lsp"
打开VBAIDE,编写一个创建自定义菜单和(或)工具栏的程序

copy


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