[LISP]关于排序的问题，清高手指点

xiaolu1998

先对x坐标，然后对y和z

sihan

.............................................

LONGXIN

我先吃饭，一会儿再给你写一个例子，但不知道是不你所要的

xiaolu1998

就是从文件中读出坐标值，然后再按x,排序，再按y排序z 排序

LONGXIN

不好意思，昨晚有事没有时间写了，现在帖上

无痕

排序写的太复杂了。秋风写过一个可参考


我自己的不知道贴过没有

LONGXIN

无痕发表于2005-5-15 0:37:00排序写的太复杂了。秋风写过一个可参考 我自己的不知道贴过没有

楼上的帖出来看看

xiaolu1998

不胜感激

无痕

  
转贴一个秋枫的点表按照xyz排序的程序

2. Sort_and_Write_pList :见附件
3. (defun Sort_and_Write_pList (fname plist / fp pt)
4.    ;; sort plist first
5.    (setq plist (vl-sort plist
6.                  '(lambda (p1 p2)
7.          (cond ((< (car p1) (car p2)) T)
8.        ((and (= (car p1) (car p2))
9.                    (< (cadr p1) (cadr p2))
10.          )
11.          T
12.        )
13.        ((and (= (car p1) (car p2))
14.                    (= (cadr p1) (cadr p2))
15.                    (< (caddr p1) (caddr p2))
16.          )
17.          T
18.        )
19.        (T nil)
20.          )
21.      )
22.              )
23.    )

Sort_and_Write_pList :见附件 (defun Sort_and_Write_pList (fname plist / fp pt)    ;; sort plist first    (setq plist (vl-sort plist                  '(lambda (p1 p2)          (cond ((< (car p1) (car p2)) T)        ((and (= (car p1) (car p2))                    (< (cadr p1) (cadr p2))          )          T        )        ((and (= (car p1) (car p2))                    (= (cadr p1) (cadr p2))                    (< (caddr p1) (caddr p2))          )          T        )        (T nil)          )      )              )    )

LONGXIN

无痕发表于2005-5-15 20:57:00<TD style=\"FONT-SIZE: 9pt; LINE-HEIGH...

1. 原来还有vl-sort这么一个函数，我原是不知道的，所以就用lisp编了一个，是一种通用的冒泡法的排序思路。我查阅了一下资料，vl-sort会删除重复项，但使用vl-sort-i可以保留重复项，要看程序想要实现什么样的功能。

复制代码