请教一个xy坐标排序lisp问题

yinzhenyu

刚接触lisp，想编一个批量打印程序，将图框按先X后Y的顺序打印。
找到一个通用排序工具，试了一下，打印顺序总是不对。我对下面这句不太明白 ：

2. (if (or (= xory "xy") (= xory "XY"))
3.       (setq coy (+ (cadr (assoc 10 lp)) (caddr (assoc 10 lp))))
4. )

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

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

通用程序如下：

2. ;;将选择的图元安X、Y或X+Y坐标排序 （其中SE为选择集，XORY为X、Y或XY
3. ;;
4. (defun zhy_sort_se (se xory)
5.   (setq newse nil)
6.   (setq n (sslength se))
7.   (setq index 0)
8.   (setq aal '())
9.   (repeat n
10.     (setq name (ssname se index))
11.     (setq lp (entget name))
12.     (if (or (= xory "y") (= xory "Y"))
13.       (setq coy (caddr (assoc 10 lp)))
14.     )
15.     (if (or (= xory "x") (= xory "X"))
16.       (setq coy (cadr (assoc 10 lp)))
17.     )
18.     (if (or (= xory "xy") (= xory "XY"))
19.       (setq coy (+ (cadr (assoc 10 lp)) (caddr (assoc 10 lp))))
20.     )
21.     (setq item (list coy (cdr (assoc 5 lp))))
22.     (setq aal (cons item aal))
23.     (setq index (1+ index))
24.   )
25.   (setq newsort
26.   (vl-sort aal
27.     (function (lambda (e1 e2)
28.          (> (car e1) (car e2))
29.        )
30.     )
31.   )
32.   )
33.   (setq n1 (length newsort))
34.   (setq ind 0)
35.   (repeat n1
36.     (setq ntt (nth ind newsort))
37.     (setq ind (1+ ind))
38.     (setq ty (handent (cadr ntt)))
39.     (if (/= ty nil)
40.       (if (= newse nil)
41. (setq newse (ssadd ty))
42. (setq newse (ssadd ty newse))
43.       )
44.     )
45.   )
46. )

;;将选择的图元安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))       )     )   ) )

weidesign669

请问能否将属性块按照X，Y坐标排序

alin

“X坐标+Y坐标”我想作者的意思是x，Y坐标的和