Topic: Freeze Off Layers Routine

[ronjonp]

I Know I've seen this somewhere.....

Lisp that finds all layers that are turned off and freezes them. Anyone here got it?

Thanks,

Ron

[Keith™]

Well... it leaves them off but it freezes them as well.... Not sure about use with viewports...

Code: [Select]


(defun C:layfrzoff( / lay layname laylist)
  (setq lay (tblnext "layer" t))
  (while lay
    (setq layname (cdr (assoc 2 lay)))
    (if (<(cdr (assoc 62 (tblsearch "layer" layname))) 0)
      (progn
        (setq laylist (entget (tblobjname "layer" (cdr (assoc 2 lay)))))
(entmod (subst (cons 70 1) (assoc 70 laylist) laylist))
      )
    )
    (setq lay (tblnext "layer"))
  )
)


[ronjonp]

Thanks Keith...that worked excellent!

[Keith™]

You are quite welcome...