(XD::Layer:GetUnLock)获得所有未锁定图层

Lispboy

1. ;|
   
2. 获得所有未锁定图层
   
3. 参数：无
   
4. 返回值：表
   
5. |;
   
6. (defun XD::Layer:GetUnLock ( / e layerl locktf obj)
   
7.   (setq obj (xdrx_object_get "layer"))
   
8.   (while (setq e (xdrx_object_next))
   
9.     (setq locktf (xdrx_getentdxf 70))
   
10.     (if (not (= 4 (logand locktf 4)))
    
11.       (setq layerl (cons (car e) layerl))
    
12.     )
    
13.   )
    
14.   (reverse layerl)
    
15. )
    
16. 
    

;|<br /> 获得所有未锁定图层<br /> 参数：无<br /> 返回值：表<br /> |;<br /> (defun XD::Layer:GetUnLock ( / e layerl locktf obj)<br />   (setq obj (xdrx_object_get "layer"))<br />   (while (setq e (xdrx_object_next))<br />     (setq locktf (xdrx_getentdxf 70))<br />     (if (not (= 4 (logand locktf 4)))<br />       (setq layerl (cons (car e) layerl))<br />     )<br />   )<br />   (reverse layerl)<br /> )<br /> <br />

拉契

楼主的这个程序是否是有点问题？