[求助]用LISP Vlisp如何删除扩展属性 Xdata

shmily1023

((-1 . <图元名: 7efcef28>) (0 . "LINE") (330 . <图元名: 7efadc10>) (5 .
"17E9D") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (6 .
"Continuous") (100 . "AcDbLine") (10 1.0 1.0 0.0) (11 5.0 5.0 0.0) (210 0.0 0.0
1.0) (-3 ("Test_Application" (1000 . "This is a test for xdata") (1003 . "0")
(1040 . 1.23479e+040) (1041 . 1.23732e+009) (1001 . 32767) (1071 . 32767) (1042
. 10.0) (1010 -2.95 100.0 -20.0) (1011 4.0 401.0 2.79899))))

我想删除图元上的扩展数据 上面红色部分，请问用LISP VLISP如何操作？

BDYCAD

用entget 涵数取有扩展对象的对象然后MAKE一个 [因为(entget name)这样用时涵数返回的DXF组面不带扩展代码], 把原来的对象entdel删去,这个方式可以用来清理有扩展数据的对象

czcxxx

明白了！！！
谢谢！！！！