[求助]：请教，如何将存在于模型空间的单个实体做成块

dingxueqing123

希望哪位高手能指点一下。
我现在希望能对CAD工作区中的实体把其变成块。
假定命令是makeblock
在command:下输入该命令
能有select objects:
你可以选择工作区中的实体，假定是两个
那能出现command:1object 2 object
后敲回车结束改命令
则所选择的就做成块。
这个问题困扰好几天都没法解决，很头痛
希望高手能指点一二，
最好有小程序能看看，谢谢
ads_name en ;
ads_point pt;
AcDbObjectId eId;
AcDbEntity * pEnt;
AcDbObjectIdArray objIdA;
acedEntSel("\n 选择实体:",en,pt);
acdbGetObjectId(eId,en);
acdbOpenObject(pEnt,eId,AcDb::kForRead);
pEnt->highlight();
AcDbBlockTableRecord * pBlockTableRec = new AcDbBlockTableRecord();
pBlockTableRec->setName("ASDK-CHANG-BLOCK");
pBlockTableRec->setOrigin(AcGePoint3d(0,0,0));

AcDbBlockTable* pBlockTable = NULL;
acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pBlockTable,AcDb::kForWrite);

AcDbObjectId blockTableRecordId;
pBlockTable->add(blockTableRecordId,pBlockTableRec);
pBlockTable->close();
pBlockTableRec->appendAcDbEntity(eId,pEnt);
pEnt->unhighlight();
pEnt->close();
pBlockTableRec->close();

这段代码为什么不行？insert 没反应
有没有调通的代码？
谢谢！