[ARX程序]：帮我看看，关于图层方面的

小李飞刀

void chgEntLayer（ads_name sel，long lenSS;）
{
        ads_name ssEntName;
        int rc,i;
        char* lyrname = "line";
        AcDbLayerTable *pLyrTable;
        Adesk::Boolean current = TRUE;
        AcDbLayerTableRecord *pLyrTblRecord;
        AcDbObjectId layerId,entId;
        AcDbEntity *pEnt;

        AcDbDatabase *pCurDb = NULL;

        pCurDb = acdbHostApplicationServices()->workingDatabase();


        pCurDb->getLayerTable(pLyrTable, AcDb::kForRead);
        // Check to see if the layer name exists
        if(pLyrTable->has(lyrname))
        {
                pLyrTable->getAt(lyrname, pLyrTblRecord, AcDb::kForWrite, Adesk::kFalse);
                // pLyrTblRecord now points at the layer table record
                // which was opened for write
                pLyrTblRecord->setIsFrozen(Adesk::kFalse);
        }
        else
        {
                // Note how we can change the open mode
                // of the layer table from AcDb::kForRead
                // to AcDb::kForWrite

                pLyrTable->upgradeOpen();
                pLyrTblRecord = new AcDbLayerTableRecord;

                pLyrTblRecord->setName(lyrname);
                pLyrTable->add(pLyrTblRecord);

        }

        // Get the layer Table ObjectId
        layerId = pLyrTblRecord->objectId();

        acedSSLength(sel,&lenSS);
        for(i = 0; i<lenSS; i++)
        {
                rc = acedSSName(sel,i,ssEntName);
                if(rc != RTNORM)
                {
                        break;
                }
                acdbGetObjectId(entId,ssEntName);
                acdbOpenAcDbEntity(pEnt,entId,AcDb::kForWrite);
                pEnt->setLayer(layerId);//这个地方不能将layerId所代表的图层设为pEnt的图层
                pEnt->close();
        }

        pLyrTblRecord->close();
        pLyrTable->close();

使图层为当前图层
        if(current
        {
                pCurDb->setClayer(recId);
        }

}


我调了很长时间，也没有效果，请帮帮忙