[求助]：谁能帮我写个快速只关闭谋层、只保留某层、显示所有层的小工具？！

xiaozuchen1

请问晓东工具箱里的关闭图层的命令名是什么？
显示所有层 是 XDTB_LayerOn
只保留某层   是 slayres
只关闭某层  就看不出是什么名字了
请哪位大哥告知我！！谢谢！！

xiaozuchen1

谁能帮我写个快速只关闭谋层、只保留某层、显示所有层的小工具？！最好输入命令后直接点所需操作的图层就行，不要选择图层之后还要回车确认。这样比较麻烦，晓东工具箱里的这些功能就是要回车确认，比较浪费时间，建议晓东对其进行修改！

xiaozuchen1

晓东工具箱里有三个很好用的命令：只关闭谋层、只保留某层、显示所有层。最好输入命令后直接点所需操作的图层就行，不要选择图层之后还要回车确认。这样比较麻烦，不方便，建议晓东对其进行修改！谢谢！

eachy

层是可以多选的，当然要回车

xiaozuchen1

最初由 eachy 发布
[B]层是可以多选的，当然要回车 [/B]

我知道是可以多选，就 比如快速关闭某层这个命令吧，输入命令回车后，就进入选择状态，这是，我选一个图层，得回车一下它才关闭，再选下一个图层，又得回车才关闭，当然了，也可以一起选好所有我认为要关闭的层再回车关闭，这就意味着要一下看准所有要关闭的层。可想想看，要是点哪个图层哪个图层就立马关闭该多好呀！

LMCC

;****************************************************只显示被选对象所在层
(DEFUN C:lc (/ ES EN EL A)
(princ "请选择对象，未被选中的对象所在的层将被关闭")
(setq ES (ssget) A 0 EN "" EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
  FL (strcat EN "," FL) EL (cdr EL)) )
(command "LAYER" "off" "*" "y" "on" (eval FL) "")
(princ))
;****************************************************快速改对象的层
(DEFUN C:LQ()
(princ "请选择要改变层的对象\n")
(setq ss (ssget))
(if (and ss (> (sslength ss) 0))
(progn
(setq ent (entsel "\n请选择目标层上的对象:"))
(if ent (setq la (cdr(assoc 8 (entget (car ent)))))
(setq la (getvar "clayer"))
)
(command ".chprop" ss "" "layer" la "")
)
)
(princ)
)
;****************************************************解锁图层
(defun C:LKk(/ ES EN EL A)
       (princ "请选择要解锁的图层上的对象")
       (setq ES (ssget) A 0 EN "" EL nil FL nil)
       (while (/= EN nil)
       (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
       (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
       (repeat (- A 2)
       (setq EN (cdr (assoc ' 8 (entget (car EL))))
       FL (strcat EN "," FL) EL (cdr EL)) )
       (command "LAYER" "U" (eval FL) "")
(princ))
;****************************************************关闭所选物体所在的层
(DEFUN  C:OL ()
  (setvar "cmdecho" 0)
  (prompt"\n请选择要关闭的图层上的对象")
  (setq ss (ssget))
  (if (and ss (sslength ss) 0)
    (progn
     (setq ct 0 len (sslength ss) cl (getvar "clayer"))
     (command ".layer")
     (while (< ct len)
         (setq la (cdr (assoc 8 (entget (ssname ss ct)))))
         (if (/= cl la)(command "off" la)
                       (progn (prompt "\n你选择的层:")
                              (prompt la)
                              (prompt " 是当前层，不能关闭")
                       )  ;end of progn
         )                ;end of if
         (if (= old nil)(setq OLD la)(setq OLD (strcat OLD "," la)))
         (setq ct (1+ ct))
       )                  ;end of while
       (command"")
     )                  ;end of progn
)                      ;end of if
(princ)
(setvar "cmdecho" 0) (prin1)
)
;****************************************************冻结所选物体所在的层
(defun C:FFL (/ ES EN EL A)
(princ "请选择要冻结的图层上的对象.")
(setq ES (ssget) A 0 EN "" EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
  FL (strcat EN "," FL) EL (cdr EL)) )
(command "LAYER" "F" (eval FL) "")
(princ))
;****************************************************锁定所选物体所在的层
(defun C:KLl (/ ES EN EL A)
(princ "请选择要加锁的图层上的对象.")
(setq ES (ssget) A 0 EN "" EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
  FL (strcat EN "," FL) EL (cdr EL)) )
(command "LAYER" "LO" (eval FL) "")
(princ))

shwbsj

好像FULL安装就有吧

li809

ET工具就行了

xiaozuchen1

谢谢大家，可能否让我不用回车？

zlh0

谢谢6楼这位朋友

lh869

我这还有一个，大家看看是不是更简单啊！！
(defun c:111 ()          ;关闭所有图层
     (command"-layer" "off" "*" "y" "")
)
(defun c:222 ()          ;重新打开所有图层
     (command"-layer" "on" "*" "y" "")
)
(defun C:333 (/ ES EN EL A)
  (princ "请选择对象，未被选中的对象所在的层将被关闭")
  (setq        ES (ssget)
        A  0
        EN ""
        EL nil
        FL nil
  )
  (while (/= EN nil)
    (setq EN (ssname ES A)
          EL (cons EN EL)
          A  (1+ A)
    )
  )
  (setq        EL (cdr EL)
        FL (cdr (assoc '8 (entget (car EL))))
        EL (cdr EL)
  )
  (repeat (- A 2)
    (setq EN (cdr (assoc '8 (entget (car EL))))
          FL (strcat EN "," FL)
          EL (cdr EL)
    )
  )
  (command "LAYER" "off" "*" "y" "on" (eval FL) "")
  (princ)
)

agang198

狂顶11楼。
重新打开所有图层对应的代码应该为：(command "-layer" "on" "*" "")  （cad2004)

li809

１１楼的好用一点

jdjp

到什么时候我才能下载呀?一步步的引?开始是要满三天,现在又要爱心币!!!