[ARX程序]：大批量ＤＷＧ文件挨个执行某一个操作

skytrooper

对一批dwg文件进行同样的操作，
也就是执行一个命令，但是文件太多，打开关闭太麻烦，
最好能一次选择多个文件，然后自动自行指定的lisp程序里的命令。
我不知道的是对于某一个文件怎么操作，
1。打开文件
2。向这个文件发送命令
3。关闭该文件
思路对吧？但是不知道到底用到哪些技术，多文档？通知？事务处理？代理？
不知道！

请您赐教！

在线等待！

stoneball

编写一个脚本文件（*.Scr），让ACAD自身执行，可以不用编程
大概是这样（好几年没有用了）
open yourfile
yourcommand
close

wxsong

用arx也可。先通过CFileDialog类选择要处理的文件。
然后循环用数据库的形式修改文件即可。
采用该方法不用显示图形，速度要快得多。

bluewood_cn

用 COM 开发一个exe 程序, 这个程序 能自动打开AutoCAD, 然后装载图纸, 然后执行你的命令.
然后关闭图纸.

ymd

可用以下函数完成！
函数将c:\bak目录下所有dwg文件的文本读出并存入t1.txt文件
///使用以下代码注意加入必要的正确性判断！
void chdwg1(char *file,FILE *fp)
{
AcDbBlockTable *pBlockTable;
AcDbBlockTableRecord *pRec;
AcDbDatabase DB(Adesk::kFalse);
Acad::ErrorStatus err;
DB.readDwgFile(file);
//acdbCurDwg()->getBlockTable(pBlockTable,AcDb::kForRead);
DB.getBlockTable(pBlockTable,AcDb::kForRead);
pBlockTable->getAt(ACDB_MODEL_SPACE, pRec,AcDb::kForWrite);
pBlockTable->close();
AcDbBlockTableRecordIterator *pR;
pRec->newIterator(pR);
pRec->close();
int n;
for(n=0;!pR->done();n++,pR->step()){
    AcDbEntity *pE;
    AcDbObjectId id;
    pR->getEntityId(id);
    err=pR->getEntity(pE,AcDb::kForWrite);
    if (err == Acad::eOk) {
      if(strcmp(pE->isA()->name(),"AcDbText")==0){
        AcDbText *pt=AcDbText::cast(pE);
        fprintf(fp,"%lf %lf %s\n",pt->position().x,pt->position().y,pt->textString());
        }
       }
      pE->close();
    }
//DB.saveAs(file);//若修改加该句
}


void chdwgall( void )
{
char file[260];
struct _finddata_t c_file;
long hFile;
FILE *fp;
/* Find first .c file in current directory */
fp=fopen("c:\\bak\\t1.txt","w");
if( (hFile = _findfirst( "c:\\bak\\*.dwg", &c_file )) != -1L ){
  strcpy(file,"c:\\bak\\");
  strcat(file,c_file.name);
  ads_printf("\nfile=%s",file);
  chdwg1(file,fp);
  while( _findnext( hFile, &c_file ) == 0 ) {
    strcpy(file,"c:\\bak\\");
    strcat(file,c_file.name);
    ads_printf("\nfile=%s",file);
    chdwg1(file,fp);
     }
  _findclose( hFile );
   }
fclose(fp);
}

Hellow

如果执行的任务很简单的话，用COM做一个程序来驱动CAD好像有点大炮打蚊子的感觉，所以这个问题关键是看它打开文件要干什么！