请教点表按照从左往右，从上到下排序怎么弄?

sbwdx

以下代码来自论坛前辈：
(defun c:tt ( / box e i ss)
(defun ebox (e / pa pb)
         (Vlax-Invoke-Method (Vlax-Ename->Vla-Object e ) 'GetBoundingBox 'pa 'pb )
             (setq pa (trans (vlax-safearray->list pa) 0 1)
                   pb (trans (vlax-safearray->list pb) 0 1)
             )
             (list pa pb)
)
        (setq ss (ssget '((0 . "INSERT"))))
        (repeat (setq i (sslength ss))
                (setq e (ssname ss (setq i (1- i)))
                        box (ebox e)
                )
                (vl-cmdf "rectang" (car box) (cadr box))
        )
)
想请教一下大家， e对象的box 一组坐标点pa pb 是随机排序的，怎么对e对象的一组坐标点pa pb，按照从左往右，从上到下排序后
vl-cmdf  rectang 按照排序后，从左往右，从上到下排序依次绘制矩形,谢谢！

liuhe

2. (defun c:tt (/ box e i ss  )
   
3.   (defun ebox (e / pa pb)
   
4.     (Vlax-Invoke-Method
   
5.       (Vlax-Ename->Vla-Object e)
   
6.       'GetBoundingBox
   
7.       'pa
   
8.       'pb
   
9.     )
   
10.     (setq pa (trans (vlax-safearray->list pa) 0 1)
    
11.           pb (trans (vlax-safearray->list pb) 0 1)
    
12.     )
    
13.     (list pa pb)
    
14.   )
    
15.   (setq thisdrawing (vla-get-activedocument
    
16.                           (vlax-get-acad-object)))
    
17. (vla-startundomark thisdrawing)
    
18. 
    
19. 
    
20. 
    
21.   (setq        ss     (ssget '((0 . "INSERT")))
    
22.         boxlst nil
    
23.         FUZZ 0;;;;坐标误差，相差这么大被认为是一行
    
24.   )
    
25.   (repeat (setq i (sslength ss))
    
26.     (setq e         (ssname ss (setq i (1- i)))
    
27.           box         (ebox e)
    
28.           boxlst (cons box boxlst)
    
29. 
    
30.     )
    
31.   )
    
32.   (setq
    
33.     boxlst (vl-sort
    
34.              boxlst
    
35.              (function (lambda (e1 e2)
    
36.                          (if (equal (cadr (car e1)) (cadr (car e2))FUZZ)
    
37.                            (< (car (car e1)) (car (car e2)))
    
38.                            (> (cadr (car e1)) (cadr (car e2)))          
    
39.                          )
    
40.                        )
    
41.              )
    
42.            )
    
43.   )
    
44. ;;;  (setq i 1)
    
45.   (foreach box boxlst
    
46.     (vl-cmdf "rectang" (car box) (cadr box))
    
47. ;;;    (Make-TEXT (car box) (rtos i 2 0) 0.11)
    
48. ;;;    (SETQ I(1+ I))
    
49.    
    
50.   )
    
51. 
    
52. (vla-endundomark thisdrawing)
    
53. 
    
54. 
    
55. )
    
56. (defun Make-TEXT (pt str Textheigh)
    
57.   (entmakeX
    
58.     (list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 Textheigh))
    
59.   )
    
60. )

(defun c:tt (/ box e i ss  )<br />   (defun ebox (e / pa pb)<br />     (Vlax-Invoke-Method<br />       (Vlax-Ename->Vla-Object e)<br />       'GetBoundingBox<br />       'pa<br />       'pb<br />     )<br />     (setq pa (trans (vlax-safearray->list pa) 0 1)<br />           pb (trans (vlax-safearray->list pb) 0 1)<br />     )<br />     (list pa pb)<br />   )<br />   (setq thisdrawing (vla-get-activedocument <br />                           (vlax-get-acad-object)))<br /> (vla-startundomark thisdrawing)<br /> <br /> <br /> <br />   (setq        ss     (ssget '((0 . "INSERT")))<br />         boxlst nil<br />         FUZZ 0;;;;坐标误差，相差这么大被认为是一行<br />   )<br />   (repeat (setq i (sslength ss))<br />     (setq e         (ssname ss (setq i (1- i)))<br />           box         (ebox e)<br />           boxlst (cons box boxlst)<br /> <br />     )<br />   )<br />   (setq<br />     boxlst (vl-sort<br />              boxlst<br />              (function (lambda (e1 e2)<br />                          (if (equal (cadr (car e1)) (cadr (car e2))FUZZ)<br />                            (< (car (car e1)) (car (car e2)))<br />                            (> (cadr (car e1)) (cadr (car e2)))           <br />                          )<br />                        )<br />              )<br />            )<br />   )<br /> ;;;  (setq i 1)<br />   (foreach box boxlst<br />     (vl-cmdf "rectang" (car box) (cadr box))<br /> ;;;    (Make-TEXT (car box) (rtos i 2 0) 0.11)<br /> ;;;    (SETQ I(1+ I))<br />     <br />   )<br /> <br /> (vla-endundomark thisdrawing)<br /> <br /> <br /> )<br /> (defun Make-TEXT (pt str Textheigh)<br />   (entmakeX<br />     (list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 Textheigh))<br />   )<br /> )

左右优先，上下其次，fuzz用于上下坐标误差内还认为是同一行