(XD::Layer:GetFrozen)获得所有冻结图层

Lispboy

1. ;|
   
2. 获得所有冻结图层
   
3. 参数：无
   
4. 返回值：表
   
5. |;
   
6. (defun XD::Layer:GetFrozen ( / 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 (= 1 (logand locktf 1))
    
11.       (setq layerl (cons (car e) layerl))
    
12.     )
    
13.   )
    
14.   (reverse layerl)
    
15. )
    
16. 
    

;|<br /> 获得所有冻结图层<br /> 参数：无<br /> 返回值：表<br /> |;<br /> (defun XD::Layer:GetFrozen ( / 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 (= 1 (logand locktf 1))<br />       (setq layerl (cons (car e) layerl))<br />     )<br />   )<br />   (reverse layerl)<br /> )<br /> <br />

清风明月10

太好了，我最喜欢这一类普通适用的自定义函数了，谢谢楼主

eachy

清风明月10 发表于 2013-7-12 08:25
太好了，我最喜欢这一类普通适用的自定义函数了，谢谢楼主

要 xdrxapi 支持的{:soso_e100:}