XD::List:CreateByProperty 根据属性创建关联表

newer

1. ;|
   
2. 将选择集或者实体表按指定属性创建关联表
   
3. 参数： lst  --- 实体表 或者 选择集
   
4.        att  --- 实体的某个属性,比如 color , layer, area等等
   
5. 返回值： 关联表
   
6. 例子：
   
7. 
   
8. 命令: (setq a (XD::LIST:CREATEBYPROPERTY "area" (ssget)))
   
9. 选择对象: 指定对角点: 找到 4 个
   
10. 选择对象:
    
11. ((33789.5 <图元名: -16a990>) (18200.0 <图元名: -16a998>) (26020.6 <图元名: -16a9a0>)
    
12. (33789.5 <图元名: -16a9a8>))
    
13. |;
    
14. (defun XD::List:CreateByProperty (att lst / tf val x)
    
15.   (setq tf (type lst))
    
16.   (cond
    
17.     ((= tf 'PICKSET)
    
18.       (setq lst (xdrx_pickset->ents lst))
    
19.     )
    
20.   )
    
21.   (mapcar
    
22.     '(lambda (x)
    
23.        (if (setq val (xdrx_getpropertyvalue x att))
    
24.          (list val x)
    
25.        )
    
26.      )
    
27.     lst
    
28.   )
    
29. )
    
30. 
    

;|<br /> 将选择集或者实体表按指定属性创建关联表<br /> 参数： lst  --- 实体表 或者 选择集<br />        att  --- 实体的某个属性,比如 color , layer, area等等<br /> 返回值： 关联表<br /> 例子：<br /> <br /> 命令: (setq a (XD::LIST:CREATEBYPROPERTY "area" (ssget)))<br /> 选择对象: 指定对角点: 找到 4 个<br /> 选择对象:<br /> ((33789.5 <图元名: -16a990>) (18200.0 <图元名: -16a998>) (26020.6 <图元名: -16a9a0>) <br /> (33789.5 <图元名: -16a9a8>))<br /> |;<br /> (defun XD::List:CreateByProperty (att lst / tf val x)<br />   (setq tf (type lst))<br />   (cond<br />     ((= tf 'PICKSET)<br />       (setq lst (xdrx_pickset->ents lst))<br />     )<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (if (setq val (xdrx_getpropertyvalue x att))<br />          (list val x)<br />        )<br />      )<br />     lst<br />   )<br /> )<br /> <br />

Free-Lancer

大多数情况不止一个属性，用append可以加入多属性

newer

Free-Lancer 发表于 2014-10-24 12:27
大多数情况不止一个属性，用append可以加入多属性

这种表主要是临时构造的，根据主属性然后排序，分组什么的操作，没必要一起弄那么多属性，需要什么的时候，随时构造什么的表就行。

Free-Lancer

newer 发表于 2014-10-24 13:10
这种表主要是临时构造的，根据主属性然后排序，分组什么的操作，没必要一起弄那么多属性，需要什么的时候 ...

分组不一定是单一属性，可能多个属性组合到一起来分组

wzjck01

学习，学习。