lisp删除xdata扩展数据

NetBee

在站上找了一下没有找到lisp相关代码段。
这里上一下。

1. (defun nbtf_xdataDEL (e na / elst xdata)
   
2.   (if (and (setq elst (entget e '("*")))
   
3.            (setq xdata (cdr (assoc -3 elst)))
   
4.       )
   
5.     (progn
   
6.       (setq xdata (subst (list na)(assoc na xdata) xdata)
   
7.                elst  (subst (cons -3 xdata) (assoc -3 elst) elst)
   
8.       )
   
9.       (entmod elst)
   
10.     )
    
11.   )
    
12. )
    

(defun nbtf_xdataDEL (e na / elst xdata)<br />   (if (and (setq elst (entget e '("*")))<br />            (setq xdata (cdr (assoc -3 elst)))<br />       )<br />     (progn<br />       (setq xdata (subst (list na)(assoc na xdata) xdata)<br />                elst  (subst (cons -3 xdata) (assoc -3 elst) elst)<br />       )<br />       (entmod elst)<br />     )<br />   )<br /> )<br />

调用测试

1. 
   
2. (nbtf_xdatadel (car(entsel))"TEST")

复制代码

77077

我也不知道对不对。
(entmod (vl-remove-if '(lambda(x) (= (car x) -3)) (entget (car(entsel "选择图元:")) '("*"))))

panliang9

http://bbs.mjtd.com/thread-112857-1-1.html