利用Objectarx实现AutoCAD中的字符批量替换(2004-625)

文章编号：2004-625 利用ObjectArx在AutoCAD中实现文字批量替换李如忠四川省绵阳市919信箱515分箱 621900摘要介绍了ObjectArx的开发原理，对通过ObjectArx编程实现AutoCAD中的文字批量替换的原理进行了详细描述，并给出了主要程序段，实现了AutoCAD中的利用长事务处理机制对外部引用图形进行处理的过程。

关键词ObjectArx AutoCAD 图形长事务文字替换Achieve batch replacement function of text in AutoCAD using ObjectArxLi Ru-zhongP.O.Box 919-515, Mianyang, Sichuan 621900,CHINAAbstractThe development principle of ObjectArx is introduced, then the method of achieve batch replacement of text in AutoCAD using ObjectArx program is presented in detail. The author designed the application program. The procedure of performing external reference in AutoCAD using long transaction processing is achieved.Keywords ObjectArx, AutoCAD, drawing, long transaction, replacement of text1 前言AutoCAD是目前使用最广泛的CAD软件，它具有强大的二维绘图功能。

同时，它采用了开放体系结构，允许用户或二次开发商扩充新的功能和设计各种实用程序。

机械制图中所采用的标准件、材料等的标识随着标准的发展而不同，如在早期的标准中一种结构钢材料标识为A3，在现在的标准中标识为Q235。

制造企业为了处理早期的绘图，统一标识，必须用新的标准替换原来的标准，这就用到文字的查找替换功能。

在AutoCAD中有文字的查找替换功能，但是它只能针对当前打开的图形，不能对大量的图形进行批量处理。

ObjectArx 2000是Autodesk公司随AutoCAD2000推出的新一代功能强大的二次开发工具，本文利用ObjectArx开发了在AutoCAD中实现对一个目录下的所有AutoCAD文件中的文字批量替换的实用程序。

2 ObjectArx开发原理ObjectArx是一个面向对象的C++编程环境，它包含一组动态链接库(DLL)，这些库与AutoCAD在同一地址空间内运行，直接利用AutoCAD的核心数据库结构和代码。

ObjectArx 程序可以直接调用AutoCAD的API函数，访问AutoCAD的数据库结构、图形系统，以及几何造型等。

ObjectArx程序的本质是Windows DLL程序，用户可以注册自己的AutoCAD 命令，这些命令和AutoCAD内部命令一样使用，它支持MFC，可以利用MFC编写功能强大、具有Windows风格的用户图形界面程序。

ObjectArx程序文件主要有两部分组成，定义文件(.def)和源程序文件(.cpp)。

定义文件必须输出acrxEntryPoint函数。

源程序文件中主要定义几个接口函数：acrxEntryPoint、addCommand、removeGroup和实现自己程序功能的函数。

acrxEntryPoint函数是必须要定义的函数，AutoCAD通过它调入一个ObjectArx应用程序，此函数代替了C++程序中的main函数，如果用户使用ObjectArx程序定义了一个新的AutoCAD命令，AutoCAD将使用这个函数同用户定义的新命令建立联系。

addCommand函数主要用来注册一个用户自定义命令，当用户新注册一个命令时，也同时为它指定了一个组名。

在这种情况下，为了避免用户自定义的命令与原来的命令发生冲突，应当给组名加上特殊的前缀。

在一个给定组中，一条命令名必须是唯一的，而组名也是唯一的，从而使不同的应用程序可以注册同样的命令，因为不同的组名可以将它们区分开来。

removeGroup函数主要用来删除命令组，同时组中的所有命令也同时被删除，也可以用removeCmd函数，删除特定组中的命令，而不删除组。

用户自定义的函数是实现用户自定义命令功能的函数，根据具体实现的功能来编写。

3 在AutoCAD中实现文字批量替换的原理在AutoCAD中对dwg文件进行批量处理，可以看做对单个文件处理的循环。

单个文件处理的步骤为：a. 把要处理的dwg文件数据库读入到AutoCAD中b. 查找该文件中所有文字对象，并把文字对象中的内容与需要替换的文字进行比较，如果是需要替换的文字，则替换，否则查找下一个文字对象，直到查找完所有的文字对象。

c. 把该文件保存。

在对单个文件进行处理时需要注意的问题：把dwg文件读入到AutoCAD中，对dwg文件的数据库进行操作相当于在当前数据库中对外部引用对象进行操作，所有需要使用AutoCAD中的长事务机制来支持AutoCAD引用编辑特征。

长事务处理类和函数为应用程序提供了一个方法，在需要对实体进行编辑时获得替代的实体，当操作完成后恢复原实体，这个操作将原来的对象用编辑对象替代。

具体操作步骤为：首先打开要处理的的数据库，遍历要处理的对象，把对象ID添加到一个ID数组中，然后获得当前数据库的模型空间块表记录，再获得当前数据库模型空间记录的对象ID，创建长事务对象，并把遍历对象后保存的ID数组传给长事务对象，获得长事务指针，对长事务工作集中的对象进行遍历和处理，然后将实体放回原数据库并保存。

对dwg文件进行批处理的步骤：a. 查找一个目录下的所有文件和子目录b. 如果找到的是文件，并且是dwg文件，则对该文件处理，如果是其它文件则放弃，如果是子目录，则利用递归处理方式，把子目录作为一个新的要查找的目录进行处理。

