选择集排序8式

韩飞翔

手里缺明经币了，公布一个选择集排序8式的源码，收点明经币，；

韩飞翔

程序不缺函数，只是函数写在排序函数内，然后子函数作为可变变量清空了，鉴于初学者不会改代码，直接给你改好重新发一遍哈，赚了24个币够用一段时间了，这个就不收币了

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。

飞雪神光

这算是拿别人的码来卖吗

韩飞翔

飞雪神光 发表于 2023-12-3 16:38
这算是拿别人的码来卖吗

排序是自己写的，图方便，用了院长公布的几个函数，例如xyp-9pt,xyp-ss2list,其他的都是自己动手写的

hao3ren

飞雪神光 发表于 2023-12-3 16:38
这算是拿别人的码来卖吗

算是伪源码

yaojing38

不错，，谢谢分享

ghgh0130

xieling888

韩飞翔 发表于 2023-12-3 17:20
排序是自己写的，图方便，用了院长公布的几个函数，例如xyp-9pt,xyp-ss2list,其他的都是自己动手写的

xyp-9pt,xyp-ss2list   请帮忙给下这2个函数，谢谢！

tigcat

谢谢分享,感觉蛮实用的

yoyoho

谢谢分享,实用程序!!!!!

muai2010

函数补全吧，用不
了