关于点表跟一个点对比找出所有最近的点

kwok

今天看论坛好多点表排序，想再请教一下:
假如框选了一批直线或多段线，求出它们的起点和终点的所有点表ptlst，然后另外再指定一个点pt，想通过这个pt点来对比点表ptlst求出每根线离这pt点最近的点，然后设为线的起点，请问要怎么写，求个代码学习学习，谢谢！

XDSoft

只说不好理解，你画个图贴上来吧。前后的对比。包括测试的DWG文件。

Free-Lancer

排序仅是一种“说法”，要根据具体情况了运用，对LZ的的要求可以叫排序，其实对仅有两点的情况下用距离判断更简单，不一定要 Sort
下面的例子是对 Line 的一个修改，用了 entmod ， Pline的原理也一样，只是Pline的倒置要另外写过函数，论坛上有（entmod 或者 Put-Coordinates 方法都可以）
还可以用cad的Reverse命令 （2014有，不知道其他版本），用命令的话，先收集实体构造选择集，最后用 reverse 对选择集操作
[pcode=lisp,true](defun revln (lst pt)
  (mapcar '(lambda (x)
      (setq p1 (caar x)
     p2 (cadar x)
     l  (cadr x)
      )
      (if (> (distance p1 pt) (distance p2 pt))
        (progn
   (setq l (subst (cons 10 p2)
    (assoc 10 l)
    l
    )
         l (subst (cons 11 p1)
    (assoc 11 l)
    l
    )
   )
   (entmod l)
        )
      )
    )
   lst
  )
)
;;test
(defun c:tt ()
  (setvar "nomutt" 1)
  (vl-catch-all-apply
    '(lambda (/ ss sl i e lst)
       (princ "\n选择 Line....")
       (if (and (setq ss (ssget '((0 . "LINE"))))
  (setvar "nomutt" 0)
  (setq p (getpoint "\n基点: "))
    )
  (progn
    (setq sl (sslength ss)
   i  -1
    )
    (repeat sl
      (setq e   (ssname ss (setq i (1+ i)))
     lst (cons (list (list (vlax-curve-getstartpoint e)
      (vlax-curve-getendpoint e)
       )
       (entget e)
        )
        lst
         )
      )
    )
    (revln lst p)
  )
       )
     )
  )
  (setvar "nomutt" 0)
  (princ)
)[/pcode]

wowan1314

直接用VL-SORT函数对点表排序。
(setq PTLST (vl-sort PTLST '(lambda (A B) (< (distance PT A) (distance PT B)))))
排序完 那么表内第一个元素就是距离PT最近的点。 （不知道上面写对了没，反正不是第一个就是最后一个）

eachy

只有两个点的时候再用vl-sort就教条了，也不高效，lz这个题目可以实质就一个比较距离，而且只有两个点，起点 终点组成表，仅判断一次即可，不满足起点近的直接交换，不用再绕弯去排序

kwok

谢谢楼上各位.