选择集排序8式

magicheno

感谢大佬分享~~

qazxswk

韩飞翔 发表于 2023-12-4 12:03
程序不缺函数，只是函数写在排序函数内，然后子函数作为可变变量清空了，鉴于初学者不会改代码，直接给你改 ...

可以用激情换明经币的呀

韩飞翔

qazxswk 发表于 2023-12-6 17:23
可以用激情换明经币的呀

哦，知道了

Noangler

还是谢谢分享了。

bonny

                                   牛
                         牛       牛
                      牛 牛 牛 牛 牛 牛
                   牛             牛
                         牛 牛 牛 牛 牛
牛

bonny

老师，教我

e2002

当初写批量创建 Layouts 工具的时候，也是需要这么个 左右上下 共8种排序方式（实际上是4种，另外四种是其他4种的倒序而已），为了简化代码，所以用了一点办法。大家共同学习提高，代码没有任何限制没有任何保证（包括商用），完全公开，无币可下载：

1. ;; 边界列表的2次排序函数
   
2.   (defun _lkpt_Layout_CreateByTitleBlocks_Sort ( / i1 sym1 i2 sym2 l_sort u v lReturn)
   
3.     (cond
   
4.       ( (= sSort "1") (setq i1 1 sym1 '> i2 0 sym2 '<) );;左到右，上到下
   
5.       ( (= sSort "2") (setq i1 1 sym1 '< i2 0 sym2 '<) );;左到右，下到上
   
6.       ( (= sSort "3") (setq i1 1 sym1 '> i2 0 sym2 '>) );;右到左，上到下
   
7.       ( (= sSort "4") (setq i1 1 sym1 '< i2 0 sym2 '>) );;右到左，下到上
   
8.       ( (= sSort "5") (setq i1 0 sym1 '< i2 1 sym2 '>) );;上到下，左到右
   
9.       ( (= sSort "6") (setq i1 0 sym1 '> i2 1 sym2 '>) );;上到下，右到左
   
10.       ( (= sSort "7") (setq i1 0 sym1 '< i2 1 sym2 '<) );;下到上，左到右
    
11.       ( (= sSort "8") (setq i1 0 sym1 '> i2 1 sym2 '<) );;下到上，右到左
    
12.     );_cond
    
13.     (setq l_sort (vl-sort lBoundarys (function (lambda (u v) ((vl-symbol-value sym1) (nth i1 (car u)) (nth i1 (car v)))))) );_第一次排序
    
14.     (setq l_sort (vl-sort l_sort (function (lambda (u v)
    
15.                                              (if (< (abs (- (nth i1 (car u)) (nth i1 (car v)))) rFuzzy)
    
16.                                                ((vl-symbol-value sym2) (nth i2 (car u)) (nth i2 (car v)))
    
17.                                                nil
    
18.                                              );_fi
    
19.                                            );_lam
    
20.                                  );_fun
    
21.                  )
    
22.     );_第二次排序
    
23.     (setq lReturn l_sort)
    
24.   );_defun _lkpt_Layout_CreateByTitleBlocks_Sort
    

;; 边界列表的2次排序函数<br />   (defun _lkpt_Layout_CreateByTitleBlocks_Sort ( / i1 sym1 i2 sym2 l_sort u v lReturn)<br />     (cond<br />       ( (= sSort "1") (setq i1 1 sym1 '> i2 0 sym2 '<) );;左到右，上到下<br />       ( (= sSort "2") (setq i1 1 sym1 '< i2 0 sym2 '<) );;左到右，下到上<br />       ( (= sSort "3") (setq i1 1 sym1 '> i2 0 sym2 '>) );;右到左，上到下<br />       ( (= sSort "4") (setq i1 1 sym1 '< i2 0 sym2 '>) );;右到左，下到上<br />       ( (= sSort "5") (setq i1 0 sym1 '< i2 1 sym2 '>) );;上到下，左到右<br />       ( (= sSort "6") (setq i1 0 sym1 '> i2 1 sym2 '>) );;上到下，右到左<br />       ( (= sSort "7") (setq i1 0 sym1 '< i2 1 sym2 '<) );;下到上，左到右<br />       ( (= sSort "8") (setq i1 0 sym1 '> i2 1 sym2 '<) );;下到上，右到左<br />     );_cond<br />     (setq l_sort (vl-sort lBoundarys (function (lambda (u v) ((vl-symbol-value sym1) (nth i1 (car u)) (nth i1 (car v)))))) );_第一次排序<br />     (setq l_sort (vl-sort l_sort (function (lambda (u v)<br />                                              (if (< (abs (- (nth i1 (car u)) (nth i1 (car v)))) rFuzzy)<br />                                                ((vl-symbol-value sym2) (nth i2 (car u)) (nth i2 (car v)))<br />                                                nil<br />                                              );_fi<br />                                            );_lam<br />                                  );_fun<br />                  )<br />     );_第二次排序 <br />     (setq lReturn l_sort)<br />   );_defun _lkpt_Layout_CreateByTitleBlocks_Sort<br />

e2002

关于为什么要分开两次排序：
最初是写为一次排序，在条件中判断x，y两个值，然而结果就是会出现问题，按理应该是不会出现错误的，后来我怀疑是vl-sort的问题，然后自己重写了一个专门针对这个x，y坐标值两个条件来排序的函数，就不会出错了，因此，应该是 vl-sort的问题。记得当时和Qf还讨论过vl-sort的这个bug。