VB对AutoCAD二次开发案例-编辑版-创建菜单栏概要1.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(, AutoCAD.Application) myapp.Visible = True如果没有CAD程序打开，则通过开启cad软件获得CAD的控制句柄 If Err 0 ThenSet myapp = CreateObject(Autocad.Application) myapp.Visible = TrueEnd If注意： GetObject(, AutoCAD.Application)里面的那个逗号的来源请仔细阅读VB程序帮助里面的解释二、创建菜单（在VBA环境下）取得AutoCAD的菜单组的链接 代码如下： Public Sub menu() Dim my_菜单组 As AcadMenuGroup Set my_菜单组 = ThisDrawing.Application.MenuGroups.Item(0)创建一个名为乾康工具集的新菜单 Dim my_弹出式菜单 As AcadPopupMenu Set my_弹出式菜单 = my_菜单组.Menus.Add(乾康工具集) Dim my_弹出式菜单项 As AcadPopupMenuItem Dim openMacro As String Set my_弹出式菜单项 = my_弹出式菜单.AddMenuItem(0, 删除圆及圆弧, -VBARUN DEL_ACR + chr(13) ) my_菜单组.Menus.InsertMenuInMenuBar 乾康工具集, 6取得AutoCAD的菜单组的链接创建一个名为删除圆及圆弧的下拉菜单项的注：无论是使用InsertMenuInMenuBar方法还是InsertInMenuBar方法来加载菜单，被加载菜单都必须要有菜单项End Sub -VBARUN DEL_ACR + chr(13)在宏名称之前添加 -VBARUN是因为从AutoCAD 工具栏或菜 单运行 VBA 宏。Macro 特性必须设置为等于 -VBARUN filename.dvb!modulename.macroname 其中，filename 是工程文件的名称，modulename 是包含要运行的宏的模块名称，而macroname 是要运行的宏的名称。只有在当前 AutoCAD 任务中未加载文件时，才需要文件 名。如果提供了文件名，将会加载该文件。取得AutoCAD的菜单组的链接菜单组，个人认为AutoCAD中就只有一个菜单中取得AutoCAD的菜单组的链接注：图示解释相关名称菜单，需要使用PopupMenus里面的Add方法来创建新的菜单这些都是工具条菜单项，需要使用PopupMenu里面的AddMenuItem方法来创建新的菜单下图中的“文件”“编辑”“视图”……“帮助”这些合起来就是菜单组（MenuGroup） 而“文件”“编辑”“视图”这些单独描述就是弹出式菜单（PopupMenu） 再则，标注底下的“快速标注”“线性”“对齐”等，就是特定菜单里面的菜单项（PopupMe