如何将直线XY坐标按线段长短排序输出

coolpoom

如图所示，如何将直线XY坐标按线段长短排序输出到文本？

mj0000

刚好函数库里有，给你个，自己修改下，加上基点到表里面，再输出到文本
;|;________________________________________________________________________________________
[■函数] (Sort_PtsByDist Pt0 Pts Mode)
[功  能] 指定点Pt0距离坐标点集中各个点的远近排序（点表远近排序） -- 按距离Pt0点的远近进行排序
[参  数] Pt0 --- 排序的基点，起始点
         Pts --- 要排序的点表
         Mode -- 排序方式。为T时 -- 从近到远排序，为nil时 -- 从远到近排序
[返回值] 排序后的表
[测  试] (Sort_PtsByDist (getpoint "\n基点: ")  (list (getpoint "\n点1: ") (getpoint "\n点2: ") (getpoint "\n点3: ") (getpoint "\n点4: ")) T)
[函数内容] |;

2. (defun Sort_PtsByDist (Pt0 Pts Mode / a b DIST I PT_Lst Pt1)
   
3.   (setq i -1
   
4.         PT_Lst '()
   
5.   )
   
6.   (while (setq Pt1 (nth (setq i (1+ i)) Pts))
   
7.     (setq dist   (distance Pt0 Pt1) ;返回距离Pt0点的距离
   
8.           PT_Lst (cons (list dist Pt1) PT_Lst) ;返回格式：'((长度1 pt1) (长度2 pt2) ...)
   
9.     )
   
10.   )
    
11.   (if PT_Lst
    
12.     (progn
    
13.       (if Mode
    
14.         (setq PT_Lst (vl-sort PT_Lst '(lambda (a b) (< (car a) (car b))))) ;按距离排序 -- 从近到远
    
15.         (setq PT_Lst (vl-sort PT_Lst '(lambda (a b) (> (car a) (car b))))) ;按距离排序 -- 从远到近
    
16.       )
    
17.       (setq PT_Lst (mapcar 'cadr PT_Lst)) ;删除距离数值
    
18.       ;;(princ "\n-->> 排序后的表 = ")
    
19.     )
    
20.   )
    
21.   PT_Lst
    
22. )

(defun Sort_PtsByDist (Pt0 Pts Mode / a b DIST I PT_Lst Pt1)<br />   (setq i -1<br />         PT_Lst '()<br />   )<br />   (while (setq Pt1 (nth (setq i (1+ i)) Pts))<br />     (setq dist   (distance Pt0 Pt1) ;返回距离Pt0点的距离<br />           PT_Lst (cons (list dist Pt1) PT_Lst) ;返回格式：'((长度1 pt1) (长度2 pt2) ...)<br />     )<br />   )<br />   (if PT_Lst<br />     (progn<br />       (if Mode<br />         (setq PT_Lst (vl-sort PT_Lst '(lambda (a b) (< (car a) (car b))))) ;按距离排序 -- 从近到远<br />         (setq PT_Lst (vl-sort PT_Lst '(lambda (a b) (> (car a) (car b))))) ;按距离排序 -- 从远到近<br />       )<br />       (setq PT_Lst (mapcar 'cadr PT_Lst)) ;删除距离数值<br />       ;;(princ "\n-->> 排序后的表 = ")<br />     )<br />   )<br />   PT_Lst<br /> )

自贡黄明儒

可以(cons 距离 点）,这样以“距离”来排序，然后去掉距离，就是点了。

xyp1964

coolpoom

mj0000 发表于 2022-11-27 11:36
刚好函数库里有，给你个，自己修改下，加上基点到表里面，再输出到文本
;|;_____________________________ ...

2.       (repeat (sslength ss)
   
3.         (setq en  (ssname ss i)
   
4.               ent (entget en)
   
5.               pt  (cdr (assoc 10 ent))
   
6.               pt_1  (cdr (assoc 11 ent))
   
7.               dist (distance pt pt_1)
   
8.               j 0)
   
9.         (setq biao (append biao (list (list dist pt pt_1))))
   
10.         (setq biao (vl-sort biao '(lambda (a b) (< (car a) (car b)))))
    
11.         (setq i  (1+ i))
    
12.         );repeat

      (repeat (sslength ss)<br />         (setq en  (ssname ss i)<br />               ent (entget en)<br />               pt  (cdr (assoc 10 ent))<br />               pt_1  (cdr (assoc 11 ent))<br />               dist (distance pt pt_1)<br />               j 0)<br />         (setq biao (append biao (list (list dist pt pt_1))))<br />         (setq biao (vl-sort biao '(lambda (a b) (< (car a) (car b)))))<br />         (setq i  (1+ i))<br />         );repeat

谢谢，看了你代码里的距离提醒了我，我在表内直接加入了起点到终点的距离可以达到效果了。现在又遇到另一个问题：当有线条起点不是P0时得到的表就不正确了，比如有条直线是起点是P3，终点是P0

mj0000

你加入起点的位置，加个判断，判断直线10和11组码坐标，距离P0点的距离就可以了