[求助]：请问，谁知道如何清除一个实体上的扩展数据？

长清

同上

XDSoft

下面是ARX和LISP的实现方法：

1. 
   
2. void removeXdata()
   
3. {
   
4.     ads_name eNam;
   
5. 
   
6. ads_point pt;
   
7. 
   
8. int i = acedEntSel ("\nPick an object:", eNam, pt);
   
9. 
   
10. 
    
11. 
    
12. if (RTNORM != i)
    
13. 
    
14. {
    
15. 
    
16. return;
    
17. 
    
18. }
    
19. 
    
20. AcDbObjectId ObjId;
    
21. 
    
22. acdbGetObjectId(ObjId, eNam);
    
23. 
    
24. AcDbEntity *pEnt;
    
25. 
    
26. acdbOpenAcDbEntity(pEnt, ObjId, AcDb::kForWrite);
    
27. 
    
28. resbuf *xdata = pEnt->xData(NULL);
    
29. 
    
30. if (xdata)
    
31. 
    
32. {
    
33. 
    
34. xdata->rbnext = NULL;
    
35. 
    
36. pEnt->setXData(xdata);
    
37. 
    
38. acutRelRb(xdata);
    
39. 
    
40. }
    
41. 
    
42. pEnt->close();
    
43. 
    
44. }
    

复制代码

下面是和上面等价的LISP实现：

2. 
   
3. 
   
