[求助]：急，求高手指点块操作。。。

henryhyg

希望哪位高手能指点一下。
我现在希望能对CAD工作区中的实体把其变成块。
假定命令是makeblock
在command:下输入该命令
能有select objects:
你可以选择工作区中的实体，假定是两个
那能出现command:1object 2 object
后敲回车结束改命令
则所选择的就做成块。
这个问题困扰好几天都没法解决，很头痛
希望高手能指点一二，
最好有小程序能看看，谢谢

cutechun

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();

试试吧，也不知对不对！

小树袋熊

如果要严格点，还要判断新建的块名是否存在，使用迭代器 AcDbBlockTableIterator
论坛里面有很多例子，请用搜索功能找一找