基于AutoCAD-VBA的多重查找和替换方法探讨

郑宾

（陕西铁路工程职业技术学院， 陕西 渭南 714099）

基于AutoCAD-VBA的多重查找和替换方法探讨

郑宾

（陕西铁路工程职业技术学院， 陕西 渭南 714099）

AutoCAD自带的程序功能只能同时查找和替换一组文字，本文通过VBA对AutoCAD的二次开发，设计了一个可以同时查找和替换多组文字的小程序，提高了工作效率，实际应用效果良好。

AutoCAD；VBA；查找；替换

一、引言

AutoCAD（Autodesk Computer Aided Design）是一款用于二维、三维绘图、设计文档的计算机辅助设计软件。AutoCAD绘图功能强大，但在数据处理、文档操作等方面有局限性。Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，可以通过VBA编程操作CAD的绘图对象，通过对AutoCAD的二次开发，简化绘图过程，避免重复性工作，充分发挥其快速、准确的优势。

在AutoCAD中，对文字查找和替换可以输入命令“FIND”后回车，或在菜单中选择“编辑>查找”，执行命令后会弹出一个“查找和替换”对话框来实现查找和替换的功能，但每次只能选择一组文字，在某些情况下就显得不够灵活了，操作很不便捷。本文设计的程序，能同时完成1-3组的文字查找和替换，其编程思路是将图形窗口中所有的文字和多行文字对象添加到一个选择集中，在每个对象的字符串内查找所要修改的字符串，如果找到了就进行相应的替换操作，这在工程设计中是一个非常实用的工具。

二、实例分析

本文通过AutoCAD-VBA设计一个多重查找和替换的应用程序。

（1）运行AutoCAD2004，在【VBA管理器】对话框中新建一个全局工程，保存在适当的位置上。在VBA集成开发环境中，选择【插入／模块】菜单项，在工程中添加一个标准模块。

（2）选择【插入／用户窗体】菜单项，向程序中添加一个用户窗体，并在其中放置六个文本框，分别用来输入三组的查找内容、替换内容，同时设置两个命令按钮：确定和取消。

（3）在在【确定】按钮中添加用于文字替换的代码，这是本实例中最关键的一部分，其实现代码为：

Research on Methods of Multiple Search and Substitution Based on Auto CAD-VBA

ZHENG Bin
(Shaanxi Railway Institute,Weilan 714099,China)

The AutoCAD program can search for or substitute a set of words only at one time.Based on the redeveloped AutoCAD by means of VBA,an application program is designed.It can search for or substitute multiple sets of words at the same time,which improves the work efficiency and achieves good performance in applications.

AutoCAD;VBA,search;substitute

TP391.72

A

2016－10－13

郑 宾（1978-），男，陕西渭南人，讲师，研究方向：电子信息技术。E-mail:nitjdk@126.com.

1671－802X(2016)06－0009－02