如何取得如图多线段的顶点坐标

gdslqs

如图多段线，求A~F点坐标

用如下代码取得了该多段线所有顶点的坐标，如何把这些坐标和位置A~F对应上啊，特别是A点坐标怎么定啊？
(defun c:tt( )

  (setq en (car (entsel "\n选择多义线:")))
  (setvar "osmode" 0)
  (setq elist (entget en))
  (setq n 0)
  (repeat (length elist)
    (setq tmp (car (nth n elist)))
    (cond
      ((= tmp 10) (setq li10 (append (list (nth n elist)) li10)))
      )
    (setq n (1+ n))
  )
);end defun c:tt

snddd2000

对得到的点表按x和y坐标排序