[ARX程序]：这个图为什么这么大(2004格式)

王咣生

生产中遇到个问题,下面这个图清理过了,为什么这么大?从arx方面怎么解释呢?只有用wblock才能解决吗?
part1:

fylinwater

清理的图形部队扩展数据、扩展记录、扩展词典自定义实体等清除，但他们看不见，所以图会很大，目前AUtoCAD2002～2005的版本存在一个图层过滤器漏洞，其实就是在层表里有扩展词典ACAD_LAYERFILTERS，它记录的数据可达到几M。 2006出了一个清理功能。
编程清除的方法

1. 
   
2. int deleteLayerFilters()
   
3. {
   
4. 
   
5.    int maxn=30;
   
6. 
   
7.     AcDbXrecord *pXrec;
   
8.     AcDbObjectId dictObjId;
   
9.     AcDbDictionary *pDict;
   
10. 
    
11.         AcDbLayerTable *pLyrTable=NULL;       
    
12.     AcDbDatabase* pCurDb = acdbHostApplicationServices()->workingDatabase();
    
13.         pCurDb->getLayerTable(pLyrTable, AcDb::kForRead);
    
14.    
    
15.     dictObjId = pLyrTable->extensionDictionary();
    
16.        
    
17.    
    
18.     acdbOpenObject(pDict, dictObjId, AcDb::kForWrite);
    
19.         AcDbObjectId  entryObj;
    
20.         CString strName="ACAD_LAYERFILTERS";
    
21.         Acad :: ErrorStatus es=pDict->getAt( strName ,entryObj);
    
22.         if (es!=Acad::eOk)
    
23.         {
    
24.                 pDict->close();
    
25.                 pLyrTable->close();
    
26.                  acedRetNil();
    
27.                 return (RTNORM);
    
28.         }
    
29. 
    
30.         int rt=false;
    
31.    AcDbDictionary *pDict2;
    
32.    acdbOpenObject(pDict2, entryObj, AcDb::kForRead);
    
33.    if (pDict2->numEntries()>maxn)
    
34.    {
    
35.           pDict->remove(strName);
    
36.           rt=true;
    
37.    }         
    
38.    pDict2->close();
    
39. 
    
40.     pDict->close();
    
41.         pLyrTable->close();
    
42. 
    
43.         if (rt)
    
44.         {
    
45.                 acedRetT();
    
46.         }
    
47.         else
    
48.         {
    
49.                 acedRetNil();  
    
50.         }
    
51. 
    
52.         return (RTNORM) ;
    
53. }
    
54. 
    

复制代码