简析基于autocad

《简析基于autocad》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、简析基于AutoCAD1概述　　AutoCAD(AutodeskputerAidedDesign)是一款用于二维绘图、详细绘制、设计文档和基本三维设计的自动计算机辅助设计软件。AutoCAD绘图功能强大，但在处理表格、数据等方面有局限性。可以通过对AutoCAD的二次开发，简化绘图过程，避免重复性工作，充分发挥其快速、准确的优势。VisualBasicforApplications(VBA)是VisualBasic的一种宏语言，可以通过VBA编程操作CAD的绘图对象。　　在AutoCAD中，切换图层的操作很不便捷，特别是当图形中包含多个图层的时候，每次都要通过打开图层列表，去选择

2、要切换的图层。虽然有人开发了根据创建对象的当前类型自动切换图层的程序，但是其具有明显缺陷性。如在建筑制图中，由于建筑绘图中直线会用来表示多种对象，需要放置在很多图层中，这样的情况编写的程序就不适用。在使用中分析得到，切换图层除了打开列表不方便，搜索目标图层也不便捷，因为图层列表是固定不变的，而不是按照用户使用的频繁程序而排列。　　2编程思路　　文章所创建的切换图层程序正是针对上述问题，在文本框中显示当前图层的名称，列表中显示了当前图形中所有的图层。程序设计思路是在设置当前图层后对列表的排序操作。设置当前图层后，将列表中指定的图层名称移到第一位，在原来位置之前的所有元素向后退一位，

3、其他元素位置保持不变。列表的排序方法为：当前图层、上一次的当前图层、再上一次的当前图层，依此类推。列表能够明确地显示出当前所有图层，省去了打开下拉列表的时间，图层的排序保证了可以容易地选择频繁使用的图层。　　3设计分析　　(1)在【VBA管理器】对话框中，创建一个新工程。并在这个工程中创建用户窗体。　　(2)在窗体的初始化事件中，需要读取图形中图层名称，添加到列表框中，并且调整控件的状态，其程序代码为：　　PrivateSubUserForm_Initialize()　　DimobjLayerAsAcadLayer　　DimIAsInteger　　ForEachobjLayerI

4、nThisDraobjLayer.Name，i　　i=i+1　　Next　　lstLayers.ListIndex=0　　txtCurLayer.Enabled=False　　EndSub　　(3)【仅显示当前图层】复选框允许用户在指定当前图层时关闭其他图层，如果用户单击该复选框取消选中状态，则显示所有图层，其实现代码为：　　IfchcShoe<>txtCurLayer.TextThen　　objLayer.LayerOn=False　　Else　　objLayer.LayerOn=True　　EndIf　　Next　　ElseIfchcShos.Return-　　B

5、oolean)　　txtCurLayer.Text=lstLayers.Text　　DimobjLayerAsAcadLayer　　ForEachobjLayerInThisDrae=txtCurLayer.TextThen　　ThisDrastrTempAsString　　DimindexAsInteger　　DimiAsInteger　　index=lstLayers.ListIndex　　strTemp=lstLayers.Text　　Fori=0Toindex-1　　lstLayers.List(index-i)=lstLayers.List(index-i-　　1)　　

6、Next　　lstLayers.List(0)=strTemp　　lstLayers.ListIndex=0　　4实例效果　　在VBA集成开发环境中，按下F5键，在AutoCAD主应用程序窗口中执行当前的程序。在图层列表中双击【轴线】选项，该图层就会被设置为当前图层，在文本框中显示轴线，帮助用户判断当前图层中的对象，击选中【仅显示当前图层】复选框，图形窗口中其他图层就会被关闭，界面如图1所示：　　5总结与提高　　本程序在AutoCAD2010/2014环境下能够稳定正常运行，工作中应用效果良好。与通过菜单、命令操作话框中直接输入各种参数相比，图层切换程序的使用明显的节省了频繁操作

7、图层的时间，在绘图和设计过程中非常实用。