【图层】冻结其他图层

marting

1. (defun c:xdtb_lyrfrozenother (/ 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.                (progn (if (= (getvar "clayer") x)
    
19.                         (setvar "clayer" (car lyrs))
    
20.                       )
    
21.                       (xdrx-layer-setisfrozen x t)
    
22.                )
    
23.                (xdrx-layer-setisfrozen x nil)
    
24.              )
    
25.            )
    
26.           all
    
27.   )
    
28.   (xdrx-entity-redraw
    
29.     (ssget "x" (list (cons 8 (xdrx-string-join lyrs ","))))
    
30.     4
    
31.   )
    
32.   (princ)
    
33. )
    
34. 
    

(defun c:xdtb_lyrfrozenother (/ 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 />                (progn (if (= (getvar "clayer") x)<br />                         (setvar "clayer" (car lyrs))<br />                       )<br />                       (xdrx-layer-setisfrozen x t)<br />                )<br />                (xdrx-layer-setisfrozen 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 />

wysclc

一大早做了个沙发；学习了，

feeling_chin

冻结其他图层 冻结其他图层 冻结其他图层