基于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

Exit For

End If

Next

Dim strTemp As String

Dim index As Integer

Dim i As Integer

index = lstLayers.ListIndex

strTemp = lstLayers.Text

For i = 0 To index - 1

lstLayers.List（index - i） = lstLayers.List（index - i - 1）

Next

lstLayers.List（0） = strTemp

lstLayers.ListIndex = 0

4 实例效果

在VBA集成开发环境中，按下F5键，在AutoCAD主应用程序窗口中执行当前的程序。在图层列表中双击【轴线】选项，该图层就会被设置为当前图层，在文本框中显示“轴线”，帮助用户判断当前图层中的对象，击选中【仅显示当前图层】复选框，图形窗口中其他图层就会被关闭，界面如图1所示：

5 总结与提高

本程序在AutoCAD2010/2014环境下能够稳定正常运行，工作中应用效果良好。与通过菜单、命令操作话框中直接输入各种参数相比，图层切换程序的使用明显的节省了频繁操作图层的时间，在绘图和设计过程中非常实用。

参考文献

[1]郭庆龙.AutoCAD VBA在铁路信号工程设计中的应用[J].硅谷，2015（03）：82.

[2]张勇.数字图像修复关键技术的研究与实现[J].安阳师范学院学报，2014（02）：32-35.

[3]张帆，郑立楷，王华杰.AutoCAD VBA开发精彩实例教程[M].清华大学出版社，2004.

[4]秦洪现，崔惠岚，孙剑，等.Autodesk系列产品开发培训教程[M].北京：化学工业出版社，2008：167-168.

作者简介：吕岚（1982-），女，研究生，研究方向为计算机科学与技术，陕西铁路工程职业技术学院讲师。