(SortLine)直线根据坐标排序

;;说明:直线根据坐标排序
;;参数:lst:直线图元表
;;参数:Symbol:升降序：<、>
;;参数:Isx:T：对X轴排序，nil：对Y轴排序
;;返回:排序后的图元表
(defun SortLine(lst Symbol Isx / getptx getpty)
    (defun getptx(ent) (cadr (assoc 10 (entget ent))))
    (defun getpty(ent) (caddr (assoc 10 (entget ent))))
    (if isx
        (vl-sort lst (function (lambda (x y) (Symbol (getptx x) (getptx y)))))
        (vl-sort lst (function (lambda (x y) (Symbol (getpty x) (getpty y)))))
    )
)