吴宏斌, 周新邵

湖南城市学院计算机科学系，益阳 413000

基于AutoCAD的图块的查找/替换器的开发

吴宏斌, 周新邵

湖南城市学院计算机科学系，益阳 413000

在AutoCAD绘图过程中，对图块的应用是提高绘图效率和正确率的一种方法，但是初期的设计在后期也许需要改动，如果某个图块内容需要一些修改，得对某已插入的图块一个一个改，不仅需要耗费很多的时间，还可能遗漏，这就需要用一个完善的某图块代替以前需要修改的所有同类图块，因而对图块的查找/替换就显得不可短少。本系统就是针对此而开发的图块的查找/替换程序。

AutoCAD图形；AutoCAD VBA；图块；查找/替换

引言

在用AutoCAD制作图时，图块的应用很普遍，图块可以快速的使用或用于同一个图形的统一，一个大型的图中会有很多个不同的块，而且每个块都要被用到很多次，这样就可以在制作图的时候方便很多，当完成一个图后会对整个图作一个检查，假如图中使用的一个块在设计的时候出现了一点小差错，并且这个块在这个图里用了许多次，就只好一个一个去找并改正，这样就会花费许多的时间，同时，在改正的过程中很有可能漏掉其中的某些图块，使得这个工作不仅任务繁重，并且还容易出现差错，为此开发出图块查找/替换器，本系统采用AutoCAD2004作为开发平台，用AutoCAD VBA进行开发。

1、VBA编程窗体布局

打开AutoCAD2004软件的VBA程序编辑器，插入窗体form，标示为“图块查找/替换器”；在窗体form上放入三个Frame，分别标示为图形中的块、替换的块、操作按钮；在图形中的块Frame框内依次放入两个listBox和两个CommandButton,分别标示为保留的块、被替换的块、》、《，分别取名为ListBox1、ListBox2、cmd_right、cmd_left;在替换的块Frame框内依次放入ComboBox1、Frame4,在Frame4中放入4个CheckBox,对应放入4个Label和4个TextBox,4个Label依次标示为旋转、X比例、Y比例、Z比例；在操作按钮Frame框内放入3个CommandButton,分别标示为刷新、替换、退出，分别取名为cmd_Refresh、cmd_replace、cmd_exit。程序运行后窗体如图1所示。

图1 图块的查找/替换器运行窗体

2、VBA程序源代码

2.1 窗体程序源代码

窗体程序代码：

3、结束语

在图块运用较多的DWG文件中批量修改图块是一件相当繁琐的工作，本文所开发的系统能对当前图形文件中的图块进行自动批量查找和替换操作，大大提高图形中图块替换工作的准确性和效率。若应用中需要用到外部文件的图块，则需要完善该系统，在此不再多叙。

[1] 吴宏斌.基于AutoCAD地形图的文字查找/替换器开发[J].城市勘测2006年04期:40-42

[2] 张帆.AutoCAD VBA开发精彩实例教程［M］.清华大学出版社.2004

[3] 二代龙震工作室. AutoCAD VBA函数库查询辞典[M].北京：中国铁道出版社.2003

AutoCAD-based Drawing Black of the Find/Replace Development of Generator

Wu Hongbin, Zhou Xinshao
Department of Computer Science, Hunan City University, Yiyang 413000

In the AutoCAD drawing process, the application block is to improve the efficiency and accuracy of mapping a way, but in the latter part of the initial design may need to change the content if a block with some modifications, have been inserted into the graph of a blocks one by one to change, not only takes a lot of time, but also may be missing,which requires a block with a perfect place before the need to modify all the same drawing block, So drawing block the Find / Replace to look not deficient. This system is developed for this drawing block of Find / Replace programme.

AutoCAD drawing；AutoCAD VBA；Drawing Block；Find/Replace

10.3969/j.issn.1001-8972.2011.06.025

湖南省教育厅科技项目（项目编号09C205）

作者介绍

吴宏斌，1964年3月生，男，教授，主要研究方向为CAD技术的软件开发和应用。周新邵，硕士研究生，讲师，主要研究方向为计算机应用。