基于autocad地形图的文字查找替换器开发 the letter findreplace processor get exploitation on autocad relief map.pdfVIP

城市勘测 2006年 文章编号：1672—8262(2006)04—36—03中图分类号：P209 文献标识码：B 基于AutoCAD地形图的文字查找／替换器开发 吴宏斌4 (湖南城市学院计算机科学系，湖南益阳413000) The Get 0nAut0CADRelief Letter Processor Map Find／Replace Exploitation Wu Hongbin 摘要：针对AutocAD文档中的文字，创建了一个类似于Micmsoftword软件的查找／替换程序，该程序可对AutoCAD 地形图中TExT和MTExT命令产生的文字及其字符进行自动查找／替换处理。 关键词：AutocADVBA；cAD文档；文字查找／替换；地形图 l 引 言 SelectOnScreen方法。 在计算机辅助绘制地形图时，大量的地形图往往 由多人制作完成，虽然在制作前确定了文字的表述标 准，但因人而异，当把各张设计好后的地形图放在一起 放人2个Frame，分别标示为查找条件、查找／替换；在 时，常发现各图形中有的文字内容表述不一致，严重影 响整套地形图的质量。为解决此问题，一般采用Auto—别标示为文字所在图层、文字样式、文字颜色，与3个 cAD中的DDEdit命令用鼠标逐个点选文字来进行修 改，若需修改的同类文字较多时就相当繁琐。为提高 因疏忽而造成的文字内容表述不一致的修改工作效 于设置文字所在图层、文字样式、文字颜色的选择条 率，作者在AutoCAD2004中用VBA开发了一种直观、 简便的以图层、字样、颜色为范围条件的查找／替换修 改文字内容的处理器程序。 2 VBA编程 用于分别放置查找文字、替换文字内容；在窗体上放人 在AutoCAD图形中的点、直线、圆、弧、文字等都 被定义成图元实体，要改变文字图元实体，首先要选择 文字图元实体，形成文字图元实体选择集。在创建文 如图1所示。 字选择集之前，先判断图形中是否已经存在指定名称 的选择集，如果存在，就先删除它，否则会发生错误。 在选择集中添加图元实体，经常使用的方法有：用Ad— dItems方法在指定的选择集中添加一个或多个图元实 体，输入参数为要添加到选择集中的图元实体数组；用 Select方法选择图元实体并将其添加到选择集中，可 以用窗选、交叉选、最后创建图元实体等方式选择实 体；用selectOnscreen方法，提示用户在图形窗口中选 择实体并添加到选择集中，过滤时可指定多个过滤条 件，且支持带有通配符的过滤条件。本程序开发采用 图1 文字查找／替换器运行窗体 } 收稿日期：2005—08—之2 作者简介：吴宏斌(1964一)，男，副教授，主要研究方向为cAD技术的研究、软件开发和应用。 万方数据 第4期 吴宏斌．基于Au￡ocAD地形图的文字查找／替换器开发 37 2．1 窗体程序源代码 巾ata(0)=”MTExP {r11ype(1)=8 0ptionExplicit ItI’ype(1)=7 PrivateSub cmdApp