浅析基于AutoCAD-VBA 的对象交互式操作方法.docVIP

浅析基于AutoCAD-VBA 的对象交互式操作方法 　　1 概述 　　AutoCAD 中对象的组合拆散是一组常用操作，可以通过Group命令实现对对象的组合，但组合拆散对象时必须都在对话框状态下进行，而且不能先选定后操作，操作不便捷。到了2002 版本之后，AutoCAD 菜单中甚至取消了这个命令。但在实际绘图中，对象的组合、拆散功能队绘图有很大的帮助，因为在选择对象时，组合在一起的对象可以一次性选定而不需要逐个对象选择。所以，通过编程实现快捷使用对象组合拆散功能，是这个程序编写的目的。程序设计思路是去掉对话框，只要选定对象后输入一个相应的组合命令就可以直接将选定的对象综合在一起，而且不需要命名。拆散对象也是同样的道理。选定组合，输入拆散的命令就可以直接将组合在一起的对象拆散。 　　2 实例分析 　　文章通过AutoCAD-VBA 设计一个组合拆散对象的应用程序。 　　(1)运行AutoCAD2004，在【VBA 管理器】对话框中新建一个全局工程，进入VBA 集成开发环境，将其名称修改为“匿名组”，保存在适当的位置上。 　　(2)在【工程资源管理器】窗口中双击ThisDrawing，打开该模块的代码窗口，首先其中添加对象组合的代码： 　　Sub AddUnNameGroup( )Dim SelObjects As AcadSelectionSetDim ppendObjs( ) As AcadEntitySet SelObjects=GetSelSetDim UnNameGroup As AcadGroupSet UnNameGroup=ThisDrawingGroups.Add(“*”)ReDim appendObjs(0 To SelObjects.Count-1)Dim I As IntegerFor i=0 To SelObjects.Count-1Set appendobjs(i)=SelObjects.Item(i)NextUnNameGroup.AppendItems appendobjsEnd Sub 　　(3)在ThisDrawing 模块的代码窗口中，添加通过选择对象所在的组，分解组的代码： 　　Sub DelUnNameGroup( )Dim SelGroup As AcadGroupDim SelObjects As AcadSelectionSetSet SelObjects=GetSelSetDim ObjInSelSet As AcadObjectDim I As IntegerDim j As IntegerDim k As IntegerDim ObjInGroup As AcadObjectOn Error Resume NextFor i=0 To SelObjects.Count-1Set ObjInSelSet=SelObjects.Item(i)For j=0 To ThisDrawing.Groups. Count-1For k=0 To ThisDrawing.Groups.Item(j). Count-1Set ObjInGroup=ThisDrawing.Groups.Item(j).Item(k)If ObjInGroup.ObjectID=ObjInSelect.ObjectID ThenThisDrawing.Groups.Item(j).DeleteExit ForEnd IfNextNextNextEnd Sub 　　这段代码的实现过程由于不能通过选定的对象来直接找到其组合名称，只能通过循环比较对象ID 的方法来解决这个问题。运行时可能会慢点，但对象不多的情况下其运行速度还是很快的。 　　(4)在AutoCAD 安装路径的Support 目录下的新建一个命名为UnNameGroup.lsp 的文文章件，文件内容如下： 　　(defun c:ga( ) (princ))(defun c:gd( ) (princ)) 　　3 实例效果 　　(1)在AutoCAD 2004 中，加载UnNnameGroup.lsp 文件。 　　(2)选定图形中的部分对象，在命令行中输入“ga”并按下Enter键，此时选定的对象将自动组合起来。 　　(3)选定刚组合的对象，在命令行中输入“gd”并按下Enter 键，此时选定的组合将自动拆散。 　　4 总结与提高 　　通过这个程序的设计，实现了通过代码语言实现匿名的组合，匿名的组合可以使用下面的语句生成：ThisDrawing.Groups.Add“( .”)就是名称项中用“.”即可生成匿名块。组合的操作与选择集的操作相似，都应该先生成一个空的组合，然后把对象添