删除选择实体的扩展实体数据（XDATA）

Lisphk

1. (defun DelXdata        (ent app / entlst tmplst)
   
2.   (setq entlst (entget ent app))
   
3.   (foreach memb        (cdr (assoc -3 entlst))
   
4.     (setq tmplst (cons -3 (list (cons (car memb) nil)))
   
5.           entlst (subst tmplst (assoc -3 entlst) entlst)
   
6.           entlst (entmod entlst)
   
7.     )
   
8.   )
   
9. )
   
10. 
    
11. (defun C:delSelXdata (/ curass countr)
    
12.   (setq        curass (ssget "_:L" '((-3 ("*"))))
    
13.         countr 0
    
14.   )
    
15.   (if curass
    
16.     (repeat (sslength curass)
    
17.       (DelXdata (ssname curass countr) '("*"))
    
18.       (setq countr (1+ countr))
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    

(defun DelXdata        (ent app / entlst tmplst)<br />   (setq entlst (entget ent app))<br />   (foreach memb        (cdr (assoc -3 entlst))<br />     (setq tmplst (cons -3 (list (cons (car memb) nil)))<br />           entlst (subst tmplst (assoc -3 entlst) entlst)<br />           entlst (entmod entlst)<br />     )<br />   )<br /> )<br /> <br /> (defun C:delSelXdata (/ curass countr)<br />   (setq        curass (ssget "_:L" '((-3 ("*"))))<br />         countr 0<br />   )<br />   (if curass<br />     (repeat (sslength curass)<br />       (DelXdata (ssname curass countr) '("*"))<br />       (setq countr (1+ countr))<br />     )<br />   )<br />   (princ)<br /> )<br />

yoyoho

学习学习,谢谢楼主分享

liunian0524

感谢楼主分享

sicky111

谢谢分享。