再次请求支援，表Y值相同合并

434939575

2. (defun c:tt ()
   
3.   (setq a '(0 0  0))
   
4.   (setq b '(10 0 0))
   
5.   (setq c '(220 20  0))
   
6.   ;(setq li (list a b c))
   
7. 
   
8. )
   
9. ;希望结果  (((0 0  0)(10 0 0))(220 20  0))

(defun c:tt ()<br />   (setq a '(0 0  0))<br />   (setq b '(10 0 0))<br />   (setq c '(220 20  0))<br />   ;(setq li (list a b c))<br /> <br /> )<br /> ;希望结果  (((0 0  0)(10 0 0))(220 20  0))

y值相同表连接，没办法，只能求教了。

434939575

大师，结果没有变化，就是按总表的顺序。把Y值相同的合并为一个表.只管Y值。

cable2004

2. (defun c:tt ()
   
3.   (setq a '(0 0  0))
   
4.   (setq b '(10 2 0))
   
5.   (setq c '(220 20  0))
   
6.   (setq li (list a b c '(120 20  0) '(320 20  0) '(420 20  0) '(40 2 0) '(30 2 0) '(110 2 0) '(10 0  0) '(20 0 0) '(30 0 0) '(40 0 0)))
   
7.   (setq aaa (sort-same-y li))
   
8.   (princ）
   
9. )
   
10. 
    
11. ;;;(((220 20 0) (120 20 0) (320 20 0) (420 20 0))
    
12. ;;;  ((10 2 0) (40 2 0) (30 2 0) (110 2 0))
    
13. ;;;  ((0 0 0) (10 0 0) (20 0 0) (30 0 0) (40 0 0)))
    
14. 
    
15. (defun sort-same-y (l / lst l1 a)
    
16.    (while l
    
17.      (setq a   (car l)
    
18.      l   (cdr l)
    
19.            l1  (vl-remove-if '(lambda (e) (/= (cadr e)(cadr a)) ) l)
    
20.      lst (cons (cons a l1) lst)
    
21.      l1 nil
    
22.      l  (vl-remove-if '(lambda (e) (= (cadr e)(cadr a)) ) l)
    
23.      ))
    
24.   lst)

(defun c:tt ()<br />   (setq a '(0 0  0))<br />   (setq b '(10 2 0))<br />   (setq c '(220 20  0))<br />   (setq li (list a b c '(120 20  0) '(320 20  0) '(420 20  0) '(40 2 0) '(30 2 0) '(110 2 0) '(10 0  0) '(20 0 0) '(30 0 0) '(40 0 0)))<br />   (setq aaa (sort-same-y li))<br />   (princ）<br /> )<br /> <br /> ;;;(((220 20 0) (120 20 0) (320 20 0) (420 20 0))<br /> ;;;  ((10 2 0) (40 2 0) (30 2 0) (110 2 0))<br /> ;;;  ((0 0 0) (10 0 0) (20 0 0) (30 0 0) (40 0 0)))<br /> <br /> (defun sort-same-y (l / lst l1 a)<br />    (while l<br />      (setq a   (car l)<br />      l   (cdr l)<br />            l1  (vl-remove-if '(lambda (e) (/= (cadr e)(cadr a)) ) l)<br />      lst (cons (cons a l1) lst)<br />      l1 nil<br />      l  (vl-remove-if '(lambda (e) (= (cadr e)(cadr a)) ) l)<br />      ))<br />   lst)

是不是这个意思

434939575

cable2004 发表于 2015-8-3 12:36
是不是这个意思

这个还请您看一下，能运行出结果，提示：应用程序错误: 参数类型错误，高级的我玩不转

434939575

测试((-144.259 -1.22465e-015 0.0) (-105.59 0.0 0.0) (-125.031 3.15913e-015 0.0) (-144.259 10.0 0.0) (-125.031 10.0 0.0) (-105.59 10.0 0.0) (-105.59 20.0 0.0) (-144.259 20.0 0.0) (-125.031 20.0 0.0)) 返回:(((-105.59 20.0 0.0) (-144.259 20.0 0.0) (-125.031 20.0 0.0)) ((-105.59 10.0 0.0)) ((-144.259 10.0 0.0) (-125.031 10.0 0.0)) ((-125.031 3.15913e-015 0.0)) ((-105.59 0.0 0.0)) ((-144.259 -1.22465e-015 0.0)))有点点问题。

434939575

多谢版主指点！