[ARX函数]：ads_ssfree函数能够完全清空已分配的内存吗？

xb4270293

ads_ssfree函数能够完全清空已分配的内存吗？
如何解决？

XDSoft

最初由 xb4270293 发布
[B]ads_ssfree函数能够完全清空已分配的内存吗？
如何解决？ [/B]

如果你程序里面大量的使用选择集，即使及时释放，系统内存也要耗费尽。这是由于ACAD释放选择集内存后，并没有把它们归还给操作系统。

解决办法是自己写SSGET，使用一个全局的AcDbObjectIdArray来存放你需要处理的实体。

xb4270293

由于看中了ads_ssget("CP", ...)可以根据一个多边形区域选择实体，不必自己去判断每一个实体是否在区域内或相交，所以使用了ads构造选择集的方法，不得以而为之。由于选择的图形实体数量较多，在循环体中，三、五下就占满了内存。我晕！
不知ObjectARX中有没有相应的对象或函数？
请指教.

XDSoft

最初由 xb4270293 发布
[B]由于看中了ads_ssget("CP", ...)可以根据一个多边形区域选择实体，不必自己去判断每一个实体是否在区域内或相交，所以使用了ads构造选择集的方法，不得以而为之。由于选择的图形实体数量较多，在循环体中，三、五下?.. [/B]

ads_ssget是ARX的全局函数部分中的，在ARX开发中也是必不可少的，比如和ACAD交互的时候，ads_getxxxx类还有ads_entsel等等。

ads_ssget就是ARX的一部分，因此就没有ARX是否有类似ssget这样的对象。构造选择集只能用ads_ssget.

你可以根据实际需要，不使用选择集存放大量的实体，使用一个全局的ID数组，里面存放你要处理的实体ID。

获得满足需要的ID，自己完全可以根据实际需要写代码，而且测试过，即使整个数据库遍历查找对象，用ARX的遍历也要比ads_ssget 的"X“参数的方法速度要快一个数量集。ads_ssget只有在选择屏幕内的实体的时候，比如W,C等参数时候，速度稍微快些，因为ACAD使用了显示表的方法获得屏幕内的实体（基于象素）的。

下面的代码是一个arx的ssget（自己定义），选取符号条件的POLYLINE实体。

你可以参考下：

2. 
   
3. [FONT=courier new]
   
4. **********************************************************************\
   
5. *
   
6. // arx_ssget.cpp : Initialization functions
   
7. #include "StdAfx.h"
   
8. 
   
9. AcDbObjectIdArray gIdArray;
   
10. 
    
11. void testArxSSGet();
    
12. 
    
13. // Few simple ones to start with
    
14. // you can expand on this if necessary.
    
15. //
    
16. // If you don't like it this way, you can
    
17. // use pEnt->isKindOf(AcDbXXX::desc())
    
18. // in the arx_ssget() function body to
    
19. // verify the entity type.
    
20. //
    
21. enum entityType {
    
22.         LWPOLYLINE,
    
23.         CIRCLE,
    
24.         SPLINE
    
25. };
    
26. 
    
27. /////////////////////////////////////////////////////////////////////////////
    
28. // ObjectARX EntryPoint
    
29. extern "C" AcRx::AppRetCode
    
30. acrxEntryPoint(AcRx::AppMsgCode msg, void* pkt)
    
31. {
    
32.         switch (msg) {
    
33.         case AcRx::kInitAppMsg:
    
34.                 acrxDynamicLinker->unlockApplication(pkt);
    
35.                 acrxDynamicLinker->registerAppMDIAware(pkt);
    
36.                 acedRegCmds->addCommand("ASDK", "TEST", "TEST", ACRX_CMD_MODAL, testArxSSGet);
    
37.                 break;
    
38.         case AcRx::kUnloadAppMsg:
    
39.                 acedRegCmds->removeGroup("ASDK");
    
40.                 break;
    
41.         }
    
42.         return AcRx::kRetOK;
    
43. }
    
