基于AutoCAD―VBA对象交互式操作方法探讨.docVIP

基于AutoCAD―VBA对象交互式操作方法探讨 　　摘 要：VBA是一个AutoCAD应用程序集成开发环境，是一种面向对象的可视化结构编程语言，被广泛应用于各领域的实际工作中。通过VBA对AutoCAD的二次开发，设计了一个对对象组合、拆散的应用程序，比较之前的命令行对话框的操作，提高了工作效率，实际应用效果良好。 　　关键词：AutoCAD；VBA；对象；交互式 　　1 概述 　　AutoCAD中对象的组合拆散是一组常用操作，可以通过Group命令实现对对象的组合[1]，但组合拆散对象时必须都在对话框状态下进行，而且不能先选定后操作，操作不便捷[2]。到了2002版本之后，AutoCAD菜单中甚至取消了这个命令。但在实际绘图中，对象的组合、拆散功能队绘图有很大的帮助，因为在选择对象时，组合在一起的对象可以一次性选定而不需要逐个对象选择。所以，通过编程实现快捷使用对象组合拆散功能，是这个程序编写的目的。 　　程序设计思路是去掉对话框，只要选定对象后输入一个相应的组合命令就可以直接将选定的对象综合在一起，而且不需要命名。拆散对象也是同样的道理。选定组合，输入拆散的命令就可以直接将组合在一起的对象拆散。 　　2 实例分析 　　文章通过AutoCAD-VBA设计一个组合拆散对象的应用程序。 　　（1）运行AutoCAD2004，在【VBA管理器】对话框中新建一个全局工程[3]，进入VBA集成开发环境，将其名称修改为“匿名组”，保存在适当的位置上。 　　（2）在【工程资源管理器】窗口中双击ThisDrawing，打开该模块的代码窗口，首先其中添加对象组合的代码： 　　Sub AddUnNameGroup（ ） 　　Dim SelObjects As AcadSelectionSet 　　Dim ppendObjs（ ） As AcadEntity 　　Set SelObjects=GetSelSet 　　Dim UnNameGroup As AcadGroup 　　Set UnNameGroup=ThisDrawingGroups.Add（“*”） 　　ReDim appendObjs（0 To SelObjects.Count-1） 　　Dim I As Integer 　　For i=0 To SelObjects.Count-1 　　Set appendobjs（i）=SelObjects.Item（i） 　　Next 　　UnNameGroup.AppendItems appendobjs 　　End Sub 　　（3）在ThisDrawing模块的代码窗口中，添加通过选择对象所在的组，分解组的代码： 　　Sub DelUnNameGroup（ ） 　　Dim SelGroup As AcadGroup 　　Dim SelObjects As AcadSelectionSet 　　Set SelObjects=GetSelSet 　　Dim ObjInSelSet As AcadObject 　　Dim I As Integer 　　Dim j As Integer 　　Dim k As Integer 　　Dim ObjInGroup As AcadObject 　　On Error Resume Next 　　For i=0 To SelObjects.Count-1 　　Set ObjInSelSet=SelObjects.Item（i） 　　For j=0 To ThisDrawing.Groups. Count-1 　　For k=0 To ThisDrawing.Groups.Item（j）. Count-1 　　Set ObjInGroup=ThisDrawing.Groups.Item（j）.Item（k） 　　If ObjInGroup.ObjectID=ObjInSelect.ObjectID Then 　　ThisDrawing.Groups.Item（j）.Delete 　　Exit For 　　End If 　　Next 　　Next 　　Next 　　End Sub 　　这段代码的实现过程由于不能通过选定的对象来直接找到其组合名称，只能通过循环比较对象ID的方法来解决这个问题。运行时可能会慢点，但对象不多的情况下其运行速度还是很快的。 　　（4）在AutoCAD安装路径的Support目录下的新建一个命名为UnNameGroup.lsp的文文章件，文件内容如下： 　　（defun c：ga（ ） （princ）） 　　（defun c：gd（ ） （princ）） 　　3 实例效果 　　（1）