[求助]：如何去掉EXTENDED DATA（XDATA）

lm7788

EXTENDED DATA（XDATA） 好像只能追加或修改，不能删除。那位大虾有简便办法删除，请不吝赐教！先行谢过！

panzhongw

以下是陈伯雄老师在其书中使用的方法，你可按你的需要修改。
(Defun c:EXD (/ uen uel uxd unn new)
       (While (Not (SetQ uen (EntSel "\n选择一个实体: ")))
              (Alert "没选中任何实体...")
       )
       (SetQ uel (EntGet (Car uen) '("*")))
       (If (Not (SetQ uxd (Cdr (Assoc -3 uel))))
           (Progn (Alert "这个对象没有扩展的数据，程序将结束...")
                  (Exit)
           )
       )
       (SetQ unn 0
             new '()
       )
       (While (SetQ uda (Nth unn uxd))
              (SetQ new (Cons (List (Car uda)) new) ;将XData数据表达替换成仅有应用名的结构
                    unn (1+ unn)
              )
       )
       (SetQ new (SubSt (Cons -3 new) (Assoc -3 uel) uel))
       (EntMod new)
       (PrinC)
)

lm7788

感谢panzhongw 的帮助