删除

hphkjz

哪位大哥能编个程序，实现以下删除功能。
第一步，点击删除的元素
第二步，框选删除的范围

然后在框选的范围内这个元素所在的图层的东西都删除了

newer

现成的，比你想要的还要强
http://bbs.xdcad.net/thread-668256-1-1.html

                               
登录/注册后可看大图

ymd

1. void test(void)
   
2. {
   
3.         Adesk::Int32 i, n0;
   
4.         ads_point p0;
   
5.         AcDbObjectId id, id0;
   
6.         ads_name nas, na, na0;
   
7.         if (ads_entsel(_T("\n选择一个实体:"), na0, p0) != RTNORM) return;
   
8.         ads_ssget(NULL, NULL, NULL, NULL, nas);
   
9.         ads_sslength(nas, &n0);
   
10.         if (n0 <= 0) return;
    
11.         acdbGetObjectId(id0, na0);
    
12.         AcDbObjectPointer<AcDbEntity> pE0(id0, AcDb::kForWrite);
    
13.         if (pE0.openStatus() != Acad::eOk) return;
    
14.         for (i = 0L; i < n0; i++) {
    
15.                 ads_ssname(nas, i, na);
    
16.                 acdbGetObjectId(id, na);
    
17.                 if (id == id0) continue;
    
18.                 AcDbObjectPointer<AcDbEntity> pE1(id, AcDb::kForWrite);
    
19.                 if (pE1.openStatus() == Acad::eOk) {
    
20.                         if (pE0->layerId() == pE1->layerId()) {
    
21.                                 pE1->erase();
    
22.                                 pE1->close();
    
23.                         }
    
24.                 }
    
25.         }
    
26.         pE0->erase();
    
27.         pE0->close();
    
28.         ads_ssfree(nas);
    
29. }
    

void test(void)<br /> {<br />         Adesk::Int32 i, n0;<br />         ads_point p0;<br />         AcDbObjectId id, id0;<br />         ads_name nas, na, na0;<br />         if (ads_entsel(_T("\n选择一个实体:"), na0, p0) != RTNORM) return;<br />         ads_ssget(NULL, NULL, NULL, NULL, nas);<br />         ads_sslength(nas, &n0);<br />         if (n0 <= 0) return;<br />         acdbGetObjectId(id0, na0);<br />         AcDbObjectPointer<AcDbEntity> pE0(id0, AcDb::kForWrite);<br />         if (pE0.openStatus() != Acad::eOk) return;<br />         for (i = 0L; i < n0; i++) {<br />                 ads_ssname(nas, i, na);<br />                 acdbGetObjectId(id, na);<br />                 if (id == id0) continue;<br />                 AcDbObjectPointer<AcDbEntity> pE1(id, AcDb::kForWrite);<br />                 if (pE1.openStatus() == Acad::eOk) {<br />                         if (pE0->layerId() == pE1->layerId()) {<br />                                 pE1->erase();<br />                                 pE1->close();<br />                         }<br />                 }<br />         }<br />         pE0->erase();<br />         pE0->close();<br />         ads_ssfree(nas);<br /> }<br />

xudongchu

论坛真强大！