请教接近长度图元名分别成表

st788796

434939575 发表于 2016-6-13 10:06
还没有解决，这个有点难，没事我自己慢慢弄，辛苦了！

给你个通用函数
（sortlist lst '(1.6 2.0 3.5)）
第一个参数是子表以数为首元素的表，如（（10.1 e1）（11 e2）…）
第二个参数是误差表
返回值为表

newer

帮ST贴上来，他现在网络不方便

1. (defun sortlist (lst fuzzs / nl)
   
2.   (setq lst (vl-sort lst (function (lambda(a b)
   
3.                         (<(car a)(car b))
   
4.                         )))
   
5.                fuzzs (vl-sort fuzzs (function <))
   
6.         )
   
7.         (foreach a lst
   
8.          (if nl
   
9.            (if (< (- (car a) (caar nl)) (car fuzzs))
   
10.              (setq nl (cons (cons a (car nl))(cdr nl)))
    
11.              (setq fuzzs (cdr fuzzs)
    
12.                  nl (cons (list a) nl)
    
13.              )
    
14.            )
    
15.            (setq nl (list(list (car a))))
    
16.          )
    
17.         )
    
18.         nl
    
19. )
    

(defun sortlist (lst fuzzs / nl)<br />   (setq lst (vl-sort lst (function (lambda(a b) <br />                         (<(car a)(car b))<br />                         )))<br />                fuzzs (vl-sort fuzzs (function <))<br />         )<br />         (foreach a lst<br />          (if nl<br />            (if (< (- (car a) (caar nl)) (car fuzzs))<br />              (setq nl (cons (cons a (car nl))(cdr nl)))<br />              (setq fuzzs (cdr fuzzs)<br />                  nl (cons (list a) nl)<br />              )<br />            )<br />            (setq nl (list(list (car a))))<br />          )<br />         )<br />         nl<br /> )<br />

434939575

再次感谢各位朋友的帮助！