找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1631|回复: 4

[教学] 表的"另类"多重排序

[复制链接]

已领礼包: 593个

财富等级: 财运亨通

发表于 2014-3-27 16:30:03 | 显示全部楼层 |阅读模式

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

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

×

  1. (defun sortm (lst)
  2.   (mapcar 'read
  3.           (acad_strlsort (mapcar 'vl-princ-to-string lst))
  4.   )
  5. )

子表中如含有String 需另加代码处理!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-3-27 18:57:54 来自手机 | 显示全部楼层
本帖最后由 st788796 于 2014-3-28 07:32 编辑

转为string就是按“位”排序了,不管子表长度均由第一元素起始逐一优先排序,很巧妙

对点表先X后Y排序可以用这个替代vl-sort方法
  1. (vl-sort pts
  2.                '(lambda (p1 p2)
  3.                    (if (equal (cadr p1) (cadr p2) fuzz)
  4.                        (< (car p1) (car p2))
  5.                        (< (cadr p1) (cadr p2))
  6.                     )
  7.                  )
  8. )


(sortm pts)等同于没有误差的由左下起始的一个按列排
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

发表于 2014-3-27 19:23:41 来自手机 | 显示全部楼层
有创意,顶—个
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 137个

财富等级: 日进斗金

发表于 2014-3-28 10:59:39 | 显示全部楼层
可以参照这个帖子{:soso_e100:}表排序
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-3-28 11:53:27 | 显示全部楼层
楼主这个可以比较子表等长的表
转贴 aeo000000
  1. ;;自己判断是 '( ()()()...)
  2. (defun test (lst)
  3.   (vl-sort lst '(lambda (x y) (= (test0 x y) -1)))
  4. )
  5. ;;相等时长度长的大    返回: 等 0  大 1  小 -1
  6. (defun test0 (lst1 lst2 / len r x y)
  7.   (setq len (- (length lst1) (length lst2)))
  8.   (setq r 0)
  9.   (mapcar '(lambda (x y)
  10.              (if (= r 0)
  11.                (setq r (cond ((= x y) 0)
  12.                              ((> x y) 1)
  13.                              (t -1)
  14.                        )
  15.                )
  16.              )
  17.            )
  18.           lst1
  19.           lst2
  20.   )
  21.   (if (= r 0)
  22.     (setq r (cond ((> len 0) 1)
  23.                   ((= len 0) 0)
  24.                   (t -1)
  25.             )
  26.     )
  27.   )
  28.   r
  29. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-23 05:00 , Processed in 0.409744 second(s), 40 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表