用LISP删除 LayerFilters (非-ActiveX)

Free-Lancer

Delete LayerFilters using LISP (non-ActiveX)                                                        by Fenton Webb
  So maybe you want to write an AutoLISP function (not ActiveX) to delete layerFilters.
  With ActiveX (vla-xxx) functions, you can obtain the ACADLAYERS_DICTIONARY dictionary by calling
  (vla-getextensiondictionary <layerscollection>)
  but how can we access ACAD_LAYERFILTERS and delete the layerfilters, using just plain old AutoLISP?
  Here’s how…

2. (defun C:DelLyrFlt ( / tbl lyr xlist xrec filt)
   
3.    (setq tbl (tblnext "LAYER" T)
   
4.             lyr (tblobjname "LAYER" (cdr(assoc 2 tbl)))
   
5.    ) ;setq
   
6.    ;;Find the"ACAD_LAYERFILTERS" xrecord in the extension dictionary of the layer
   
7.    (setq xlist (dictsearch
   
8.                      (cdr (assoc 360 (entget (cdr (assoc 330 (entget lyr))))))
   
9.                      "ACAD_LAYERFILTERS")
   
10.    ) ;setq
    
11.    (if xlist
    
12.       (progn
    
13.          ;;Get the first layer_filter
    
14.          (setq xrec (cdr (assoc -1 xlist))
    
15.                  filt (dictnext xrec t)
    
16.          ) ;setq
    
17.          ;;Remove each layer_filter
    
18.          (while filt
    
19.             (dictremove xrec (cdr (assoc 1 filt)))
    
20.             (setq filt (dictnext xrec t))
    
21.          ) ;while
    
22.          ;;Find the"ACAD_LAYERFILTERS" xrecord
    
23.          (dictremove
    
24.             (cdr (assoc 360 (entget (cdr (assoc 330 (entget lyr))))))
    
25.             "ACAD_LAYERFILTERS"
    
26.          )
    
27.       ) ;progn
    
28.    ) ;if
    
29.    (princ)
    
30. )

(defun C:DelLyrFlt ( / tbl lyr xlist xrec filt)<br />    (setq tbl (tblnext "LAYER" T)<br />             lyr (tblobjname "LAYER" (cdr(assoc 2 tbl)))<br />    ) ;setq<br />    ;;Find the"ACAD_LAYERFILTERS" xrecord in the extension dictionary of the layer<br />    (setq xlist (dictsearch<br />                      (cdr (assoc 360 (entget (cdr (assoc 330 (entget lyr))))))<br />                      "ACAD_LAYERFILTERS")<br />    ) ;setq<br />    (if xlist<br />       (progn<br />          ;;Get the first layer_filter<br />          (setq xrec (cdr (assoc -1 xlist))<br />                  filt (dictnext xrec t)<br />          ) ;setq<br />          ;;Remove each layer_filter<br />          (while filt<br />             (dictremove xrec (cdr (assoc 1 filt)))<br />             (setq filt (dictnext xrec t))<br />          ) ;while<br />          ;;Find the"ACAD_LAYERFILTERS" xrecord<br />          (dictremove<br />             (cdr (assoc 360 (entget (cdr (assoc 330 (entget lyr))))))<br />             "ACAD_LAYERFILTERS"<br />          )<br />       ) ;progn<br />    ) ;if<br />    (princ)<br /> )