（XD::Layer:GetOff）获得所有关闭图层

Lispboy

1. ;|
   
2. 获得所有关闭图层
   
3. 参数：无
   
4. 返回值：表
   
5. |;
   
6. 
   
7. (defun XD::Layer:GetOff( / e layerl obj onoff)
   
8.    (setq obj (xdrx_object_get "layer"))
   
9.    (while (setq e (xdrx_object_next))
   
10.       (setq onoff (xdrx_getentdxf 62))
    
11.       (if (minusp onoff)
    
12.          (setq layerl (cons (car e) layerl))
    
13.       )
    
14.    )
    
15.    (reverse layerl)
    
16. )
    
17. 
    

;|<br /> 获得所有关闭图层<br /> 参数：无<br /> 返回值：表<br /> |;<br /> <br /> (defun XD::Layer:GetOff( / e layerl obj onoff)<br />    (setq obj (xdrx_object_get "layer"))<br />    (while (setq e (xdrx_object_next))<br />       (setq onoff (xdrx_getentdxf 62))<br />       (if (minusp onoff)<br />          (setq layerl (cons (car e) layerl))<br />       )<br />    )<br />    (reverse layerl)<br /> )<br /> <br />