如何去掉扩展数据

jdhszh

有哪位大虾知道怎样把图元的扩展数据去掉，包括注册的应用名

wzz1968

把-3组码以后的值全部变为空

bbo

;| 删除实体扩展数据单个项目.--ok--by 狂刀.2004.10
实例:
(xd-remove e "xx")
|;
(defun xd-remove (e app)
  (entmod (list (cons -1 e)(list -3 (list app))))
)

 ;| 删除实体扩展数据单个或多个项目.--ok--by 狂刀.2004.10
实例:
(xd-xremove e "xx")
(xd-xremove e '("xx" "xd"))
|;
(defun xd-xremove (e apps)
  (if(not(listp apps))(setq apps(list apps)))
  (entmod (list (cons -1 e)(list -3 (mapcar 'list apps))))
)

 ;; 删除实体所有扩展数据项目.--ok--by 狂刀.2004.10
;; 实例: (xd-clean e)
(defun xd-clean (e)
  (entmod (list (cons -1 e)(list -3 (mapcar 'list (mapcar 'car (cdr(assoc -3 (entget e '("*")))))))))
)
;;或:
(xd-xremove e (mapcar 'car (cdr(list -3 (entget e '("*"))))))

jdhszh

谢谢大侠

004

这么好的题目和程序,还是回帖顶起吧.