44. //
    
45. // Iterate the BT, BTR to acquire entities by the
    
46. // critiria provided by the parameters.
    
47. // Builds a global objectId array. If desired,
    
48. // you can change it to be function parameter.
    
49. //
    
50. bool arx_ssget(const char* pAppName, const int entType)
    
51. {
    
52.         // notice pBT is a smart pointer
    
53.         AcDbBlockTablePointer pBT(curDoc()->database(), AcDb::kForRead);
    
54.         if(pBT.openStatus() != Acad::eOk)
    
55.                 return false;
    
56. 
    
57.         AcDbBlockTableIterator* pBTIter = NULL;
    
58.         pBT->newIterator(pBTIter);
    
59.         if(!pBTIter)
    
60.                 return false;
    
61. 
    
62.         for(pBTIter->start(); !pBTIter->done(); pBTIter->step())
    
63.         {
    
64.                 AcDbBlockTableRecord* pRec = NULL;
    
65.                 Acad::ErrorStatus es = pBTIter->getRecord(pRec, AcDb::kForRead);
    
66.                 if(es != Acad::eOk)
    
67.                 {
    
68.                         delete pBTIter;
    
69.                         return false;
    
70.                 }
    
71.                 AcDbBlockTableRecordIterator* pIter = NULL;
    
72.                 pRec->newIterator(pIter);
    
73.                 if(!pIter)
    
74.                 {
    
75.                         pRec->close();
    
76.                         delete pIter;
    
77.                         return false;
    
78.                 }
    
79.                 for(pIter->start(); !pIter->done(); pIter->step())
    
80.                 {
    
81.                         AcDbEntity* pEnt = NULL;
    
82.                         es = pIter->getEntity(pEnt, AcDb::kForRead);
    
83.                         if(es != Acad::eOk)
    
84.                         {
    
85.                                 delete pIter;
    
86.                                 delete pBTIter;
    
87.                                 pRec->close();
    
88.                                 return false;
    
89.                         }
    
90.                         if(!gIdArray.contains(pEnt->objectId(), 0))
    
91.                         {
    
92.                                 bool bAppend = false;
    
93.                                 switch(entType)
    
94.                                 {
    
95.                                 case LWPOLYLINE:
    
96.                                         pEnt->isKindOf(AcDbPolyline::desc());
    
97.                                         bAppend = true;
    
98.                                         break;
    
99.                                 case CIRCLE:
    
100.                                         // do nothing at this time
     
101.                                         break;
     
102.                                 }
     
103.                                 resbuf* rb = pEnt->xData(pAppName);
     
104.                                 if(bAppend == true && rb != NULL)
     
105.                                 {
     
106.                                         gIdArray.append(pEnt->objectId());
     
107.                                         acutRelRb(rb);
     
108.                                 }
     
109.                         }
     
110. 
     
111.                         pEnt->close();
     
112.                 }
     
113.                 pRec->close();
     
114.                 delete pIter;
     
115.         }
     
116.         delete pBTIter;
     
117.         return true;
     
118. }
     
119. //
     
120. // This a simple test with the problem dwg.
     
121. // I've made copies of the contents multiple times
     
122. // in different spaces as well. I did the following,
     
123. // (repeat 1000 (command "test")) and
     
124. // the memory consumptiom remains stable,
     
125. // even there is a acutRelRb() call thousands of times
     
126. // in arx_ssget().
     
127. //
     
128. void testArxSSGet()
     
129. {
     
130.         // clean up the global array first
     
131.         while(!gIdArray.isEmpty())
     
132.                 gIdArray.removeFirst();
     
133. 
     
134.         const char testAppName[] = "AUTO_SCHEMATIC_258NBP9DQ9FX8G0";
     
135.        
     
136.         if(arx_ssget(testAppName, LWPOLYLINE))
     
137.                 acutPrintf("\n%i entities found with the %s application name and type LWPOLYLINE.",
     
138.                         gIdArray.length(), testAppName);
     
139.         else
     
140.                 acutPrintf("\nNothing found.");
     
141. }
     
