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

  1. 1、本文档共6页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
基干AutoCAD―VBA图层切换工具策划探析

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

文档评论(0)

linsspace + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档