交换两个实体的OBJECTID

LoveArx

接受LISP参数，交换两个实体的OBJECTID

1. int ObjectSwapId()
   
2. {
   
3.         resbuf *rb=ads_getargs();
   
4.         if (!rb)
   
5.                 return RSRSLT;
   
6.         if (rb->restype != RTENAME)
   
7.                 return RSRSLT;
   
8.         AcDbObjectId srcId,destId,ownId;
   
9.         Acad::ErrorStatus es;
   
10.         es=acdbGetObjectId(srcId,rb->resval.rlname);
    
11.         if (es !=Acad::eOk)
    
12.                 return RSRSLT;
    
13.         AcDbObject *pObj1,*pObj2;
    
14.         es=acdbOpenObject(pObj1,srcId,AcDb::kForWrite,true);
    
15.         if (es != Acad::eOk)
    
16.                 return RSRSLT;
    
17.         rb=rb->rbnext;
    
18.         if (rb->restype != RTENAME)
    
19.                 return RSRSLT;
    
20.         es=acdbGetObjectId(destId,rb->resval.rlname);
    
21.         if (es !=Acad::eOk)
    
22.                 return RSRSLT;
    
23.         es=acdbOpenObject(pObj2,destId,AcDb::kForRead,true);
    
24.         if (es != Acad::eOk)
    
25.         {
    
26.                 pObj1->close();
    
27.                 return RSRSLT;
    
28.         }
    
29.         pObj2->close();
    
30.         es=pObj1->swapIdWith(destId,TRUE,TRUE);
    
31.         if (es == Acad::eOk)
    
32.           ads_rett();
    
33.         pObj1->close();
    
34.         return RSRSLT;
    
35. }
    
36. 
    

int ObjectSwapId()<br /> {<br />         resbuf *rb=ads_getargs();<br />         if (!rb)<br />                 return RSRSLT;<br />         if (rb->restype != RTENAME)<br />                 return RSRSLT;<br />         AcDbObjectId srcId,destId,ownId;<br />         Acad::ErrorStatus es;<br />         es=acdbGetObjectId(srcId,rb->resval.rlname);<br />         if (es !=Acad::eOk)<br />                 return RSRSLT;<br />         AcDbObject *pObj1,*pObj2;<br />         es=acdbOpenObject(pObj1,srcId,AcDb::kForWrite,true);<br />         if (es != Acad::eOk)<br />                 return RSRSLT;<br />         rb=rb->rbnext;<br />         if (rb->restype != RTENAME)<br />                 return RSRSLT;<br />         es=acdbGetObjectId(destId,rb->resval.rlname);<br />         if (es !=Acad::eOk)<br />                 return RSRSLT;<br />         es=acdbOpenObject(pObj2,destId,AcDb::kForRead,true);<br />         if (es != Acad::eOk)<br />         {<br />                 pObj1->close();<br />                 return RSRSLT;<br />         }<br />         pObj2->close();<br />         es=pObj1->swapIdWith(destId,TRUE,TRUE);<br />         if (es == Acad::eOk)<br />           ads_rett();<br />         pObj1->close();<br />         return RSRSLT;<br /> }<br /> <br />