142. 
     
143. [/FONT]

<br /> [FONT=courier new]<br /> **********************************************************************\<br /> *<br /> // arx_ssget.cpp : Initialization functions<br /> #include "StdAfx.h"<br /> <br /> AcDbObjectIdArray gIdArray;<br /> <br /> void testArxSSGet();<br /> <br /> // Few simple ones to start with<br /> // you can expand on this if necessary.<br /> //<br /> // If you don't like it this way, you can <br /> // use pEnt->isKindOf(AcDbXXX::desc())<br /> // in the arx_ssget() function body to<br /> // verify the entity type.<br /> //<br /> enum entityType {<br />         LWPOLYLINE,<br />         CIRCLE,<br />         SPLINE<br /> };<br /> <br /> /////////////////////////////////////////////////////////////////////////////<br /> // ObjectARX EntryPoint<br /> extern "C" AcRx::AppRetCode <br /> acrxEntryPoint(AcRx::AppMsgCode msg, void* pkt)<br /> {<br />         switch (msg) {<br />         case AcRx::kInitAppMsg:<br />                 acrxDynamicLinker->unlockApplication(pkt);<br />                 acrxDynamicLinker->registerAppMDIAware(pkt);<br />                 acedRegCmds->addCommand("ASDK", "TEST", "TEST", ACRX_CMD_MODAL, testArxSSGet);<br />                 break;<br />         case AcRx::kUnloadAppMsg:<br />                 acedRegCmds->removeGroup("ASDK");<br />                 break;<br />         }<br />         return AcRx::kRetOK;<br /> }<br /> //<br /> // Iterate the BT, BTR to acquire entities by the <br /> // critiria provided by the parameters.<br /> // Builds a global objectId array. If desired, <br /> // you can change it to be function parameter.<br /> //<br /> bool arx_ssget(const char* pAppName, const int entType)<br /> {<br />         // notice pBT is a smart pointer<br />         AcDbBlockTablePointer pBT(curDoc()->database(), AcDb::kForRead);<br />         if(pBT.openStatus() != Acad::eOk)<br />                 return false;<br /> <br />         AcDbBlockTableIterator* pBTIter = NULL;<br />         pBT->newIterator(pBTIter);<br />         if(!pBTIter)<br />                 return false;<br /> <br />         for(pBTIter->start(); !pBTIter->done(); pBTIter->step())<br />         {<br />                 AcDbBlockTableRecord* pRec = NULL;<br />                 Acad::ErrorStatus es = pBTIter->getRecord(pRec, AcDb::kForRead);<br />                 if(es != Acad::eOk)<br />                 {<br />                         delete pBTIter;<br />                         return false;<br />                 }<br />                 AcDbBlockTableRecordIterator* pIter = NULL;<br />                 pRec->newIterator(pIter);<br />                 if(!pIter)<br />                 {<br />                         pRec->close();<br />                         delete pIter;<br />                         return false;<br />                 }<br />                 for(pIter->start(); !pIter->done(); pIter->step())<br />                 {<br />                         AcDbEntity* pEnt = NULL;<br />                         es = pIter->getEntity(pEnt, AcDb::kForRead);<br />                         if(es != Acad::eOk)<br />                         {<br />                                 delete pIter;<br />                                 delete pBTIter;<br />                                 pRec->close();<br />                                 return false;<br />                         }<br />                         if(!gIdArray.contains(pEnt->objectId(), 0))<br />                         {<br />                                 bool bAppend = false;<br />                                 switch(entType)<br />                                 {<br />                                 case LWPOLYLINE:<br />                                         pEnt->isKindOf(AcDbPolyline::desc());<br />                                         bAppend = true;<br />                                         break;<br />                                 case CIRCLE:<br />                                         // do nothing at this time<br />                                         break;<br />                                 }<br />                                 resbuf* rb = pEnt->xData(pAppName);<br />                                 if(bAppend == true && rb != NULL)<br />                                 {<br />                                         gIdArray.append(pEnt->objectId());<br />                                         acutRelRb(rb);<br />                                 }<br />                         }<br /> <br />                         pEnt->close();<br />                 }<br />                 pRec->close();<br />                 delete pIter;<br />         }<br />         delete pBTIter;<br />         return true;<br /> }<br /> //<br /> // This a simple test with the problem dwg.<br /> // I've made copies of the contents multiple times<br /> // in different spaces as well. I did the following,<br /> // (repeat 1000 (command "test")) and <br /> // the memory consumptiom remains stable,<br /> // even there is a acutRelRb() call thousands of times<br /> // in arx_ssget(). <br /> //<br /> void testArxSSGet()<br /> {<br />         // clean up the global array first<br />         while(!gIdArray.isEmpty())<br />                 gIdArray.removeFirst();<br /> <br />         const char testAppName[] = "AUTO_SCHEMATIC_258NBP9DQ9FX8G0";<br />         <br />         if(arx_ssget(testAppName, LWPOLYLINE))<br />                 acutPrintf("\n%i entities found with the %s application name and type LWPOLYLINE.", <br />                         gIdArray.length(), testAppName);<br />         else<br />                 acutPrintf("\nNothing found.");<br /> }<br /> <br /> [/FONT]

