基干AutoCAD―VBA图层切换工具策划探析.doc

基于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 = objLayer E