删除关闭、冻结图层的所有对象，并打开和解冻图层

marting

1. (defun c:xdtb_lyreot (/ lyrs i lyr)
   
2.   (defun XD::Layer:GetBy70 (key tf / e layerl obj locktf)
   
3.     (setq obj (xdrx_object_get "layer"))
   
4.     (while (setq e (xdrx_object_next))
   
5.       (setq locktf (xdrx_getentdxf 70))
   
6.       (if tf
   
7.         (progn
   
8.           (and (or (and (= key 0) (= locktf 0))
   
9.                    (and (/= locktf 0) (= locktf (logand locktf key)))
   
10.                )
    
11.                (setq layerl (cons (car e) layerl))
    
12.           )
    
13.         )
    
14.         (progn
    
15.           (and
    
16.             (not (or (and (= key 0) (= locktf 0))
    
17.                      (and (/= locktf 0) (= locktf (logand locktf key)))
    
18.                  )
    
19.             )
    
20.             (setq layerl (cons (car e) layerl))
    
21.           )
    
22.         )
    
23.       )
    
24.     )
    
25.     (reverse layerl)
    
26.   )
    
27.   (xdrx-begin)
    
28.   (xdrx-prompt "\n**删除所有冻结和关闭图层上的所有物体**")
    
29.   (if (setq lyrs (xd::layer:getby70 1 t)
    
30.             lyrs (append lyrs (XD::Layer:GetOff))
    
31.       )
    
32.     (progn
    
33.       (setq i 0)
    
34.       (mapcar
    
35.         '(lambda (x)
    
36.            (if (setq lyr (tblobjname "layer" x))
    
37.              (progn (xdrx-setpropertyvalue lyr "off" nil "frozen" nil)
    
38.                     (xdrx-entity-delete (ssget "x" (list (cons 8 x))))
    
39.                     (setq i (1+ i))
    
40.              )
    
41.            )
    
42.          )
    
43.         lyrs
    
44.       )
    
45.     )
    
46.   )
    
47.   (xdrx-prompt "\n>>处理了 " (length lyrs) "个图层.")  (xdrx-end)
    
48.   (princ)
    
49. )
    
50. 
    
51. 
    

(defun c:xdtb_lyreot (/ lyrs i lyr)<br />   (defun XD::Layer:GetBy70 (key tf / e layerl obj locktf)<br />     (setq obj (xdrx_object_get "layer"))<br />     (while (setq e (xdrx_object_next))<br />       (setq locktf (xdrx_getentdxf 70))<br />       (if tf<br />         (progn<br />           (and (or (and (= key 0) (= locktf 0))<br />                    (and (/= locktf 0) (= locktf (logand locktf key)))<br />                )<br />                (setq layerl (cons (car e) layerl))<br />           )<br />         )<br />         (progn<br />           (and<br />             (not (or (and (= key 0) (= locktf 0))<br />                      (and (/= locktf 0) (= locktf (logand locktf key)))<br />                  )<br />             )<br />             (setq layerl (cons (car e) layerl))<br />           )<br />         )<br />       )<br />     )<br />     (reverse layerl)<br />   )<br />   (xdrx-begin)<br />   (xdrx-prompt "\n**删除所有冻结和关闭图层上的所有物体**")<br />   (if (setq lyrs (xd::layer:getby70 1 t)<br />             lyrs (append lyrs (XD::Layer:GetOff))<br />       )<br />     (progn<br />       (setq i 0)<br />       (mapcar<br />         '(lambda (x)<br />            (if (setq lyr (tblobjname "layer" x))<br />              (progn (xdrx-setpropertyvalue lyr "off" nil "frozen" nil)<br />                     (xdrx-entity-delete (ssget "x" (list (cons 8 x))))<br />                     (setq i (1+ i))<br />              )<br />            )<br />          )<br />         lyrs<br />       )<br />     )<br />   )<br />   (xdrx-prompt "\n>>处理了 " (length lyrs) "个图层.")  (xdrx-end)<br />   (princ)<br /> )<br /> <br /> <br />

feeling_chin

删除关闭、冻结图层的所有对象，并打开和解冻图层