点表排序按G版思路重编程序后继续提问，附码求助

kele99kele

因为G版的函数库有点大，而且对cad版本的版本有要求，我自编的一个小程序功能比较简单，根据G版提供程序的思路，我做了一个转换用户坐标系再排序的程序，但是测试中困难重重，请再帮我看看问题出在什么地方，不胜感激

2. ;输入原始点，原始点排序，第一第二个点决定用户坐标系的原点及x轴方向
   
3. (defun c:tt ()
   
4.   (setq lst (append (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint))))
   
5.   (setq p1 (car lst))
   
6.   (setq p2 (car (cdr lst)))
   
7.   ;;点自上而下，自左而右排序
   
8.   (setq lst1 (vl-sort lst '(lambda (a b) (if (equal (cadr a)(cadr b) 1e-3)(< (car a) (car b)) (> (cadr a)(cadr b))))))
   
9.   ;;点自左而右 自上而下排序
   
10.   (setq lst2 (vl-sort lst '(lambda (a b) (if (equal (car a)(car b) 1e-3)(> (cadr a) (cadr b)) (< (car a)(car b))))))
    
11.   
    
12. )
    
13. ;做连线
    
14. (defun c:bb1 ()
    
15.   (setq lsttemp lst1)
    
16.   (repeat (- (length lsttemp) 1)
    
17.     (progn
    
18.       (setq p3 (car lsttemp))
    
19.       (setq p4 (car (cdr lsttemp)))
    
20.       (command "line" p3 p4 "")
    
21.       (setq lsttemp (cdr lsttemp))
    
22.     )
    
23.   )  
    
24. )
    
25. (defun c:bb2 ()
    
26.   (setq lsttemp2 lst2)
    
27.   (repeat (- (length lsttemp2) 1)
    
28.     (progn
    
29.       (setq p3 (car lsttemp2))
    
30.       (setq p4 (car (cdr lsttemp2)))
    
31.       (command "line" p3 p4 "")
    
32.       (setq lsttemp (cdr lsttemp2))
    
33.     )
    
34.   )
    
35. )
    
36. ;转坐标系排序
    
37. (defun c:zz ()
    
38.   (command "ucs" "w")
    
39.   (command "ucs" p1 p2 "")
    
40.   (setq lstzz '())
    
41.   (setq lsttemp3 lst)
    
42.   ;lstzz为转系后的坐标
    
43.   (repeat (length lsttemp3)
    
44.     (setq pt3 (trans (car lsttemp3) 0  1))
    
45.     (setq lsttemp3 (cdr lsttemp3))
    
46.     (setq lstzz (cons pt3 lstzz))   
    
47.   )
    
48.   ;;点自上而下，自左而右排序
    
49.   (setq lst1 (vl-sort lstzz '(lambda (a b) (if (equal (cadr a)(cadr b) 1e-3)(< (car a) (car b)) (> (cadr a)(cadr b))))))
    
50.   ;;点自左而右 自上而下排序
    
51.   (setq lst2 (vl-sort lstzz '(lambda (a b) (if (equal (car a)(car b) 1e-3)(> (cadr a) (cadr b)) (< (car a)(car b))))))
    
52.   (command "ucs" "w")
    
53.   (setq lsttemp3 lstzz)
    
54.   (setq lstzz '())
    
55.   ;lstzz为排好序后转会坐标系的表
    
56.   (repeat (length lsttemp3)
    
57.     (setq pt3 (trans (car lsttemp3) 1  0))      
    
58.     (setq lsttemp3 (cdr lsttemp3))      
    
59.     (setq lstzz (cons pt3 lstzz))
    
60.   )
    
61. )

;输入原始点，原始点排序，第一第二个点决定用户坐标系的原点及x轴方向<br /> (defun c:tt ()<br />   (setq lst (append (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint)) (list (getpoint))))<br />   (setq p1 (car lst))<br />   (setq p2 (car (cdr lst)))<br />   ;;点自上而下，自左而右排序<br />   (setq lst1 (vl-sort lst '(lambda (a b) (if (equal (cadr a)(cadr b) 1e-3)(< (car a) (car b)) (> (cadr a)(cadr b))))))<br />   ;;点自左而右 自上而下排序<br />   (setq lst2 (vl-sort lst '(lambda (a b) (if (equal (car a)(car b) 1e-3)(> (cadr a) (cadr b)) (< (car a)(car b))))))<br />   <br /> )<br /> ;做连线<br /> (defun c:bb1 ()<br />   (setq lsttemp lst1)<br />   (repeat (- (length lsttemp) 1)<br />     (progn<br />       (setq p3 (car lsttemp))<br />       (setq p4 (car (cdr lsttemp)))<br />       (command "line" p3 p4 "")<br />       (setq lsttemp (cdr lsttemp))<br />     )<br />   )  <br /> )<br /> (defun c:bb2 ()<br />   (setq lsttemp2 lst2)<br />   (repeat (- (length lsttemp2) 1)<br />     (progn<br />       (setq p3 (car lsttemp2))<br />       (setq p4 (car (cdr lsttemp2)))<br />       (command "line" p3 p4 "")<br />       (setq lsttemp (cdr lsttemp2))<br />     )<br />   )<br /> )<br /> ;转坐标系排序<br /> (defun c:zz ()<br />   (command "ucs" "w")<br />   (command "ucs" p1 p2 "")<br />   (setq lstzz '())<br />   (setq lsttemp3 lst)<br />   ;lstzz为转系后的坐标<br />   (repeat (length lsttemp3)<br />     (setq pt3 (trans (car lsttemp3) 0  1))<br />     (setq lsttemp3 (cdr lsttemp3))<br />     (setq lstzz (cons pt3 lstzz))    <br />   )<br />   ;;点自上而下，自左而右排序<br />   (setq lst1 (vl-sort lstzz '(lambda (a b) (if (equal (cadr a)(cadr b) 1e-3)(< (car a) (car b)) (> (cadr a)(cadr b))))))<br />   ;;点自左而右 自上而下排序<br />   (setq lst2 (vl-sort lstzz '(lambda (a b) (if (equal (car a)(car b) 1e-3)(> (cadr a) (cadr b)) (< (car a)(car b))))))<br />   (command "ucs" "w")<br />   (setq lsttemp3 lstzz)<br />   (setq lstzz '())<br />   ;lstzz为排好序后转会坐标系的表<br />   (repeat (length lsttemp3)<br />     (setq pt3 (trans (car lsttemp3) 1  0))      <br />     (setq lsttemp3 (cdr lsttemp3))      <br />     (setq lstzz (cons pt3 lstzz))<br />   )<br /> )

；bb1是上下排序的连线，bb2是左右排序的连线，生成的线条那叫一个乱啊，排序不成功，单页找不到原因出在哪里