[求助]：一个困绕我很长时间的问题：如何清除一个实体的扩展数据？

长清 · 发表于 2002-4-15 21:10:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

一个困绕我很长时间的问题：如何清除一个实体的扩展数据，请各位大虾帮忙。

dubing · 发表于 2002-4-16 03:35:31

Sub test()
Dim obj As Object
Dim xtype(0) As Integer
Dim xvalue(0) As Variant

xtype(0) = 1001
xvalue(0) = "MyApp" '这里是你用过的应用程序名称。

ThisDrawing.Utility.GetEntity obj, pt, "Pick: "
obj.SetXData xtype, xvalue
End Sub
沈阳杜冰

XDSoft · 发表于 2002-4-16 05:57:34

最初由长清发布
[B]一个困绕我很长时间的问题：如何清除一个实体的扩展数据，请各位大虾帮忙。 [/B]

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

void removeXdata()
{
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);
if (xdata)
{
xdata->rbnext = NULL;
pEnt->setXData(xdata);
acutRelRb(xdata);
}
pEnt->close();
}

复制代码

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

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

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

XDSoft · 发表于 2002-4-16 07:41:11

把在ARX论坛回答江南的帖子也贴到这里

先说下删除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的作用是把第一个扩展实体数据删除。

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

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

长清 · 发表于 2002-4-16 20:40:18

最初由 XDSoft 发布
[B]把在ARX论坛回答江南的帖子也贴到这里

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

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

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

如：'(... [/B]

谢谢晓东的指点，谢谢杜冰，还如此详细，我学到这么多“新”东西！

就是把
(-3 ("SDf" ( . ) ( . ) ...) )
变成
(-3 ("SDf"))
然后就entmod，

LUCAS · 发表于 2002-4-16 20:45:47

;;;直接重建对象不要xdata

(defun C:XDATA1 (/ KEY SS SS1)
(while (= SS1 NIL)
(prompt "\n选择对象: ")
(setq SS1 (car (entsel)))
(if (/= SS1 NIL)
(setq SS (assoc -3 (entget SS1 '("*"))))
)
(if (= SS NIL)
(setq SS1 NIL)
)
)
(alert
(strcat "\n所选对象的延伸资料如下:\n" (vl-princ-to-string SS))
)
;(if (/= (caadr SS) "ACAD");;;autocad本身的xdata不处理
; (progn
(initget "No Yes")
(setq KEY (getkword "\n要删除延伸资料No/<Yes>: "))
(if (= KEY NIL)
(setq KEY "Yes")
)
(if (= KEY "Yes")
(progn
(entmake (entget SS1))
(command "_.erase" SS1 "")
)
)
;)
;)
(princ)
)

梦断江南 · 发表于 2002-4-17 08:33:35

;(if (/= (caadr SS) "ACAD");;;autocad本身的xdata不处理
什么情况有 “autocad本身的xdata” ？举个例子

再，1。去除xdate直接把 '(-3 子表1 子表2 ...子表n) 删除？好不好？即用(entget SS1)替代(entget SS1 '("*")) 后entmod 或者 erase原来物体后entmake
2。
结果就是把扩展实体数据的第一个应用程序名标识的子表变成：
(-3 ("ABC")
("DEF" (1070 . 3))
)

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

是不是说只要扩展数据里面第一个标识的数据表清除，更新后所有的扩展数据（－3 。。。）都没有了？

cy956 · 发表于 2002-4-17 11:16:51

要杀光最简单办法是提取entget，不加（list “×”），然后entmod就可。
如果只杀某种xdata，只好逐个比较了。

我在R14试，不行。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：一个困绕我很长时间的问题：如何清除一个实体的扩展数据？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

VBA解决方案

回复: [求助]：一个困绕我很长时间的问题：如何清除一个实体的扩展数据？