将lays表中的所有图层解冻、解锁、打开

;;;将lys表中的所有图层解冻、解锁、打开 - edata出品
(defun c:tt()
  (slayon '("wall" "DJ灯具"))
)
(defun slayon (lays / n obj)
  (vl-load-com)
  (if (listp lays)
    (foreach n lays
      (if (and (tblsearch "layer" n) (setq obj(vlax-ename->vla-object(tblobjname "layer" n))))
        (progn
          (vla-put-lock obj :vlax-false)
          (vla-put-layeron obj :vlax-true)
          (if (= (vla-get-Freeze obj) :vlax-True)
            (vla-put-Freeze obj :vlax-false))
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of foreach
  ) ;_ end of if
) ;_ end of defun