[编程交流] 编辑图层过滤器需要帮助

4

(defun C:FL (/ enm elst i oLay ss)
 (setvar "cmdecho" 0)
 (command "_.undo" "_end")
 (command "_.undo" "_group")
 (if (setq ss (ssget '((-4 . "<OR") (0 . "DIMENSION,TEXT") (6 . "CENTER,HIDDEN,PHANTOM") (-4 . "OR>"))))
   (progn
     (setq oLay (getvar "clayer"))
     (command "_.layer" "_make" "dime" "_ltype" "Continuous" "" "_color" 2 "" "")
     (command "_.layer" "_make" "text" "_ltype" "Continuous" "" "_color" 3 "" "")
     (if (tblobjname "LTYPE" "CENTER")
       (command "_.layer" "_make" "center" "_ltype" "CENTER" "" "_color" 1 "" "")
     )
     (if (tblobjname "LTYPE" "HIDDEN")
       (command "_.layer" "_make" "hidden" "_ltype" "HIDDEN" "" "_color" 3 "" "")
     )
     (if (tblobjname "LTYPE" "PHANTOM")
       (command "_.layer" "_make" "phantom" "_ltype" "PHANTOM" "" "_color" 7 "" "")
     )
     (setvar "clayer" oLay)
     (repeat (setq i (sslength ss))
       (setq enm (ssname ss (setq i (1- i))))
       (setq elst (entget enm))
       (cond
         ((= "DIMENSION" (cdr (assoc 0 elst)))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "dime" "_ltype" "ByLayer" "")
         )
         ((= "TEXT" (cdr (assoc 0 elst)))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "text" "_ltype" "ByLayer" "")
         )
         ((not (assoc 6 elst))
           nil
         )
         ((= "CENTER" (strcase (cdr (assoc 6 elst))))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "center" "_ltype" "ByLayer" "")
         )
         ((= "HIDDEN" (strcase (cdr (assoc 6 elst))))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "hidden" "_ltype" "ByLayer" "")
         )
         ((= "PHANTOM" (strcase (cdr (assoc 6 elst))))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "phantom" "_ltype" "ByLayer" "")
         )
       )
     )
   )
 )
 (command "_.undo" "_end")
 (setvar "cmdecho" 1)
 (princ)
)

(defun C:FL1(/ enm elst i oLay ss)
 (setvar "cmdecho" 0)
 (command "_.undo" "_end")
 (command "_.undo" "_group")
 (if (setq ss (ssget '((-4 . "<OR") (0 . "DIMENSION,TEXT,HATCH,MTEXT") (6 . "CENTER,HIDDEN,PHANTOM,CONTINUOUS,ACAD_ISO03W100") (-4 . "OR>"))))
   (progn
     (setq oLay (getvar "clayer"))
     (command "_.layer" "_make" "dime" "_ltype" "Continuous" "" "_color" 2 "" "")
     (command "_.layer" "_make" "text" "_ltype" "Continuous" "" "_color" 3 "" "")
     (command "_.layer" "_make" "hatch" "_ltype" "Continuous" "" "_color" cyan "" "")
     (if (tblobjname "LTYPE" "CENTER")
       (command "_.layer" "_make" "center" "_ltype" "CENTER" "" "_color" 6 "" "")
     )
     (if (tblobjname "LTYPE" "HIDDEN")
       (command "_.layer" "_make" "hidden" "_ltype" "HIDDEN" "" "_color" 6 "" "")
     )
     (if (tblobjname "LTYPE" "PHANTOM")
       (command "_.layer" "_make" "phantom" "_ltype" "PHANTOM" "" "_color" 7 "" "")
     )
     (if (tblobjname "LTYPE" "CONTINUOUS")
       (command "_.layer" "_make" "continuous" "_ltype" "CONTINUOUS" "" "_color" 1 "" "")
     )
     (if (tblobjname "LTYPE" "ACAD_ISO03W100")
       (command "_.layer" "_make" "Acad_iso03w100" "_ltype" "ACAD_ISO03W100" "" "_color" 6 "" "")
     )
     (setvar "clayer" oLay)
     (repeat (setq i (sslength ss))
       (setq enm (ssname ss (setq i (1- i))))
       (setq elst (entget enm))
       (cond
         ((= "DIMENSION" (cdr (assoc 0 elst)))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "dime" "_ltype" "ByLayer" "")
         )
         ((= "TEXT" (cdr (assoc 0 elst)))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "text" "_ltype" "ByLayer" "")
         )
         ((= "HATCH" (cdr (assoc 0 elst)))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "hatch" "_ltype" "ByLayer" "")
         )
         ((= "MTEXT" (cdr (assoc 0 elst)))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "text" "_ltype" "ByLayer" "")
         )
         ((not (assoc 6 elst))
           nil
         )
         ((= "CENTER" (strcase (cdr (assoc 6 elst))))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "center" "_ltype" "ByLayer" "")
         )
         ((= "HIDDEN" (strcase (cdr (assoc 6 elst))))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "hidden" "_ltype" "ByLayer" "")
         )
         ((= "PHANTOM" (strcase (cdr (assoc 6 elst))))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "phantom" "_ltype" "ByLayer" "")
         )
          ((= "CONTINUOUS" (strcase (cdr (assoc 6 elst))))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "continuous" "_ltype" "ByLayer" "")
         )
         ((= "ACAD_ISO03W100" (strcase (cdr (assoc 6 elst))))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "Acad_iso03w100" "_ltype" "ByLayer" "")
         )
       )
     )
   )
 )
)
 (command "_.undo" "_end")
 (setvar "cmdecho" 1)
 (princ)

          ((= "PHANTOM" (strcase (cdr (assoc 6 elst))))
           (command "_.chprop" enm "" "_color" "ByLayer" "_layer" "phantom" "_ltype" "ByLayer" "")
         )
       )
     )
   )
 )
 (command "_.undo" "_end")
 (setvar "cmdecho" 1)
 (princ)
)

4

"cyan"

12

13