如何对点表进行排序

xyzjint_cn

我有一点表，是一个矩形的四个顶点的表，PLIST(（x1 ,y1)(x2,y2)(x3,y3)(x4,y4))


现要对PLIST按（左下角，右上角，左上角，右下角）进行排序，自己编了一个，总是出错，有时将所有的X坐标设置为同一个值，有时将所有的Y坐标设为同一个，有时竟将一个X坐标赋给了Y坐标，


请各位指教。

meflying

(defun sort(pt_lst)
(setq pt_lst (vl-sort pt_lst '(lambda(e1 e2) (< (car e1) (car e2)))))
(setq pt_lst (vl-sort pt_lst '(lambda(e1 e2) (< (cadr e1) (cadr e2)))))
(list (car pt_lst) (last pt_lst) (caddr pt_lst) (cadr pt_lst))
)

yxp

在R14下如何用扩展函数(vl-sort ...)?

xyzjint_cn

我经常用AUTOLISP进行编程，不知如何操作。