自动打开或关闭画层

蝙蝠mmx

怎样利用ＬＩＳＰ自动打开或关闭某一个画层，请教一下各位高手，谢谢！

琴剑江山_10184

(defun c:fv( / fv)
  (while (setq en (entsel "\n选取要关闭的图层:"));不能关闭当前层
  (command "_.layoff" en "")
    );while
  (princ)
  )
(defun c:ta()
  (princ "\n打开所有图层\n")
  (command "_.layon")
  (princ)
  )
(defun c:as( / en)
  (setq en (entsel "\n选取要单独打开的图层:"))
  (command "_.LAYISO" en)
  (princ)
  )

香田里浪人

论坛里已经有了，仔细赵