XDSoft

给你贴篇背景资料，对ads_ssget和用ARX实现的遍历进行测试

2. 
   
3. [FONT=courier new]
   
4. Which is faster, acedSSGet or ObjectARX ?  
   
5. ID    14192  
   
6. Applies to:    AutoCAD 2002
   
7. AutoCAD 2000
   
8. AutoCAD 2000I
   
9. 
   
10. 
    
11. This document is part of    ADS   ObjectARX   AcDb (AutoCAD Database)   Selection Sets     
    
12. 
    
13. 
    
14. Question
    
15. When I am iterating through the entire database, is it faster to use acedSSGet()
    
16. or to use ObjectARX techniques? With ObjectARX I have to open every entity,
    
17. whereas with acedSSGet() I do not.
    
18. Answer
    
19. It is generally faster to use ObjectARX when querying the entire database.  
    
20. However, when you specify an area (giving 2 points to acedSSGet() for example),
    
21. or when using the special ssget modes '"W, C, P, F, CP, WP', then acedSSGet()
    
22. is faster because it uses the display list to retrieve the entities. But those
    
23. modes work only for the entity in the display list, not for the others.
    
24. 
    
25. The attached code was run on the attached DWG. There were three tests: one to
    
26. create an AcDbObjectIdArray of all entitites in model space; another to create
    
27. an AcDbObjectIdArray of all circles in model space; thirdly, to create an
    
28. AcDbObjectIdArray of entities on a given layer.
    
29. 
    
30. The results were:
    
31.                           acedSSGet()          ObjectARX
    
32. All Entities              0.080                      0.01
    
33. All Circles              0.090                      0.01
    
34. All on Layer 1        0.110                      0.02
    
35. 
    
36. There are a few techniques here to note.
    
37. 
    
38. 1. The layerId is identified outside the loop. This means that you can compare
    
39. the ObjectIds, which is faster than opening the layer every time to compare the strings.
    
40. 
    
41. 2. The selection set in the acedSSGet() tests knows how many entities are present.
    
42. The AcDbObjectIdArray can therefore be initiated correctly rather than having to grow.
    
43. 
    
44. 3. The use of the function approxNumObjects() makes the ObjectARX test much
    
45. faster, for the same reason as in # 2.
    
46. [/FONT]

