直线上的点集，到端点以距离排序，如何实现

zzl9105

如题，以坐标排序时，有时碰到水平或者竖直的线，用vl-sort，实现不了，我想用到端点的距离来排，但不知道怎么写了，请教下高手们！
谢谢了！

Gu_xl

没有排不了序的坐标，给你个万能坐标排序函数！

1. ;|功能：对2d,3d点表排序.
   
2. 用法：(sort-pt 点表 str)
   
3. 如：(sort-pt plst "x")
   
4. 说明:str可以 XYZxyz 6个字的任意组合.
   
5. 大写为从大到小排列，小写为从小到大排列.
   
6. 字符前后说明优先级别的大小，级别大的优先考虑。
   
7. 例如：按坐标x从小到大，y从大到小排序，即坐标按从左到右，从上到下排序, (sort-pt Plist "xY")
   
8. |;
   
9. ;;; (sort-pt 点表 控制字串 ) 对2d,3d点表排序任意排序，字串"xyz"大小写控制，
   
10. ;;;大写为从大到小排列，小写为从小到大排列.
    
11. (defun sort-pt (plst xyz / fun sort-pt-1)
    
12.   (defun sort-pt-1 (plts fun n)
    
13.     (vl-sort plts
    
14.              '(lambda (a b)
    
15.                 (fun (nth n a) (nth n b))
    
16.               ) ;_ 结束lambda
    
17.     ) ;_ 结束vl-sort
    
18.   ) ;_ 结束defun
    
19.   (setq xyz (vl-string->list xyz))
    
20.   (foreach n-xyz (reverse xyz)
    
21.     (if        (< n-xyz 100)
    
22.       (setq fun          >
    
23.             n-xyz (- n-xyz 88)
    
24.             plst  (sort-pt-1 plst fun n-xyz)
    
25.       ) ;_ 结束setq
    
26.       (setq fun          <
    
27.             n-xyz (- n-xyz 120)
    
28.             plst  (sort-pt-1 plst fun n-xyz)
    
29.       ) ;_ 结束setq
    
30.     ) ;_ 结束if
    
31.   ) ;_ 结束foreach
    
32. ) ;_ 结束defun
    

;|功能：对2d,3d点表排序.<br /> 用法：(sort-pt 点表 str)<br /> 如：(sort-pt plst "x")<br /> 说明:str可以 XYZxyz 6个字的任意组合.<br /> 大写为从大到小排列，小写为从小到大排列.<br /> 字符前后说明优先级别的大小，级别大的优先考虑。<br /> 例如：按坐标x从小到大，y从大到小排序，即坐标按从左到右，从上到下排序, (sort-pt Plist "xY")<br /> |;<br /> ;;; (sort-pt 点表 控制字串 ) 对2d,3d点表排序任意排序，字串"xyz"大小写控制，<br /> ;;;大写为从大到小排列，小写为从小到大排列.<br /> (defun sort-pt (plst xyz / fun sort-pt-1)<br />   (defun sort-pt-1 (plts fun n)<br />     (vl-sort plts<br />              '(lambda (a b)<br />                 (fun (nth n a) (nth n b))<br />               ) ;_ 结束lambda<br />     ) ;_ 结束vl-sort<br />   ) ;_ 结束defun<br />   (setq xyz (vl-string->list xyz))<br />   (foreach n-xyz (reverse xyz)<br />     (if        (< n-xyz 100)<br />       (setq fun          ><br />             n-xyz (- n-xyz 88)<br />             plst  (sort-pt-1 plst fun n-xyz)<br />       ) ;_ 结束setq<br />       (setq fun          <<br />             n-xyz (- n-xyz 120)<br />             plst  (sort-pt-1 plst fun n-xyz)<br />       ) ;_ 结束setq<br />     ) ;_ 结束if<br />   ) ;_ 结束foreach<br /> ) ;_ 结束defun<br />

vormittag

如果是沿直线方向排序，我也贴一个代码：

2. (defun sort_pts_online (ptlist linename / ell pts pte returnlist)
   
3.         (setq ell  (entget linename)
   
4.             pts  (cdr (assoc 10 ell))
   
5.             pte (cdr (assoc 11 ell))
   
6.             norm (mapcar (function (lambda (x1 x2) (- x1 x2))) pte pts)
   
7.             returnlist (mapcar (function (lambda (x) (trans x 1 norm))) ptlist)
   
8.             returnlist (vl-sort returnlist (function (lambda (x1 x2) (< (caddr x1) (caddr x2)))))
   
9.             returnlist (mapcar (function (lambda (x) (trans x norm 1))) returnlist)
   
10.         );setq
    
11. )

(defun sort_pts_online (ptlist linename / ell pts pte returnlist)<br />         (setq ell  (entget linename)<br />             pts  (cdr (assoc 10 ell))<br />             pte (cdr (assoc 11 ell))<br />             norm (mapcar (function (lambda (x1 x2) (- x1 x2))) pte pts)<br />             returnlist (mapcar (function (lambda (x) (trans x 1 norm))) ptlist)<br />             returnlist (vl-sort returnlist (function (lambda (x1 x2) (< (caddr x1) (caddr x2)))))<br />             returnlist (mapcar (function (lambda (x) (trans x norm 1))) returnlist)<br />         );setq<br /> )

nxchenjk

都是很好的东西。谢谢奉献。

ljttjl

实现思路：1、求出直线的点集到端点的的所有距离，组成这样形式的点表aa  （（距离1 点坐标1）（距离2 点坐标2）(距离3  点坐标3）......) 。   2、然后，再用vl-sort函数以这样形式排序 (vl-sort aa  '(lambda (s1 s2) (< (car s1) (car s2)) ) )


说明：此 距离*  应为曲线上路线长，不是两点之间的直线距离。

zzl9105

谢谢各位大虾的回帖！！！学习了，呵呵。

czb203

大师级的人物啊 ，学习了 哈哈啊

蔡__洛

  真的都是大师级任务G版威武