Strip XData from the Layer Table using LISP

st788796

Strip XData from the Layer Table using LISPBy Fenton Webb
Issue
How do I remove the XDATA that is attached to my Layer Table ?

Solution
The following AutoLISP code will remove all the XData attached to the Layer Table:

1. (defun StripLayerXdata () (setq aLayerLst (tblnext "LAYER" T))
   
2. (while aLayerLst
   
3.    (setq aLayerName (cdr (assoc '2 aLayerLst)))
   
4.    (setq aLayerELst (entget (tblobjname "LAYER" aLayerName) '("*")))
   
5.    (if (setq xdata (assoc '-3 aLayerELst))
   
6.      (progn
   
7.     (setq newLayerLst (subst (cons (car xdata) (list (list (caadr xdata))))
   
8. xdata aLayerELst))
   
9.     (entmod newLayerLst)
   
10.      )
    
11.    )
    
12.    (setq aLayerLst (tblnext "LAYER"))
    
13. )
    
14. (princ)
    
15. )
    
16. (vl-doc-export 'StripLayerXdata)
    
17. (princ "\nStripLayerXdata loaded, type (StripLayerXdata) to run.")
    
18. (princ)
    

(defun StripLayerXdata () (setq aLayerLst (tblnext "LAYER" T))<br /> (while aLayerLst<br />    (setq aLayerName (cdr (assoc '2 aLayerLst)))<br />    (setq aLayerELst (entget (tblobjname "LAYER" aLayerName) '("*")))<br />    (if (setq xdata (assoc '-3 aLayerELst))<br />      (progn<br />     (setq newLayerLst (subst (cons (car xdata) (list (list (caadr xdata))))<br /> xdata aLayerELst))<br />     (entmod newLayerLst)<br />      )<br />    )<br />    (setq aLayerLst (tblnext "LAYER"))<br /> )<br /> (princ)<br /> )<br /> (vl-doc-export 'StripLayerXdata)<br /> (princ "\nStripLayerXdata loaded, type (StripLayerXdata) to run.")<br /> (princ)<br />