一个排序函数,应用慢慢添加

eachy · 发表于 2013-5-17 21:42:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

注释较少
2 ybl-ent-sort
调用格式：(ybl-ent-sort lst mode key vx)
参数说明:
      1 mode 0 按行 1 按列
      2 key
         (mod = 0) (mod = 1)
      1  Y降X升    X升Y降 (左上至右下)
      2  Y降X降    X降Y降 (右上至左下)
      3  Y升X降    X降Y升 (右下至左上)
      4  Y升X升    X升Y升 (左下至右上)
      3 vx 行(列)允许误差，为 nil 实取 0
      4 lst 表, 格式如下
      ((pt1 ent1) (pt2 ent2) ... (ptn entn))
      a pt 为 ent 的特征点， ent 可以为 entity 或 vla-object
         比如对文字排序，pt 可以使用文字的插入点

      b 当 pt 为实数时，vx 为行列最大及最小值的差值，此时 mode key 为任意值
         如一组数 (1 3 56 89 56 45 6 8 45 91 45 69 78 15 12 11) vx 取 10
         排序后为 ((1 3 6 8 11) (12 15) (45 45 45) (56 56) (69 78) (89 91))
         总表及子表均为由小到大排列

返回值: 表，子表为按要求排列的行/列
说明: 因为是 lisp 函数，本函数内部并不对数据的合法性进行检查，以提高程序的效率
      使用前确保各参数的的正确性
|;

本函数已在发布在 "函数发布" , 更名为 XD::Pickset:TableSort ，以下应用自行修改函数名称！

ll_j · 发表于 2013-5-17 22:01:27

还真没见过这样要钱的，到底值不值也不知道。
晓东到底是怎么了？

wowan1314 · 发表于 2013-5-17 22:01:42

留个脚印！

liuyun242 · 发表于 2013-5-17 22:05:07

将排序原理或方法讲清楚，或将应用讲明白，不然谁知道是干嘛又啥用

eachy · 发表于 2013-5-17 22:05:08

ll_j 发表于 2013-5-17 22:01
还真没见过这样要钱的，到底值不值也不知道。
晓东到底是怎么了？

老兄啊,让后辈努力吗

lvbin2ooo · 发表于 2013-5-17 22:07:41

我有多少个DDD

lvbin2ooo · 发表于 2013-5-17 22:08:14

http://v.youku.com/v_show/id_XNDY5NjY4MDcy.html

wowan1314 · 发表于 2013-5-17 22:39:34

虚拟豆，娱乐而已何必当真！且只要是源码都有学习价值，丰富论坛资源！指不定哪位正需要！
虽然楼主出品必属精品！
不过还是应该先介绍清楚！

wowan1314 · 发表于 2013-5-17 22:46:21

有时候一个图片都能激发无数灵感！
所以除了毫无意义的水贴，其他什么帖子我都支持！哪怕是广告贴！

Lispboy · 发表于 2013-5-17 23:18:10

ll_j 发表于 2013-5-17 22:01
还真没见过这样要钱的，到底值不值也不知道。
晓东到底是怎么了？

葛老说的好，娱乐币吗，一天只要努力，这里都是白送的，几十上百的都能挣到，还差这几个，另外eachy名字就是保障，不会砸自己牌子的。

liuyj · 发表于 2013-5-17 23:37:27

先围观一下，看看人气再说

kwok · 发表于 2013-5-18 01:06:30

说得好，正想d用来干什么好，这下派用场了，

CadPLus · 发表于 2013-5-18 07:51:52

还是潜水好

/db_自贡黄明儒_ · 发表于 2013-5-18 09:00:45

买水果的都这样,先弄一点给尝尝,然后让你决定买不买..楼主可以试试这样

仲文玉 · 发表于 2013-5-18 09:37:14

排序作用非常大，很多批量处理程序中都会使用到，支持下老大

账号		自动登录	找回密码
密码			立即注册

[他山之石] 一个排序函数,应用慢慢添加

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

点评

评分

点评

点评

点评