<br /> [FONT=courier new]<br /> Which is faster, acedSSGet or ObjectARX ?  <br /> ID    14192  <br /> Applies to:    AutoCAD 2002<br /> AutoCAD 2000<br /> AutoCAD 2000I<br /> <br /> <br /> This document is part of    ADS   ObjectARX   AcDb (AutoCAD Database)   Selection Sets     <br /> <br /> <br /> Question <br /> When I am iterating through the entire database, is it faster to use acedSSGet() <br /> or to use ObjectARX techniques? With ObjectARX I have to open every entity, <br /> whereas with acedSSGet() I do not.<br /> Answer <br /> It is generally faster to use ObjectARX when querying the entire database.  <br /> However, when you specify an area (giving 2 points to acedSSGet() for example), <br /> or when using the special ssget modes '"W, C, P, F, CP, WP', then acedSSGet() <br /> is faster because it uses the display list to retrieve the entities. But those <br /> modes work only for the entity in the display list, not for the others.<br /> <br /> The attached code was run on the attached DWG. There were three tests: one to <br /> create an AcDbObjectIdArray of all entitites in model space; another to create <br /> an AcDbObjectIdArray of all circles in model space; thirdly, to create an <br /> AcDbObjectIdArray of entities on a given layer.<br /> <br /> The results were:<br />                           acedSSGet()          ObjectARX<br /> All Entities              0.080                      0.01<br /> All Circles              0.090                      0.01<br /> All on Layer 1        0.110                      0.02<br /> <br /> There are a few techniques here to note.<br /> <br /> 1. The layerId is identified outside the loop. This means that you can compare <br /> the ObjectIds, which is faster than opening the layer every time to compare the strings.<br /> <br /> 2. The selection set in the acedSSGet() tests knows how many entities are present. <br /> The AcDbObjectIdArray can therefore be initiated correctly rather than having to grow.<br /> <br /> 3. The use of the function approxNumObjects() makes the ObjectARX test much <br /> faster, for the same reason as in # 2.<br /> [/FONT]

xb4270293

感谢BOSS!
我的工程，需要面对一张电子地图(DWG)，里面可能有几万个块、几十万条3dPolyline，每条折线顶点数可能有几万个点，还包含有文字、填充、等等。如果一一遍历和判断，速度快不到哪去，因此考虑利用CAD的显示表来解决。
我再晕！！
HELP!

xb4270293

用户在地图中绘制无数个（如：100）多边形，判断多边形是否于折线相交的效率太低，尤其是折线的顶点无数(如：5000~50000个点)。
需要将与多边形相交的实体复制到另一张图中，而后XClip它们，而且限定在AutoCAD R14上，由于Acad2000 / 2002太贵。已在R14中折腾了三年。

XDSoft

最初由 xb4270293 发布
[B]用户在地图中绘制无数个（如：100）多边形，判断多边形是否于折线相交的效率太低，尤其是折线的顶点无数(如：5000~50000个点)。
需要将与多边形相交的实体复制到另一张图中，而后XClip它们，而且限定在AutoCAD R14?.. [/B]

你试试吧，ACAD数据库遍历一次速度很快的。不是想象的那样：）

想想现在的机器的时钟周期，遍历一个对象要1个周期的话，1万个也不过0。0几秒。

XDSoft

最初由 xb4270293 发布
[B]用户在地图中绘制无数个（如：100）多边形，判断多边形是否于折线相交的效率太低，尤其是折线的顶点无数(如：5000~50000个点)。
需要将与多边形相交的实体复制到另一张图中，而后XClip它们，而且限定在AutoCAD R14?.. [/B]

你可以用包围盒求交，这个速度快，别用实体的interSectWith

AcDbEntity::boundingBoxIntersectWith (...)

xb4270293

thanks !  :>
我再去试！

XDSoft

最初由 xb4270293 发布
[B]thanks !  :>
我再去试！ [/B]

调试好后，把代码给大家贴到论坛来，谢谢！