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

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如果已有CAD程序打开，则直接获得CAD的控制句柄 Set myapp = GetObject(, AutoC