[求助]：请教一个xy坐标排序lisp问题

yinzhenyu

刚接触lisp，想编一个批量打印程序，将图框按先X后Y的顺序打印。

找到一个通用排序工具，试了一下，打印顺序总是不对。我对下面这句不太明白 ：

[php](if (or (= xory "xy") (= xory "XY"))
       (setq coy (+ (cadr (assoc 10 lp)) (caddr (assoc 10 lp))))
  )
[/php]

我不理解“X坐标+Y坐标”后得出什么结果，请指教，谢谢！


通用程序如下：
[php]
;;将选择的图元安X、Y或X+Y坐标排序 （其中SE为选择集，XORY为X、Y或XY
;;
(defun zhy_sort_se (se xory)
   (setq newse nil)
   (setq n (sslength se))
   (setq index 0)
   (setq aal '())
   (repeat n
     (setq name (ssname se index))
     (setq lp (entget name))
     (if (or (= xory "y") (= xory "Y"))
       (setq coy (caddr (assoc 10 lp)))
     )
     (if (or (= xory "x") (= xory "X"))
       (setq coy (cadr (assoc 10 lp)))
     )
     (if (or (= xory "xy") (= xory "XY"))
       (setq coy (+ (cadr (assoc 10 lp)) (caddr (assoc 10 lp))))
     )
     (setq item (list coy (cdr (assoc 5 lp))))
     (setq aal (cons item aal))
     (setq index (1+ index))
   )
   (setq newsort
   (vl-sort aal
     (function (lambda (e1 e2)
          (> (car e1) (car e2))
        )
     )
   )
   )
   (setq n1 (length newsort))
   (setq ind 0)
   (repeat n1
     (setq ntt (nth ind newsort))
     (setq ind (1+ ind))
     (setq ty (handent (cadr ntt)))
     (if (/= ty nil)
       (if (= newse nil)
  (setq newse (ssadd ty))
  (setq newse (ssadd ty newse))
       )
     )
   )
)

[/php]

zml84

原作者的意图当参数“xory”的值是“xy”时，根据（X与Y的代数和的大小）进行排序。

你的需求则应通过建立二维表进行排序解决。

yinzhenyu

请问二维表怎么建立呢？

firstintimate

Y排序：
(vl-sort '((3 5) (2 2) (4 3))
             (function (lambda (e1 e2)
                         (< (cadr e1) (cadr e2)) ) ) )
返回：((2 2) (4 3) (3 5))
X排序：
(vl-sort '((3 5) (2 2) (4 3))
             (function (lambda (e1 e2)
                         (< (car e1) (car e2)) ) ) )

zml84

在尽量做少的改动前提下，根据楼主的要求，对yinzhenyu在1楼提供的代码做了修改。
修改后可以满足纵横排序的要求。
代码如下，请注意注释部分：
[PHP]
(defun zhy_sort_se (se xory)
;;;重点所在
  (if (or (= xory "xy") (= xory "XY"))
    (zhy_sort_se (zhy_sort_se se "X") "Y")

    (progn
      (setq newse nil)
      (setq n (sslength se))
      (setq index 0)
      (setq aal '())
      (repeat n
        (setq name (ssname se index))
        (setq lp (entget name))
        (if (or (= xory "y") (= xory "Y"))
          (setq coy (caddr (assoc 10 lp)))
        )
        (if (or (= xory "x") (= xory "X"))
          (setq coy (cadr (assoc 10 lp)))
        )
;;;注释掉下面内容
;;;        (if (or (= xory "xy") (= xory "XY"))
;;;          (setq coy (+ (cadr (assoc 10 lp)) (caddr (assoc 10 lp))))
;;;        )
        (setq item (list coy (cdr (assoc 5 lp))))
        (setq aal (cons item aal))
        (setq index (1+ index))
      )
      (setq newsort
             (vl-sort aal
                      (function        (lambda        (e1 e2)
                                  (> (car e1) (car e2))
                                )
                      )
             )
      )
      (setq n1 (length newsort))
      (setq ind (1- n1));;;原(setq ind 0)
      (repeat n1
        (setq ntt (nth ind newsort))
        (setq ind (1- ind));;;原(setq ind (1+ ind))
        (setq ty (handent (cadr ntt)))
        (if (/= ty nil)
          (if (= newse nil)
            (setq newse (ssadd ty))
            (setq newse (ssadd ty newse))
          )
        )
      )
    );结束progn
  );结束if
)
[/PHP]
关于函数参数：
比较合理的做法，是应该对传入参数进行有效性判断和格式化。
<br>
例如本例中：
1.应该对参数SE的内容进行识别，看是否是对象选择集；
2.参数xory强制转换为大写或小写，以减少后续判断。

adisonmaster

5楼能否解释一下程序？程序好像有问题吗？

zhynt

这是我早先编的，实践证明效果不理想。