求写个图层关闭代码？？？？

lpl

要求：可以选择多个对象图层保留显示，未被选择的其它图层进行关闭.............效果如下图

52CAD

关闭其它层

2. <blockquote>(defun c:layc(/ q)
   
3.    (prompt "\n请选择要保留的图层,要显示所有图层请直接按右键：")
   
4.   (setq ss (ssget))
   
5.   (if (/= ss nil)
   
6.     (progn
   
7.       (setq num (sslength ss))
   
8.       (setq n 0)
   
9.       (command "layer" "off" "*" "y" "on" "" "")
   
10.       (repeat num
    
11.         (setq entlist (entget (ssname ss n)))
    
12.         (setq lname (cdr (assoc 8 entlist)))
    
13.         (command "layer" "on" lname "")
    
14.         (setq n (+ n 1))
    
15.       )
    
16.       (prompt (itoa num))
    
17.     )
    
18.     (command "layer" "on" "*" "")
    
19.   )(princ)
    
20. )
    

<blockquote>(defun c:layc(/ q)<br />    (prompt "\n请选择要保留的图层,要显示所有图层请直接按右键：")<br />   (setq ss (ssget))<br />   (if (/= ss nil)<br />     (progn<br />       (setq num (sslength ss))<br />       (setq n 0)<br />       (command "layer" "off" "*" "y" "on" "" "")<br />       (repeat num<br />         (setq entlist (entget (ssname ss n)))<br />         (setq lname (cdr (assoc 8 entlist)))<br />         (command "layer" "on" lname "")<br />         (setq n (+ n 1))<br />       )<br />       (prompt (itoa num))<br />     )<br />     (command "layer" "on" "*" "")<br />   )(princ)<br /> )<br />

tianyi1230

阿甘的图层工具，试试，基本的都有了。
http://bbs.mjtd.com/thread-94056-1-1.html

香田里浪人

;AD ***** 只显示选定的图层
(defun c:AD(/ x)
        (setvar "cmdecho" 0)
        (setq x (entsel "\n 选择只显示一个层:"))
        (command "layer" "set" (cdr(assoc 8 (entget(car x)))) "")
        (command "layer" "unlock" (cdr(assoc 8 (entget(car x)))) "")
        (command "layer" "off" "*" "" "")
        (setvar "cmdecho" 1)
)
;---------------------------------------------
(defun c:fa();;显示全部图层

        (command "layer" "t" "*" "on" "*" "u" "*" "")
        (command "layer" "off" "0paperf" ""))
;;QW *****显示选定的多个图层
(defun C:qw( / oce a1 a2 a3 i a4 a5)

  (graphscr)
  (setq oce (getvar "cmdecho"))
  (setvar "cmdecho" 0)


  (prompt "\n选择不需要对象（层）:")
  (setq a1(ssget))
  (if a1
    (progn
      (setq a4 (ssname a1 0))
      (setq a5 (cdr (assoc 8 (entget a4))))
      (command "LAYER" "S" a5 "")
      (command "LAYER" "OFF" "*" "" "")
      (setq i 0)
      (repeat (sslength a1)
        (setq a3 (ssname a1 i))
        (setq a2 (cdr (assoc 8 (entget a3))))

        (command "LAYER" "ON" a2"")
        (setq i (1+ i))
      )
      ;(princ a2)
    )
    (princ " Nothing selected.")
  );end if a1
  (setvar "cmdecho" oce)
  (princ)
)

dingtiedt

格式/图层里，都有这些操作，把他们设置成快捷键，也蛮方便的

tumu2008323

隔离不就可以了吗？