求助图元表排序问题，如何实现双向排序[已解决]

a117034423

1. (defun Sortenlst (objLst)
   
2.   (mapcar
   
3.     '(lambda (i) (nth i objLst))
   
4.     (vl-sort-i
   
5.       (mapcar '(lambda (obj)
   
6.                  (apply 'mapcar (cons 'min (vl-remove nil (mapcar  '(lambda (x) (if (= (car x) 10) (cdr x))) (entget obj)))))) objLst)
   
7.       '(lambda (a b)
   
8.         (if (equal (car a) (car b) 1e-3) ; Equal x.
   
9.           (if (equal (cadr a) (cadr b) 1e-3) ;equal y
   
10.           (< (car a) (car b))
    
11.           (< (cadr a) (cadr b)))
    
12.           (< (car a) (car b))
    
13. )
    
14. 
    
15.       )
    
16.     )
    
17.   )
    
18. )
    

(defun Sortenlst (objLst)<br />   (mapcar<br />     '(lambda (i) (nth i objLst))<br />     (vl-sort-i<br />       (mapcar '(lambda (obj)<br />                  (apply 'mapcar (cons 'min (vl-remove nil (mapcar  '(lambda (x) (if (= (car x) 10) (cdr x))) (entget obj)))))) objLst)<br />       '(lambda (a b)<br />         (if (equal (car a) (car b) 1e-3) ; Equal x.<br />           (if (equal (cadr a) (cadr b) 1e-3) ;equal y<br />           (< (car a) (car b))<br />           (< (cadr a) (cadr b)))<br />           (< (car a) (car b))<br /> )<br /> <br />       )<br />     )<br />   )<br /> )<br />

代码借用了Lisphk的排序函数，如何实现XY的双向排序，X相等按Y排，Y相等按X排，整体顺序按X排
想不明白判定条件了

Lisphk

去看下 开源函数库论坛的
xd::pickset:tablesort
xd::list:groupbyindex

在去看下插件论坛的那个 排版 插件

如果你静下来，仔细去看函数库论坛的每个函数，理解他们，绝对帮助很大
然后去看 插件论坛 的插件源码

marting

• (XD::Pickset:TableSort)基于行、列的（支持UCS)的实体任意排序函数
  27 个回复 - 7206 次查看
  **** 本内容被作者隐藏 ****
  2013-7-2 19:04 - Lispboy - 开源函数库
• (XD::Pickset:TableSortAtEcs) 基于行列的基于UCS的实体排序函数
  7 个回复 - 3419 次查看
  
  
  2013-10-25 11:19 - XDSoft - 开源函数库
  
  

• 建议对XD::List:GroupByIndex函数稍加修改，可以使用于索引为图元的情况
  3 个回复 - 131 次查看
  内容隐藏需要，请点击进去查看
  2020-8-14 10:56 - dyjwyqz5221 - 技术问答【悬赏求助】
• (XD::List:GroupByIndex)按索引对表进行分组
  31 个回复 - 6995 次查看
  
  
  2013-10-14 15:13 - eachy - 开源函数库
• API应用 有关分类统计(XD::List:GroupByIndex)的通用写法
  11 个回复 - 6391 次查看
  ;;XD::List:GroupByIndex 应用汇总 ;;该函数是以索引对表进行分类汇总的通用函数，一般写法如下 ;;这里最主要的是构造这个索引，可以是 LIST STR INT REAL 四种格式 1 分类统计图块数量 2 按文字内容统计, ...
  2013-11-28 13:25 - st788796 - XDRX_API应用
  
  

marting

                               
登录/注册后可看大图

                               
登录/注册后可看大图

                               
登录/注册后可看大图

                               
登录/注册后可看大图

                               
登录/注册后可看大图

                               
登录/注册后可看大图

                               
登录/注册后可看大图

                               
登录/注册后可看大图

a117034423

Lisphk 发表于 2021-1-18 18:47
去看下 开源函数库论坛的
xd::pickset:tablesort
xd::list:groupbyindex

好的，我也是一直再找，没有熟用关键字

a117034423

marting 发表于 2021-1-18 21:49

谢了 老大 ，感谢您的支持回复

Lisphk

算法思想就是
1、从选择集生成包围框
2、包围框左侧 和下侧 直线做基准，两个方向的实体从自身基准点（中点）到 直线距离组成关联表
3、按照关联表排序

a117034423

Lisphk 发表于 2021-1-19 11:00
算法思想就是
1、从选择集生成包围框
2、包围框左侧 和下侧 直线做基准，两个方向的实体从自身基准点（中 ...

谢谢了 老大xd::pickset:tablesort 的排序 和我想要的排序情况不太一样
我看说明生成的是按行或按列
我是想在选择集里，如果X相等就按行 Y相等就按列 不相等就按X
有个双重判断 让程序自行判断 我还是没想好用什么条件判断