求助：怎样删除扩展信息

liu22737

我尝试了下面的方法，结果不行

(entmod(vl-remove (assoc -3 (entget  ent (list "*"))) (entget ent (list "*"))))

王咣生

(defun c:test ()
  (setq e (car (entsel)))
  (setq es (entget e))
  (setq es1 (entget e '("*")))
  (setq app (caadr (assoc -3 es1)))
  (if app
    (progn
      (setq xd (list -3 (list app)))
      (setq es (append es (list xd)))
      (entmod es)
    )
  );if
)

先读出扩展数据的应用程序名,然后由该应用程序名构建个不包括数据项子表的表,

再与(entget e)的表相连,然后entmod,也就是用空的表刷新原来的表

liu22737

多谢二楼高手指点。