[编程交流] 图层特性过滤器

(defun getlayerfilter ( filter / dict )
 (if
   (and
     (setq dict
       (cdr
         (assoc 360
           (entget
             (cdr
               (assoc 330
                 (entget (tblobjname "LAYER" "0"))
               )
             )
           )
         )
       )
     )
     (setq dict
       (cdr
         (assoc -1
           (dictsearch dict "ACAD_LAYERFILTERS")
         )
       )
     )
   )
   (dictsearch dict filter)
 )
)

(getlayerfilter "YourLayerFilter")

(defun test ( filter / dict xdict )
 (if
   (and
     (setq xdict
       (cdr
         (assoc 360
           (entget
             (cdr
               (assoc 330
                 (entget (tblobjname "LAYER" "0"))
               )
             )
           )
         )
       )
     )
     (or
       (setq dict
         (cdr
           (assoc -1
             (dictsearch xdict "ACAD_LAYERFILTERS")
           )
         )
       )
       (setq dict
         (dictadd xdict "ACAD_LAYERFILTERS"
           (entmakex
            '(
               (0 . "DICTIONARY")
               (100 . "AcDbDictionary")
               (280 . 0)
               (281 . 1)
             )
           )
         )
       )
     )
     (not (dictsearch dict filter))
   )
   (dictadd dict filter
     (entmakex
       (list
         (cons 0 "XRECORD")
         (cons 100 "AcDbXrecord")
         (cons 280 1)
         (cons 1 filter)
         (cons 1 "#*")
         (cons 1 "3")
         (cons 1 "*")
         (cons 70 768)
         (cons 1 "*")
         (cons 1 "*")
         (list -3
           (list "ACAD"
             (cons 1000 "( NAME== "#*" ) and ( COLOR== "3" ) and LOCKED == "FALSE"")
           )
         )
       )
     )
   )
 )
)

(test "MyFilter")

 
;; Layer Filter XRecord Data
The following list details the various DXF codes and values contained in the Xrecord:
1 Name of Filter
1 Layer Name
1 Color
1 Linetype
70 (Please refer further below)
1 Lineweight
1 PlotStyle
The 70 DXF code can contain one of the following numbers or an addition of them:
ON/OFF
On 1
Off 3
FREEZE/THAW
Freeze 4
Thaw 12
CURRENT VPORT
Freeze 16
Thaw 48
NEW VPORT
Freeze 64
Thaw 192
LOCK/UNLOCK
Lock 256
UnLock 768
PLOT
Plot 1024
Don't Plot 3072 

6