[求助]如何正确调用数据库类的Insert()函数？

后起之秀

我想用一个dwg文件保存所有的预定义图块（图块较小），并且随时接受用户的定义，并插入到该文件中。我的思路如下：用户在当前文档中定义完形成图块的所有图形元素后，程序提示用户输入图块名，然后将其用AcDbDatabase::Insert(&AcDbObjectId,char*,AcDbDatabase*)函数以图块的形式插入到预定义图形文件中，然而该函数的返回代码是16，即beNullObjectId，结果预定义图形文件中没有该图块，不知道这是什么原因。
我将代码贴在下面（实际的实现情况稍有出入，请大家指正）：
CString prompt;
prompt.Format("\n%s","请选择组成块的图形：");
acutPrintf("%s",prompt);
ads_name ssname;
acedSSGet(NULL,NULL,NULL,NULL,ssname);

prompt.Format(_T("\n%s"),"请输入所要创建块的名称：");
char input[20];
int rc;
rc=acedGetString(0,prompt,input);
if (rc!=RTNORM) {
return;
}

AcDbDatabase* pCurDbDatabase;
pCurDbDatabase=acdbHostApplicationServices()->workingDatabase();
AcDbBlockTable *pDbBlockTable;
pCurDbDatabase->getSymbolTable(pDbBlockTable,AcDb::kForWrite);
AcDbBlockTableRecord *pDbBlockTableRecord;
pDbBlockTableRecord=new AcDbBlockTableRecord;
pDbBlockTableRecord->setName(input);
AcDbObjectId BlockTableId;
pDbBlockTable->add(BlockTableId,pDbBlockTableRecord);
pDbBlockTable->close();

long length_Sel;
acedSSLength(ssname,&length_Sel);
ads_name entres;
AcDbObjectId OId;
AcArray entitiesToMove;
entitiesToMove.append(OId);
for(long i=0;i {
acedSSName(ssname,i,entres);
acdbGetObjectId(OId,entres);
entitiesToMove[0]=OId;
pDbBlockTableRecord->assumeOwnershipOf(entitiesToMove);

}
pDbBlockTableRecord->close();
acedSSFree(ssname);
AcDbBlockReference * pBlockReference;
pBlockReference=new AcDbBlockReference;
pBlockReference->setBlockTableRecord(BlockTableId);

pCurDbDatabase->getSymbolTable(pDbBlockTable,AcDb::kForRead);

pDbBlockTable->getAt(ACDB_MODEL_SPACE,pDbBlockTableRecord,AcDb::kForWrite);
pDbBlockTable->close();
AcDbObjectId BlockTableRecordId;
pDbBlockTableRecord->appendAcDbEntity(BlockTableRecordId,pBlockReference);
pDbBlockTableRecord->close();
pBlockReference->close();／／这里是为调试编写的，实际运行时，发现该图块的引用不能进行拖动操作



AcDbDatabase * newDb;
newDb=new AcDbDatabase(Adesk::kFalse);
CString strPath = appFullPath;//appFullPath 为预定义的应用程序路径
strPath = strPath.Left(strPath.ReverseFind('\')) + "\\support\\temp.dwg";
pCurDbDatabase->wblock(newDb,BlockTableId);
newDb->saveAs(strPath);

strPath = strPath.Left(strPath.ReverseFind('\')) + "\\support\\test.dwg";

AcDbDatabase* pDbDatabase_BLOCK;
pDbDatabase_BLOCK=new AcDbDatabase(Adesk::kFalse);
pDbDatabase_BLOCK->readDwgFile(strPath,_SH_DENYRW);
AcDbObjectId blockId;
Acad::ErrorStatus es;

es=pDbDatabase_BLOCK->insert(blockId,input,newDb);


if (es!=Acad::eOk) {
acutPrintf("\n%s,%d","有错误！",es);

}

delete newDb;
pDbDatabase_BLOCK->save();
delete pDbDatabase_BLOCK;

真诚希望大家能指出问题所在