(XD::Entity->PickSet)把实体表转为选择集

Lispboy

1. ;|
   
2. 实体表建选择集
   
3. 参数：
   
4.   entl ---  实体表
   
5. 
   
6. 返回值：选择集
   
7. |;
   
8. (defun XD::Entity->PickSet (entl / n ss x)
   
9.   (setq ss (ssadd))
   
10.   (foreach n entl
    
11.     (ssadd n ss)
    
12.   )
    
13.   ss
    
14. )
    
15. 
    

;|<br /> 实体表建选择集<br /> 参数：<br />   entl ---  实体表<br /> <br /> 返回值：选择集<br /> |;<br /> (defun XD::Entity->PickSet (entl / n ss x)<br />   (setq ss (ssadd))<br />   (foreach n entl<br />     (ssadd n ss)<br />   )<br />   ss<br /> )<br /> <br />

GTJ116600

这个思路好，赞一个

renyong119

可惜不懂，好东西都要收藏

cuyongping

谢谢了！呵呵

cuyongping

谢谢了！呵呵

xyp1964

2. (defun List->Pickset (lst / ss s1)
   
3.   (setq ss (ssadd))
   
4.   (foreach s1 lst
   
5.     (if        (= (type s1) 'ENAME)
   
6.       (ssadd s1 ss)
   
7.     )
   
8.   )
   
9.   ss
   
10. )

(defun List->Pickset (lst / ss s1)<br />   (setq ss (ssadd))<br />   (foreach s1 lst<br />     (if        (= (type s1) 'ENAME)<br />       (ssadd s1 ss)<br />     )<br />   )<br />   ss<br /> )

zteykmgscqh

{:soso_e179:}

kkt123

:curse::curse:llllll:curse::curse:

laiz3000

很精简，很实用

zhangjianjie630

这个厉害学习学习