4 编程实现4.1 对单个文件进行处理的函数void FileEdit(char * filename,int & errornum,char * findstr,char * replacestr){AcDbObjectId transId;AcDbDatabase* pDb;CString temp;//新建数据库，打开要处理的文件pDb = new AcDbDatabase(Adesk::kFalse);//如果打开失败或用户已经打开了此图形，则报错后返回if (pDb->readDwgFile(filename) != Acad::eOk){acutPrintf("\nSorry, that drawing is probably already open.");return;}//获得这个图形文件数据库的块表AcDbBlockTable *pBlockTable;pDb->getSymbolTable(pBlockTable, AcDb::kForRead);//获得模型空间块表记录AcDbBlockTableRecord *pOtherMsBtr;pBlockTable->getAt(ACDB_MODEL_SPACE, pOtherMsBtr, AcDb::kForRead); pBlockTable->close();//创建一个遍历器AcDbBlockTableRecordIterator *pIter;pOtherMsBtr->newIterator(pIter);//创建一个对象ID数组AcDbObjectIdArray objIdArray;//对模型空间块表记录进行遍历for (pIter->start(); !pIter->done(); pIter->step()){//获得实体AcDbEntity *pEntity;pIter->getEntity(pEntity, AcDb::kForRead);//对实体进行判断,如果是多行文字对象，并且内容中包含要查找的//文字，将实体的对象ID添加到数组中if (pEntity->isKindOf(AcDbMText::desc())){temp.Format("%s",((AcDbMText *)pEntity)->contents());if(temp.Find(findstr)>=0)objIdArray.append(pEntity->objectId());}//如果是单行文字对象，并且内容中包含要查找的文字，将实体的对象ID添加到数组中if (pEntity->isKindOf(AcDbText::desc())){ temp.Format("%s",((AcDbText *)pEntity)->textString());if(temp.Find(findstr)>=0)objIdArray.append(pEntity->objectId());}//关闭实体pEntity->close();}delete pIter;pOtherMsBtr->close();//如果图形中没有文字对象，则释放数据库指针，返回if (objIdArray.isEmpty()){delete pDb;pDb = NULL;return;}//获得当前数据库和当前数据库块表AcDbBlockTable *pThisBlockTable;acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pThisBlockTable, AcDb::kForRead);//获得当前数据库模型空间块表记录AcDbBlockTableRecord *pThisMsBtr;pThisBlockTable->getAt(ACDB_MODEL_SPACE, pThisMsBtr, AcDb::kForWrite); pThisBlockTable->close();//获得当前数据库模型空间记录的对象IDAcDbObjectId id = pThisMsBtr->objectId();pThisMsBtr->close();//创建长事务，将从外部数据库中获得外部对象AcDbIdMapping errorMap;acapLongTransactionManagerPtr()->checkOut(transId, objIdArray, id, errorMap); AcDbObject* pObj;//打开对象成功if (acdbOpenObject(pObj, transId, AcDb::kForRead) == Acad::eOk){//获得长事务指针AcDbLongTransaction* pLongTrans = AcDbLongTransaction::cast(pObj);if (pLongTrans != NULL){//获得工作集遍历器AcDbLongTransWorkSetIterator* pWorkSetIter;pLongTrans->newWorkSetIterator(pWorkSetIter);//对工作集中实体进行遍历，替换其中的文字for (pWorkSetIter->start(); !pWorkSetIter->done(); pWorkSetIter->step()){AcDbEntity *pEntity;acdbOpenAcDbEntity(pEntity, pWorkSetIter->objectId(), AcDb::kForWrite);//如果是多行文字对象，进行替换if(pEntity->isKindOf(AcDbMText::desc())){temp.Format(((AcDbMText *)pEntity)->contents());temp.Replace(findstr,replacestr);((AcDbMText *)pEntity)->setContents(temp.GetBuffer(100));}//如果是单行文字，进行替换if(pEntity->isKindOf(AcDbText::desc())){temp.Format(((AcDbText *)pEntity)->textString());temp.Replace(findstr,replacestr);((AcDbText *)pEntity)->setTextString(temp.GetBuffer(100));}pEntity->close();}delete pWorkSetIter;}pObj->close();}//将实体放回原数据库acapLongTransactionManagerPtr()->checkIn(transId, errorMap);//保存原数据库，关闭数据库和删除此对象pDb->saveAs(filename);delete pDb;pDb = NULL;}4.2 批量文字替换处理函数void MyfindandreplaceDlg::Replace(CString Directory){int errornum;CString FullName,temp;CFileFind ff;CString szDir =Directory;//拷贝要处理的目录名if(szDir.Right(1) != "\\")szDir += "\\";szDir += "*.*";BOOL res = ff.FindFile(szDir);//查找要处理的目录下的全部文件和子目录while(res){res = ff.FindNextFile();//如果找到的是隐藏文件或系统文件或点目录，则返回if(ff.IsHidden()||ff.IsSystem()||ff.IsDots())continue;if(ff.IsDirectory())//如果是子目录{//则将子目录名作为参数，进行递归，调用函数本身if(m_IncludeSubDir)Replace(ff.GetFilePath());}if(!ff.IsDirectory()){ //如果是文件，则检查是否是后缀为dwg的文件FullName=ff.GetFilePath();FullName.MakeLower();if(FullName.Find(".dwg")>=0){ //如果是dwg文件，则进行替换操作acutPrintf("\n\nFile Name is %s\n",FullName.GetBuffer(100));FileEdit(FullName.GetBuffer(100),errornum,m_FindStr.GetBuffer(100),m_ReplaceStr.GetBuffer(100));}}}}5 程序的使用5.1 程序的加载和运行加载程序时，在AutoCAD中运行appload命令或选择加载应用程序菜单，然后运行自定义的命令mfind，出现如图1的对话框，选择要处理的目录，输入要需要替换的文字和替换后的文字，然后按“替换”，开始对整个目录下的dwg文件进行处理。