如何对所选直线排序？

sfjlx

如何对所选直线排序？
比如我在cad中选择了一些直线，如何让这些直线按照坐标的顺序加入选择集？
哪位能帮帮忙，多谢了！

yxp

(setq ttLL (ACET-SS-TO-list (ssget '((0 . "LINE")))))
(setq ttLL (vl_sort ttLL (lambda (e1 e2)(> (car (acet-dxf 10 (entget e1))) (car (acet-dxf 10 (entget e2)))))))

acet-ss-to-list及acet-dxf参见acet函数
vl_sort参见无痕老大的排序

caoyin

;; ▓ (lt:pts-angle-Sort <点集> <角度>)
;; [功能] 根据角度将点集重新排序

;; 测试

(defun c:tt (/ p lst)
  (while (setq p (getpoint "\n拾取:")) (setq lst (cons p lst)))
  (setvar 'osmode 0)
  (apply 'command (cons "_.pline" (lt:pts-angle-Sort lst (getangle "\n角度:"))))
  (command "")
)

(defun lt:pts-angle-Sort (pts ang / pt 0.5pi n p lst1 lst2 dis1 dis2)
  (setq pt (car pts) pts (cdr pts) 0.5pi (/ pi 2))
  (repeat (setq n (length pts))
    (setq n (1- n))
    (if (equal (angle pt (setq p (nth n pts))) ang 0.5pi)
      (setq lst1 (cons p lst1) dis1 (cons (distance pt p) dis1))
      (setq lst2 (cons p lst2) dis2 (cons (distance pt p) dis2))
    )
  )
  (append
    (mapcar '(lambda (x) (nth x lst1)) (vl-sort-i dis1 '>))
    (list pt)
    (mapcar '(lambda (x) (nth x lst2)) (vl-sort-i dis2 '<))
  )
)

sfjlx

太棒了！没想到几行就解决问题了！
我给想复杂了，幸亏到这里问了问！
非常感谢二位！真心的，必须了！