( (lambda ( layername
/ layer lsylst props off freeze lock
) ;;
;; (ex) Toggle layer's settings in drawing using Auto Lisp.
;;
;; By: Se7en
;; 07.28.10 08:30:00 AM
;;
;; NOTES:
;; 70 - Standard flags (bit-coded values):
;; 1 = Layer is frozen; otherwise layer is thawed
;; ...
;; 4 = Layer is locked
;; ...
;; 62 - Color number (if negative, layer is off)
;;
;; Or if your feeling adventrous you can combine frozen and locked
;; (1+4=5). something like...
;;
;; EXAMPLE:
;; (setq laylst (entget (tblobjname "LAYER" "<YOUR LAYER NAME HERE>")))
;; (entmod
;; (subst
;; (cons 70 (boole 6 (cdr (assoc 70 laylst)) 5))
;; (assoc 70 laylst)
;; laylst))
;;
freeze 1
lock 4
)
)
"0" ;; just for example. make this a named procedure to use in your library.
)