[ARX函数]：关于在后台数据库中文字对齐的问题（解决）

freejustin

详细代码参见：
http://www.mjtd.com/bbs/dispbbs. ... ID=36489&page=1   第八楼
答案在本帖五楼

binbin

晕到，看不到。
把后台数据库设为当前数据库就行了

freejustin

谢谢binbin的回答，但是我的操作由于是想自动生成，所以最好后台实现，否则就必须解决警告框的问题，参见http://p4.xdcad.net/forum/showth ... 2003319#post2003319 或者http://www.mjtd.com/bbs/dispbbs. ... ID=38638&page=1

binbin

acdbDatabase *pOldDb = acdbcurdwg();

acad.....->setworkingdatabase(pNewDb);
//文字对齐的代码
acad...->sheworkingdatabase(poldDb)

//------------------------------------------------------------
文档后天保存,试一下 IacadDocumentPtr  (com的接口)

freejustin

谢谢binbin，问题搞定了。

没头文件及入口函数，自己定义。
功能：实现在后台数据库中正确添加文字，并且设置文字属性。关键是把后台数据库设置当前，最后设置回去。
  AcDbDatabase *pOldDb = acdbHostApplicationServices()->workingDatabase();[/COLOR]
AcDbDatabase *pDb = new AcDbDatabase;
  acdbHostApplicationServices()->setWorkingDatabase(pDb);[/COLOR]

AcDbBlockTable *pBlockTable;
acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pBlockTable, AcDb::kForRead);
AcDbBlockTableRecord *pBlockTableRecord;
pBlockTable->getAt(ACDB_MODEL_SPACE, pBlockTableRecord, AcDb::kForWrite);
pBlockTable->close();


AcGePoint3d textPosition(120.0, 80.0, 0.0);
AcGePoint3d atextPosition(130.0, 80.0, 0.0);
char textString[512] = "Auto Create Drawing";
double textHeight = 5.5296;
double textWidthFactor = 0.8000;
double textRotation = 0.0;

AcDbText    *pText=new AcDbText(textPosition, textString, AcDbObjectId::kNull, textHeight, textRotation);
pText->setHorizontalMode(AcDb::kTextMid);//
pText->setAlignmentPoint(atextPosition); //

AcDbObjectId textId;
pBlockTableRecord->appendAcDbEntity(textId, pText);
pBlockTableRecord->close();
pText->close();

pDb->saveAs("测试文件.dwg");
acdbHostApplicationServices()->setWorkingDatabase(pOldDb); [/COLOR]
delete pDb;