4. (defun c:DelXdata()
   
5. (setq l (car (entsel "Pick object:")))
   
6. (if l (progn
   
7.      (redraw l 3)
   
8.      (setq le (entget l '("*")) )
   
9.      (setq xdata (assoc '-3 le))
   
10.      (setq le
    
11.            (subst (cons (car xdata) (list (list (car (car (cdr xdata))))))
    
12. xdata le))
    
13.      (entmod le)
    
14.      (redraw l 4)
    
15.      le
    
16.     )
    
17. )
    
18. )
    

<br /> <br /> (defun c:DelXdata()<br /> (setq l (car (entsel "Pick object:")))<br /> (if l (progn<br />      (redraw l 3)<br />      (setq le (entget l '("*")) )<br />      (setq xdata (assoc '-3 le))<br />      (setq le<br />            (subst (cons (car xdata) (list (list (car (car (cdr xdata))))))<br /> xdata le))<br />      (entmod le)<br />      (redraw l 4)<br />      le<br />     )<br /> )<br /> )<br />

说明: 如果一个实体附着了多个应用程序名的扩展实体数据，把上面代码放到循环里面就可以了。

梦断江南

(setq le
           (subst (cons (car xdata) (list (list (car (car (cdr xdata))))))
xdata le))

讲解一下这一段 ：）

XDSoft

最初由 梦断江南 发布
[B](setq le
           (subst (cons (car xdata) (list (list (car (car (cdr xdata))))))
xdata le))

讲解一下这一段 ：） [/B]

先说下删除XDATA的原理，XDATA的组成是祖码-3开始，然后是子表，如：

'(-3 子表1 子表2 ...子表n)

每一个子表是一个应用程序名标识的一组扩展实体数据。

如：'("应用程序名1" ....数据)

清除一个应用程序名为标识的扩展实体数据，把应用程序名后面的数据项清除，只保留应用程序名，然后更新实体数据，那么ACAD就会把只有应用程序名而没有数据的“一组扩展实体数据”的删除了。

举例：
(-3   ("ABC" (1070 . 2) (1070 . 3))
       ("DEF" (1070 . 3))
)

上面-3是扩展数据开始，"ABC"，"DEF"是两个应用程序名标识的两组扩展实体数据。那么我们要删除"ABC"把上面的表中的ABC子表变成("ABC"),然后把上面的表entmod就可以了。

下面看看上面的代码：
(setq le
(subst (cons (car xdata) (list (list (car (car (cdr xdata))))))
xdata le))

这个的结果就是把扩展实体数据的第一个应用程序名标识的子表变成：
(-3   ("ABC")
       ("DEF" (1070 . 3))
)

然后(entmod le)就会更新实体的数据的，ABC扩展数据就没有了。

所以，上面的LISP的作用是把第一个扩展实体数据删除。

因此若要删除所有的扩展实体数据，循环执行下上面的代码部分就可以了。

另：若要删除“指定应用程序名”的扩展实体数据，按照上面的原理，把那个应用程序名标识的子表按照上面的方法仅仅留下名字，去除数据即可。

forest99bjx

ads_name eNam;
ads_point pt;
int i = acedEntSel ("\nPick an object:", eNam, pt);
if (RTNORM != i)
{
  return;
}
AcDbObjectId ObjId;
acdbGetObjectId(ObjId, eNam);
AcDbEntity *pEnt;
acdbOpenAcDbEntity(pEnt, ObjId, AcDb::kForWrite);
resbuf *xdata = pEnt->xData(NULL);
while(xdata)
{
xdata->rbnext = NULL;
pEnt->setXData(xdata);
acutRelRb(xdata);
xdata = pEnt->xData(NULL);
}
pEnt->close();

yusongrong

清除一个实体上的扩展数据有什么用途？

ishou

(2楼) and (5楼) 's ARX-program may cause Memory Leak?

All  data_nodes at xdata->next  and afters are missing to free, becase
of PreSetting xdata->next=NULL before  Calling acutRelRb(xdata).
[/COLOR]
-----------------------------------------------------------------------

1. 
   
2. ads_name eNam;
   
3. ads_point pt;
   
4. int i = acedEntSel ("\nPick an object:", eNam, pt);
   
5. if (RTNORM != i)
   
6. {
   
7.     return;
   
8. }
   
9. AcDbObjectId ObjId;
   
10. acdbGetObjectId(ObjId, eNam);
    
11. AcDbEntity *pEnt;
    
12. acdbOpenAcDbEntity(pEnt, ObjId, AcDb::kForWrite);
    
13. resbuf *xdata = pEnt->xData(NULL);
    
14. [COLOR=blue]
    
15. resbuf  Tmp, *xp;
    
16. Tmp.restype = 1001;
    
17. Tmp.rbnext = NULL;
    
18. for (xp = xdata; xp; xp = xp->rbnext)
    
19. {
    
20.     if (xp->restype == 1001)
    
21.     {
    
22.         Tmp.resval.rstring =  xp->resval.rstring;
    
23.         pEnt->setXData (&Tmp);
    
24.     }
    
25. }
    
26. [/COLOR]
    
27. acutRelRb(xdata);
    
28. pEnt->close();
    

复制代码

=======================
To :(  6楼楼主： 清除一个实体上的扩展数据有什么用途？ )
--------------------
   Free unused-Xdata for more free-MEMORY.

forest99bjx

多谢7楼提到的，我以前在作者中的处理的时候，经常遇到Memory Leak的情况，以及解决的不是很好，对于AutoCAD得指针的处理，有没有比较规律性的东西来防止这个内存的泄漏！？

ishou

我在上面7楼提到的那个程序内存泄漏问题，应该不难理解，它纯
粹是程序逻辑欠缺所致，在理解acutRelRb()功能、resbuf结构基础
上，认真检查程序，应该可以检查出来。
对于 ObjectARX里是否有 比较规律性的东西来防止内存的泄漏，
我比较茫然，迄今我所了解到的ARX中的内存处理有些混乱，在我
看到诸如下面的ARX 介绍，有点心惊肉跳：

2. 
   
3. AcDbSymbolTableRecord::getName Function Acad::ErrorStatus
   
4. 
   
5. getName(
   
6. 
   
7. const char*& pName) const;
   
8. 
   
9. pName Returns pointing to string that is the name of the SymbolTable record
   
10. 
    
11. This function sets pName to point to the name string of the SymbolTableRecord.
    
12. 
    
13. Warning As the const qualifier indicates, no attempt should be made to deallocate the returned string.
    
14. 
    
15. The SymbolTableRecord name string is used for DXF group code 2.
    
16. 
    
17. 
    
18. --------------------------------------------------------------------------------
    
19. 
    
20. Acad::ErrorStatus
    
21. 
    
22. getName(
    
23. 
    
24. char*& pName) const;
    
25. 
    
26. pName Returns pointing to string that is the name of the SymbolTable record
    
27. 
    
28. This function returns a pointer to a string that is a dynamically allocated copy and needs to be freed by the calling application.
    
29. 
    
30. The SymbolTableRecord name string is used for DXF group code 2.
    
31. 
    

<br /> AcDbSymbolTableRecord::getName Function Acad::ErrorStatus<br /> <br /> getName(<br /> <br /> const char*& pName) const;<br /> <br /> pName Returns pointing to string that is the name of the SymbolTable record <br /> <br /> This function sets pName to point to the name string of the SymbolTableRecord.<br /> <br /> Warning As the const qualifier indicates, no attempt should be made to deallocate the returned string.<br /> <br /> The SymbolTableRecord name string is used for DXF group code 2.<br /> <br /> <br /> --------------------------------------------------------------------------------<br /> <br /> Acad::ErrorStatus<br /> <br /> getName(<br /> <br /> char*& pName) const;<br /> <br /> pName Returns pointing to string that is the name of the SymbolTable record <br /> <br /> This function returns a pointer to a string that is a dynamically allocated copy and needs to be freed by the calling application.<br /> <br /> The SymbolTableRecord name string is used for DXF group code 2.<br /> <br />

这两个重载函数的定义，只是一个 const 的差异，却得到两个迥然
不同的结果，前者多了const而仅仅得到一个char * 的指针值而已，
后者却得到复制的char string 及其指针. 这里的介绍并不难理解，问
题在于，在程序普通检查中很难区别两者，很难检查出错误，除非
刻意对该问题作检查。

ARX 中得到的动态字符串如何清除？ free(), acad_free(), delete[],
acutDelString(), 还是acdbFree() ? 如果知道其alloc 方式，当然容易知
道应该采用哪个free了，问题是ARX库的原码我们看不到，仅仅只
能凭 ARX 文档“肤浅"的介绍，去猜测。。。很累啊！这里所出现
的内存泄漏问题更难查！

   AutoCAD 2004的 ARX 要用 MSV 2002 编译，如果使用MSV
2003 编译，AutoCAD警告，可能会引起内存泄漏。对于这个问题，
除了无奈，大家还能做什么. MS真是该骂，仅仅一个版本，
在内存处理方面就会这样不兼容，恐怕这不是技术问题，而是”经
济“问题在作怪！

各位，对 ARX中的内存问题有何看法，也说说看。

empireman

谢谢~~~

xcxm0304

自己写个平台吧，呵呵，就什么都解决了。

顺便问一下，扩展数据怎么修改啊直接赋值就好了吗，应该不行吧，我修改了链表的值，然后
entityname->setXData(lineRb);
acutRelRb(lineRb);
再查看扩展数据时却没变。
难道还要删了。再重新加？