[编程交流] 冻结所有层

( (lambda (/ layer)
   ;;
   ;; (ex) Freeze all layers in drawing using Visual Lisp.
   ;;
   ;; NOTE: This will be slower then other methods i would use.
   ;;            I would not use this in my code.
   ;;
   ;; By: Se7en
   ;; 08.11.10 08:18:00 AM
   ;;
   (vlax-for 
       layer
   (vla-get-layers
     (vla-get-activedocument
       (vlax-get-acad-object)))
       (if (and
      (vlax-get-property layer 'Freeze)
      (not
        (eq
          (vlax-get-property layer 'Name)
          (getvar 'clayer))) )
             (vlax-put-property layer 'Freeze :vlax-true)))) )

(defun c:FreezeAll ( / def )
 ;; © Lee Mac 2010
 
 (while (setq def (tblnext "LAYER" (not def)))
   (
     (lambda ( elist )
       (if elist
         (entupd
           (cdr
             (assoc -1
               (entmod
                 (subst
                   (cons 70
                     (boole 7 1
                       (cdr
                         (assoc 70 elist)
                       )
                     )
                   )
                   (assoc 70 elist) elist
                 )
               )
             )
           )
         )
       )
     )
     (cond
       (
         (eq (getvar 'clayer) (cdr (assoc 2 def))) nil
       )
       (
         (entget
           (tblobjname "LAYER"
             (cdr
               (assoc 2 def)
             )
           )
         )
       )
     )
   )
 )
 (princ)
)