怎么提取表中相同两个坐标之间的坐标

csalh

各位大侠帮帮忙，我这里有一个表((500039.0 299990.0) (500056.0 299987.0) (500053.0 299975.0) (500044.0 299968.0) (500039.0 299990.0) (500056.0 299987.0) (500070.0 299991.0)
(500070.0 299983.0) (500053.0 299975.0) (500056.0 299987.0) (500070.0 299991.0)
(500084.0 299991.0) (500084.0 299968.0) (500069.0 299968.0) (500070.0 299983.0)
(500070.0 299991.0))

我想把其中红色的两个坐标和中间的坐标提成一个表，黄色的提成一个表，绿色的提成一个表，红色的 (500039.0 299990.0) (500056.0 299987.0) (500053.0 299975.0) (500044.0 299968.0) (500039.0 299990.0)   。
黄色的(500056.0 299987.0) (500070.0 299991.0) (500070.0 299983.0) (500053.0 299975.0) (500056.0 299987.0)
绿色的(500070.0 299991.0) (500084.0 299991.0) (500084.0 299968.0) (500069.0 299968.0) (500070.0 299983.0) (500070.0 299991.0)

我应该怎么样做呀，谢谢！！！

ZZXXQQ

最终的结果是什么样的呢？是单个的表，还是分别的表？

ll_j

还有什么其它的条件么，表原本是没有颜色的。
仅仅求两个子表之间的内容，就顺序读过去，遇到第一个子表开始记录，遇到第二个子表结束记录。

倔强的蚂蚁

我有个思路，大概是这样
假设表为（x y 1 2 3 y z)
用member,提取得到 y 以后的表即 （y 1 2 3 y z)
用cdr 去掉第一个 y 得到 （1 2 3 y z)
用reverse 倒置上表得到 （z y 3 2 1)
再用member,提取得到 y 以后的表即 （y 3 2 1)
用cdr去掉第一个 y 以后得到新表（3 2 1）
最后用reverse倒置该表得到最终表（1 2 3）

csalh

ZZXXQQ 发表于 2013-11-21 08:09
最终的结果是什么样的呢？是单个的表，还是分别的表？

分别的三个表，因为我要把坐标提取到text文件内，把这三个表分成三个部分，

llsheng_73

1. (defun xxxx(lst / a b c s)
   
2.   (setq a(car lst)lst(cdr lst) s (list a))
   
3.   (while (/=(vl-princ-to-string(setq b(car lst)))(vl-princ-to-string a))
   
4.     (setq s(append s(list b))lst(cdr lst)))
   
5.   (setq s(append s(list(car lst)))
   
6.   lst(cdr lst)
   
7.   a(car lst)lst(cdr lst) s1 (list a))
   
8.   (while (/=(vl-princ-to-string(setq b(car lst)))(vl-princ-to-string a))
   
9.     (setq s1(append s1(list b))lst(cdr lst)))
   
10.   (setq s1(append s1(list(car lst)))
    
11.   lst(cdr lst)
    
12.   a(car lst)lst(cdr lst) s2 (list a))
    
13.   (while (/=(vl-princ-to-string(setq b(car lst)))(vl-princ-to-string a))
    
14.     (setq s2(append s2(list b))lst(cdr lst)))
    
15.   (setq s2(append s2(list a)))
    
16.   (list s s1 s2)
    
17.   )
    

(defun xxxx(lst / a b c s)<br />   (setq a(car lst)lst(cdr lst) s (list a))<br />   (while (/=(vl-princ-to-string(setq b(car lst)))(vl-princ-to-string a))<br />     (setq s(append s(list b))lst(cdr lst)))<br />   (setq s(append s(list(car lst)))<br />   lst(cdr lst)<br />   a(car lst)lst(cdr lst) s1 (list a))<br />   (while (/=(vl-princ-to-string(setq b(car lst)))(vl-princ-to-string a))<br />     (setq s1(append s1(list b))lst(cdr lst)))<br />   (setq s1(append s1(list(car lst)))<br />   lst(cdr lst)<br />   a(car lst)lst(cdr lst) s2 (list a))<br />   (while (/=(vl-princ-to-string(setq b(car lst)))(vl-princ-to-string a))<br />     (setq s2(append s2(list b))lst(cdr lst)))<br />   (setq s2(append s2(list a)))<br />   (list s s1 s2)<br />   )<br />

;xxxx可以任意改为你喜欢的,表被分成三段返回为一个表(list s s1 s2) s((500039.0 299990.0)...(500039.0 299990.0))s1((500056.0 299987.0)...(500056.0 299987.0))s2((500070.0 299991.0) ...(500070.0 299991.0))
不知道能不能满足楼主需求

nzl1116

2. [code=lisp]
   
3. <BLOCKQUOTE>(defun myfunc (Lst / Lst0 Lst1 var Lst2)
   
4.   (setq Lst0 nil)
   
5.   (while (setq Item (car Lst))
   
6.     (setq Lst1 nil)
   
7.     (if (setq Lst2 (vl-member-if
   
8.        '(lambda (x)
   
9.    (setq var (equal x item))
   
10.    (if (not var)
    
11.      (setq Lst1 (cons x Lst1))
    
12.    )
    
13.    var
    
14.         )
    
15.        (cdr Lst)
    
16.      )
    
17. )
    
18.       (setq Lst  (cdr Lst2)
    
19.      Lst0 (cons (reverse Lst1) Lst0)
    
20.       )
    
21.       (setq Lst (cdr Lst))
    
22.     )
    
23.   )
    
24.   (reverse Lst0)
    
25. )

[code=lisp] <br /> <BLOCKQUOTE>(defun myfunc (Lst / Lst0 Lst1 var Lst2)<br />   (setq Lst0 nil)<br />   (while (setq Item (car Lst))<br />     (setq Lst1 nil)<br />     (if (setq Lst2 (vl-member-if<br />        '(lambda (x)<br />    (setq var (equal x item))<br />    (if (not var)<br />      (setq Lst1 (cons x Lst1))<br />    )<br />    var<br />         )<br />        (cdr Lst)<br />      )<br /> )<br />       (setq Lst  (cdr Lst2)<br />      Lst0 (cons (reverse Lst1) Lst0)<br />       )<br />       (setq Lst (cdr Lst))<br />     )<br />   )<br />   (reverse Lst0)<br /> )

csalh

nzl1116 发表于 2013-11-21 18:52

谢谢了，，

csalh

llsheng_73 发表于 2013-11-21 18:25
不知道能不能满足楼主需求

谢了，我先看看，，