[ARX函数]：请问如何炸开一个块？

freejustin

请问大家如何将插入到当前数据库的实体块炸开？（最好用 ARX实现，实在不行LISP也行）

从外部文件插入一个块到当前实体数据库中，想将其炸开，如何用ARX函数实现？[/COLOR]因为这个块是从外边插入到当前数据库中的，当要显示的时候，才插入实体数据库的，在每次插入块后将其炸开，不希望用户看到的是块的形式。并且将插入的块名定义清空，就是insert看出我插入的是那个块名。谢谢大家。

借用LISP的命令，我没能实现自动处理。 如何自动实现炸开一个刚插入的块？ [/COLOR]
acedCommand(RTSTR, "explode", RTENAME, "TWO_RECT", RTNONE); 　TWO_RECT" 为块名。　
结果如下：
Enter insertion point:
选择对象: <错误图元名: 5F4F5754>
选择对象:

和使用acedCommand(RTSTR, "explode", RTNONE); 是一样的：
Enter insertion point:
选择对象:

yjh168

AcDbEntity：：explode(
AcDbVoidPtrArray& entitySet)

freejustin

已经可以炸开插入的块了，但是炸开块的实体中的AcDbMText文字编成AcDbText文字，而不是想要的AcDbMText文字。[/COLOR]
请各位做过的朋友和大侠指点。

void AppendToModelSpace(AcDbDatabase *pDbNew, AcDbEntity* pEnt, AcDbObjectId &objId)
{
        AcDbBlockTable *pBlkTbl;
        AcDbBlockTableRecord *pBlkTblRcd;

        pDbNew->getSymbolTable(pBlkTbl, AcDb::kForRead);
        pBlkTbl->getAt(ACDB_MODEL_SPACE, pBlkTblRcd, AcDb::kForWrite);
        pBlkTblRcd->appendAcDbEntity(objId, pEnt);
        ((AcDbObject *)pEnt)->downgradeOpen();
        pBlkTbl->close();
        pBlkTblRcd->close();
        return;
}

void ExplodeBlock()
{
        AcDbVoidPtrArray *vparr;
        AcDbObject * pDbO=NULL;
        AcDbObjectId DbOId=NULL;
        vparr = new AcDbVoidPtrArray();
        ads_name ss,se;

        struct resbuf * preb;

        struct resbuf *pcb;
        pcb=acutNewRb(RTDXF0);
        char sbuf[100];
        strcpy(sbuf,"TWO_");

        pcb->resval.rstring=sbuf;
        pcb->rbnext=NULL;

        acedSSGet("X",NULL,NULL,NULL,ss);
        long lLen;
        acedSSLength(ss, &lLen);

        AcDbDatabase *pdbD = acdbHostApplicationServices()->workingDatabase();

        for (int i = 0; i < lLen; i++)
        {
                acedSSName(ss, i, se);
                acdbGetObjectId(DbOId, se);
                acdbOpenObject(pDbO, DbOId, AcDb::kForWrite);
                ((AcDbEntity *)pDbO)->explode(*vparr);
                pDbO->close();

                for(int j = 0; j < vparr->length(); j++)
                {
                        pDbO = (AcDbEntity *)vparr->at(j);
                        AppendToModelSpace(pdbD, (AcDbEntity *)pDbO, DbOId);
                        pDbO->close();
                }
                vparr->removeSubArray(0, vparr->length());
        }

        delete vparr;

        acutRelRb(pcb);
        acedSSFree(ss);

}