基于AutoCAD―VBA的图层切换工具设计探讨.docVIP

基于AutoCAD―VBA的图层切换工具设计探讨 　　摘 要：VBA是一个AutoCAD应用程序集成开发环境，是一种面向对象的可视化结构编程语言，被广泛应用于各领域的实际工作中。通过界面或命令方式切换图层的方法不便捷，针对这个问题，设计了一个切换图层辅助程序，可以选择所需图层并且只显示本图层信息，还可以针对不同图层设置不同颜色以示区别。实际应用效果良好，提高了工作效率。 　　关键词：AutoCAD；VBA；图层 　　1 概述 　　AutoCAD（Autodesk Computer Aided Design）是一款用于二维绘图、详细绘制、设计文档和基本三维设计的自动计算机辅助设计软件。AutoCAD绘图功能强大，但在处理表格、数据等方面有局限性。可以通过对AutoCAD的二次开发，简化绘图过程，避免重复性工作，充分发挥其快速、准确的优势[1]。Visual Basic for Applications（ VBA）是Visual Basic的一种宏语言，可以通过VBA编程操作CAD的绘图对象[2]。 　　在AutoCAD中，切换图层的操作很不便捷，特别是当图形中包含多个图层的时候，每次都要通过打开图层列表，去选择要切换的图层[3]。虽然有人开发了根据创建对象的当前类型自动切换图层的程序，但是其具有明显缺陷性。如在建筑制图中，由于建筑绘图中直线会用来表示多种对象，需要放置在很多图层中[4]，这样的情况编写的程序就不适用。作者在使用中分析得到，切换图层除了打开列表不方便，搜索目标图层也不便捷，因为图层列表是固定不变的，而不是按照用户使用的频繁程序而排列。 　　2 编程思路 　　文章所创建的切换图层程序正是针对上述问题，在文本框中显示当前图层的名称，列表中显示了当前图形中所有的图层。程序设计思路是在设置当前图层后对列表的排序操作。设置当前图层后，将列表中指定的图层名称移到第一位，在原来位置之前的所有元素向后退一位，其他元素位置保持不变。列表的排序方法为：当前图层、上一次的当前图层、再上一次的当前图层，依此类推。列表能够明确地显示出当前所有图层，省去了打开下拉列表的时间，图层的排序保证了可以容易地选择频繁使用的图层。 　　3 设计分析 　　（1）在【VBA管理器】对话框中，创建一个新工程。并在这个工程中创建用户窗体。 　　（2）在窗体的初始化事件中，需要读取图形中图层名称，添加到列表框中，并且调整控件的状态，其程序代码为： 　　Private Sub UserForm_Initialize（ ） 　　Dim objLayer As AcadLayer 　　Dim I As Integer 　　For Each objLayer In ThisDrawing.Layers 　　lstLayers .AddItem objLayer.Name， i 　　i=i +1 　　Next 　　lstLayers.ListIndex = 0 　　txtCurLayer.Enabled = False 　　End Sub 　　（3）【仅显示当前图层】复选框允许用户在指定当前图层时关闭其他图层，如果用户单击该复选框取消选中状态，则显示所有图层，其实现代码为： 　　If chcShow.Value = True Then 　　For Each objLayer In ThisDrawing.Layers 　　If objLayer.Name txtCurLayer.Text Then 　　objLayer.LayerOn = False 　　Else 　　objLayer.LayerOn = True 　　End If 　　Next 　　ElseIf chcShow.Value = False Then 　　For Each objLayer In ThisDrawing.Layers 　　objLayer.LayerOn = True 　　Next 　　End If 　　End Sub 　　（4）图层列表框的双击事件中，包含了设置当前图层以及排序列表框内容的代码，其实现代码为： 　　Private Sub lstLayers_DblClick（ByVal Cancel As MSForms.ReturnBoolean） 　　txtCurLayer.Text = lstLayers.Text 　　Dim objLayer As AcadLayer 　　For Each objLayer In ThisDrawing.Layers 　　If objLayer.Name = txtCurLayer.Text Then 　　ThisDrawing.ActiveLayer