[原创]：超级好用的图层关闭/打开程序

hnfsf

可以将选中的图层显亮，让你知道自己选中了哪些实体。
H－－－将选中的图层关闭
LO－－—将所有图层打开、解冻。。。

(defun re_draw (lyr / ss i ll en)
  (setq ss (ssget "x" (list (cons 8 lyr))))
  (setq ll (sslength ss)
        i -1)
  (repeat ll
    (setq en (ssname ss (setq i (1+ i))))
    (redraw en 3)
  )
  lyr_ll
)

(defun unre_draw (lya / ss i ll en)
  (setq nn (length lyr_ll)
        n 0)
  (foreach lya lyr_ll
  (setq ss (ssget "x" (list (cons 8 lya))))
  (setq ll (sslength ss) i -1)
    (repeat ll
      (setq en (ssname ss (setq i (1+ i))))
      (redraw en 4)
    )
  )
)

;;程序作用:将选中的图层关闭或冻结
;;命令: c:H
(defun c:H (/ p x OorF exprt YorN clay lyr)
  (if (setq
        x (entsel
            "\n请选取要关闭(Off)或冻结(Freeze)其图层的物体 <退出>: "
          )
      )
    (progn
      (setq exprt (getvar "expert")
            clay  (getvar "clayer")
      )
      (setq p (cdr (assoc 8 (entget (car x)))))
      (setq lyr p) (re_draw lyr)
      (initget "Off Freeze")
      (setq OorF (getkword "\nF-冻结/ O-关闭/ <关闭>: "))
      (if (and (= p clay) (/= OorF "Freeze"))
        (progn (initget "Yes")
               (setq YorN (getkword "\n请确认当前图层将被关闭? <N> "))
        )
      )
      (if (and (= p clay) (= OorF "Freeze"))
        (princ "\n不能冻结当前图层. ")
      )
      (if (or (and (= p clay) (= YorN "Yes") (/= OorF "Freeze"))
              (/= p clay)
          )
        (progn (setvar "expert" 1)
               (if (= OorF "Freeze")
                 (command ".layer" "Freeze" p "")
                 (command ".layer" "Off" p "")
               )
               (setvar "expert" exprt)
        )
      )
    )
  )
  (princ)
)

;;程序作用:解除所有图层锁定，关闭和冻结
;;命令: c:LO
(defun c:LO()
        (setvar "cmdecho" 0)
        (command ".layer" "on" "*" "")
        (command ".layer" "u" "*" "")
        (command ".layer" "t" "*" "")
        (setvar "cmdecho" 1)
        (princ)
)

hnfsf

下载在这里：

lywxf

这个功能et里面不都有了吗

hnfsf

ET里面是有，这算ET里面的改进版，不同之处：可以将选中的图层显亮，让你知道自己选中了哪些实体。

陌生人

可怜啊，兄弟你辛辛苦苦写了程序还做了演示。发了这么久还没得加币。
有的帖子针对个不算超难的cad操作做了个演示，不但得币，而且得分。不知道版主如何衡量加币所需的技术含量的。

支持你一下。
另外觉得 re_draw  和 unre_draw 可以合并一下。这是我程序中调用亮显实体的一段，仅供参考：

2. 
   
3. ;;配套程序(x_draw ss key)
   
4. (defun x_draw (ss key / n e)
   
5.   (if (= 'PICKSET (type ss))
   
6.     (repeat (setq n (sslength ss))
   
7.       (setq n (1- n)
   
8.             e (ssname ss n))
   
9.       (redraw e key)
   
10.     )
    
11.   )
    
12. )
    

<br /> ;;配套程序(x_draw ss key)<br /> (defun x_draw (ss key / n e)<br />   (if (= 'PICKSET (type ss))<br />     (repeat (setq n (sslength ss))<br />       (setq n (1- n)<br />             e (ssname ss n))<br />       (redraw e key)<br />     )<br />   )<br /> )<br />

亮显时候调用 (x_draw ss 3) ,回显(x_draw ss 4)

chhm

完全安装的r14具备这个功能，layon,layoff,laylck,layfrz等。

jbqiu

为什么不能自动加载那？？？？每次要手动