【图层】关闭其他图层

marting

1. (defun c:xdtb_lyroffother (/ e lyrs #layer all)
   
2.   (setq lyrs nil)
   
3.   (while
   
4.     (and (setq
   
5.            e (car (xdrx-entsel "\n拾取要保留的（其他关闭)图层<退出>:"))
   
6.          )
   
7.          (xdrx-getpropertyvalue e "layer" nil)
   
8.          (xdrx-layer-setislocked #layer nil)
   
9.          (progn
   
10.            (or (member #layer lyrs) (setq lyrs (cons #layer lyrs)))
    
11.          )
    
12.          (xdrx-entity-redraw (ssget "x" (list (cons 8 #layer))) 3)
    
13.     )
    
14.   )
    
15.   (setq all (xd::layer:getall))
    
16.   (mapcar '(lambda (x)
    
17.              (if (not (member x lyrs))
    
18.                (xdrx-layer-setisoff x t)
    
19.                (xdrx-layer-setisoff x nil)
    
20.              )
    
21.            )
    
22.           all
    
23.   )
    
24.   (xdrx-entity-redraw
    
25.     (ssget "x" (list (cons 8 (xdrx-string-join lyrs ","))))
    
26.     4
    
27.   )
    
28.   (princ)
    
29. )
    
30. 
    

(defun c:xdtb_lyroffother (/ e lyrs #layer all)<br />   (setq lyrs nil)<br />   (while<br />     (and (setq<br />            e (car (xdrx-entsel "\n拾取要保留的（其他关闭)图层<退出>:"))<br />          )<br />          (xdrx-getpropertyvalue e "layer" nil)<br />          (xdrx-layer-setislocked #layer nil)<br />          (progn<br />            (or (member #layer lyrs) (setq lyrs (cons #layer lyrs)))<br />          )<br />          (xdrx-entity-redraw (ssget "x" (list (cons 8 #layer))) 3)<br />     )<br />   )<br />   (setq all (xd::layer:getall))<br />   (mapcar '(lambda (x)<br />              (if (not (member x lyrs))<br />                (xdrx-layer-setisoff x t)<br />                (xdrx-layer-setisoff x nil)<br />              )<br />            )<br />           all<br />   )<br />   (xdrx-entity-redraw<br />     (ssget "x" (list (cons 8 (xdrx-string-join lyrs ","))))<br />     4<br />   )<br />   (princ)<br /> )<br /> <br />

LXH刚开始

这么的好插件竞然没有人发现，在做装配图和工艺图以及编程时经常用到的功能，谢谢！

哈哈_Atb8Z

这么的好插件竞然没有人发现，在做装配图和工艺图以及编程时经常用到的功能，谢谢！

feeling_chin

关闭其他图层 关闭其他图层 关闭其他图层

feeling_chin

关闭其他图层 关闭其他图层 关闭其他图层