[LISP程序]：点排序LSP，帮忙看一下

dhxf

(defun bx() ;;
  (setq kk 0 ss-mm '() ss-m (list (nth 0 ss-z1)))
  (repeat (length ss-z1)

  (if (=
      (car (nth (1+ kk) ss-z1))
      (car (nth  kk ss-z1))
      )
   
      (setq ss-m (cons (nth (1+ kk) ss-z1) ss-m))
      (setq ss-m (reverse ss-m)
            ss-mm (cons ss-m ss-mm)
            ss-m  (list (nth (1+ kk) ss-z1))
            )
      );;if
    (setq kk (1+ kk))
    );repeat
    )

！
ss-z1
((6097.45 3018.36 0.0) (6097.45 1073.64 0.0) (8426.71 3018.36 0.0) (8426.71
1073.64 0.0))

需要得到结果ss-mm
(((8426.71 1073.64 0.0) (6097.45 1073.64 0.0)) ((8426.71 3018.36 0.0)
(6097.45 3018.36 0.0)))
;;;;
实际得到
(((8426.71 1073.64 0.0)) ((6097.45 1073.64 0.0)) ((8426.71 3018.36 0.0))
((6097.45 3018.36 0.0)))

帮忙看一下问题出在哪儿？谢谢

125740513

试试修改为(未测试)：
(defun bx() ;;
(setq kk 0 ss-mm '() ss-m (nth 0 ss-z1))  ;;delete list
(repeat (length ss-z1)

  (if (=
         (car (nth (1+ kk) ss-z1))
         (car (nth kk ss-z1))
       )

       (setq ss-m (cons (nth (1+ kk) ss-z1) ss-m))
       (setq ss-m (reverse ss-m)
             ss-mm (cons ss-m ss-mm)
             ss-m (nth (1+ kk) ss-z1)    ;;delete list
       )
   );;if
(setq kk (1+ kk))
);repeat
)

dhxf

谢谢回答，；
找到问题了，ss-z1没有按照原来排列，
将CAR 改成CADR即可，