(XD::List:MergeItemByNumKey)根据关联表KEY（数字），合并KEY相等（误差控制...

Lispboy

1. ;|
   
2. 根据关联表KEY（数字），合并KEY相等（误差控制）的项
   
3. 参数：
   
4.    lst ---- 关联表
   
5. 返回值：
   
6.    表
   
7. 
   
8. 说明：
   
9. 命令: !a
   
10. ((2.27374e-013 <图元名: 7ef94658>) (87.6227 <图元名: 7ef94660>) (87.6227 <图元名:
    
11. 7ef94640>) (166.181 <图元名: 7ef94648>))
    
12. 
    
13. (XD::List:MergeItemByNumKey a)
    
14. ((2.27374e-013 <图元名: 7ef94658>) (87.6227 <图元名: 7ef94660> <图元名: 7ef94640>)
    
15. (166.181 <图元名: 7ef94648>))
    
16. 
    
17. |;
    
18. (defun XD::List:MergeItemByNumKey (lst / _prec key key1 lst1 new old x)
    
19.   (setq lst (vl-sort lst '(lambda(x y)(< (car x) (car y)))))
    
20.   (setq _prec (car (xdrx_document_Getprec)))
    
21.   (setq lst1 (list (car lst))
    
22.         key (car (car lst1))
    
23.   )
    
24.   (mapcar
    
25.     '(lambda (x)
    
26.        (setq key1 (car x))
    
27.        (if (equal key key1 _prec)
    
28.          (progn
    
29.            (setq old (assoc key lst1)
    
30.                  new (append old (cdr x))
    
31.            )
    
32.            (setq lst1 (subst new old lst1))
    
33.          )
    
34.          (progn
    
35.            (setq lst1 (cons x lst1)
    
36.                  key (car x)
    
37.            )
    
38.          )
    
39.        )
    
40.      )
    
41.     (cdr lst)
    
42.   )
    
43.   (reverse lst1)
    
44. )
    
45. 
    

;|<br /> 根据关联表KEY（数字），合并KEY相等（误差控制）的项<br /> 参数：<br />    lst ---- 关联表<br /> 返回值：<br />    表<br /> <br /> 说明：<br /> 命令: !a<br /> ((2.27374e-013 <图元名: 7ef94658>) (87.6227 <图元名: 7ef94660>) (87.6227 <图元名: <br /> 7ef94640>) (166.181 <图元名: 7ef94648>))<br /> <br /> (XD::List:MergeItemByNumKey a)<br /> ((2.27374e-013 <图元名: 7ef94658>) (87.6227 <图元名: 7ef94660> <图元名: 7ef94640>) <br /> (166.181 <图元名: 7ef94648>))<br /> <br /> |;<br /> (defun XD::List:MergeItemByNumKey (lst / _prec key key1 lst1 new old x)<br />   (setq lst (vl-sort lst '(lambda(x y)(< (car x) (car y)))))<br />   (setq _prec (car (xdrx_document_Getprec)))<br />   (setq lst1 (list (car lst))<br />         key (car (car lst1))<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (setq key1 (car x))<br />        (if (equal key key1 _prec)<br />          (progn<br />            (setq old (assoc key lst1)<br />                  new (append old (cdr x))<br />            )<br />            (setq lst1 (subst new old lst1))<br />          )<br />          (progn<br />            (setq lst1 (cons x lst1)<br />                  key (car x)<br />            )<br />          )<br />        )<br />      )<br />     (cdr lst)<br />   )<br />   (reverse lst1)<br /> )<br /> <br />

梦断江南

这个什么情况下需要用到？

Lispboy

梦断江南 发表于 2013-7-2 23:49
这个什么情况下需要用到？

http://bbs.xdcad.net/thread-669165-1-1.html


实体排序，误差控制的时候用。