VB对AutoCAD二次开发案例-编辑版-创建菜单栏

VBA 对 AutoCAD 二次开发开发背景因为公司电脑的 layout 设计部门人员不能将元器件转换为 3D，故而每次需要结构工程师自行将元器件的 2D 图处理后导入三位软件进展 3D 绘制，在处理二维工程图时，出现很多小圆弧，小圆弧处于不同的层，依次删除小圆弧很繁琐造成工作效率低下。 故而通过创立一个菜单栏，将删除小圆弧的程序全部放入一个菜单之下，实现自动化操作操作的流程如下：连接 AutoCAD→猎取 AutoCAD 的菜单组→创立菜单→创立菜单项→将菜单显示到AutoCAD 中→编辑圆弧删除程序。详尽代码一、在 VB 中连接 AutoCAD 的。在 VBA 中那么可以跳过此步Application 对象是 VB 应用程序与 AutoCAD 之间的关键。将 Application 对象与AutoCAD 是为 AutoCAD 二次开发应用程序的第一步工作。当 AutoCAD 运行时，GetObject 函数返回 Application 对象，否那么发生一个错误，这时 Err 对象的根底属性就会被赋值为一个非零值，可以利用一个错误陷井进展处理。假如 AutoCAD 没有运行，可以使用 CreateObject 函数强迫 AutoCAD 启动。Dim myapp As Object On Error Resume Next Set myapp = GetObject(, "AutoCAD.Application") myapp.Visible = True If Err <> 0 ThenSet myapp = CreateObject("Autocad.Application") myapp.Visible = TrueEnd If注意： GetObject(, "AutoCAD.Application")里面的那个逗号的来源请认真阅读 VB 程序帮助里面的解释二、创立菜单〔在 VBA 环境下〕 代码如下： Public Sub menu() Dim my_菜单组 As AcadMenuGroup Dim my_弹出式菜单 As AcadPopupMenu Dim my_弹出式菜单项 As AcadPopupMenuItem Dim openMacro As String Set my_弹出式菜单项 = my_弹出式菜单.AddMenuItem(0, "删除圆与圆弧", "-VBARUN DEL_ACR + chr(13) ")假如已有 CAD 程序翻开，那么直接获得 CAD 的控制句柄假如没有 CAD 程序翻开，那么 通 过 开 启 cad 软 件 获 得CAD 的控制句柄取得 AutoCAD 的菜单组的链接创立一个名为乾康工具集的新菜单End Sub -VBARUN DEL_ACR + chr(13)在宏名称之前添加 -VBARUN 是因为从 AutoCAD 工具栏或菜 单运行 VBA 宏。Macro 特性必须设置为等于 -VBARUN filename.dvb!modulename.macroname 其中，filename 是工程文件的名称，modulename 是包含要运行的宏的模块名称，...