[ARX函数]：偶写的将实体Id加入组的小程序，请大家批判:)

lgxqf

void //通过输入组名称,将ObjectId加入组。若没有指定的组则创建指定的组并将ObjectId加入
AddToGroup(const char *pGroupName,AcDbObjectId ObjectId)
{
        AcDbGroup       *pGroup = new AcDbGroup;
        AcDbObjectId     GroupObjectId,entId;
        AcDbDictionary  *pGroupDict = NULL;

        acdbHostApplicationServices()->workingDatabase()->getGroupDictionary(pGroupDict, AcDb::kForWrite);
       
        Acad::ErrorStatus    esCode;
        esCode = pGroupDict->getAt( pGroupName, (AcDbObject *&)pGroup, AcDb::kForWrite);
       
        if(esCode=Acad::eOk)
        {
                //Add  entity to existing  group
                pGroup->append(entId);
        }
        else
        {
       
                pGroupDict->setAt(pGroupName, pGroup, GroupObjectId);
                pGroupDict->close();
                pGroup->append(entId);   
                pGroup->close();
        }

}

rackyye

不能用new的pGroup指针作为参数去打开Group，这样会造成内存泄漏。
贴出一段代码供搂主参考：

1. 
   
2.   [FONT=courier new]
   
3. AcDbObjectId FuCreateGroup(const char *szGroupName, AcDbObjectIdArray& ids)
   
4. {
   
5.         if (ids.length() == 0) return AcDbObjectId::kNull;
   
6.         AcDbObjectId  groupObjectId;
   
7.         AcDbDictionary  *pGroupDict = NULL;
   
8.         AcDbGroup *pOtherGroup = NULL;
   
9.        
   
10.         acdbHostApplicationServices()->workingDatabase()
    
11.                 ->getGroupDictionary(pGroupDict, AcDb::kForWrite);
    
12.         if (pGroupDict->getAt(szGroupName, (AcDbObject *&)pOtherGroup, AcDb::kForWrite) == Acad::eOk) {
    
13.                 CString sTip;
    
14.                 sTip.Format("组“%s”已经存在，是否替换？", szGroupName);
    
15.                 if (AfxMessageBox(sTip, MB_OKCANCEL) != IDOK) {
    
16.                         pOtherGroup->close();
    
17.                         pGroupDict->close();
    
18.                         return groupObjectId;
    
19.                 }
    
20.                
    
21.                 pOtherGroup->clear();
    
22.                 for (int i=0; i<ids.length(); i++) {
    
23.                         pOtherGroup->append(ids[i]);   
    
24.                 }
    
25.                 groupObjectId = pOtherGroup->objectId();
    
26.                 pOtherGroup->close();
    
27.         }
    
28.         else {
    
29.                 AcDbGroup *pGroup = new AcDbGroup;
    
30.                 pGroupDict->setAt(szGroupName, pGroup, groupObjectId);
    
31.                 for (int i=0; i<ids.length(); i++) {
    
32.                         pGroup->append(ids[i]);   
    
33.                 }               
    
34.                 pGroup->close();               
    
35.         }
    
36.        
    
37.         pGroupDict->close();
    
38.        
    
39.         return groupObjectId;
    
40. }
    
41.   [/FONT]
    

复制代码

lgxqf

多谢 高手指教，在下感激不尽 :)
I do appreciate what you did (^,-)

xcxm0304

下面代码中，当把pGroup->append(newbpCID);换成sta = pGroup->insertAt(1, newbpCID);后。然后在执行CAD的“放弃（U）”命令后，就会出现eHadMultipleReaders 错误提示，这是什么原因啊，哦想了好久也不知道原因。
还请大侠指点！！


void addIDToGroup(AcDbObjectId newID, UINT IDpos, CString GroupName)
{

        AcDbDictionary  *pGroupDict = NULL;
    AcDbObjectId groupId;
        acdbCurDwg()->getGroupDictionary(pGroupDict, AcDb::kForWrite);
    pGroupDict->getAt(GroupName.GetBuffer(200), groupId);//group名字
    pGroupDict->close();
    AcDbGroup *pGroup;
//        Acad :: ErrorStatus sta;
        sta = acdbOpenObject(pGroup, groupId, AcDb::kForWrite);
        if (sta != Acad::eOk)
        {
                pGroup->close();
                return;
        }
//        sta = pGroup->insertAt(1, newbpCID);
        sta = pGroup->append(newbpCID);
        //        pGroup->setSelectable(false);
       
        pGroup->close();
}