如何排列表？

bdwzx · 发表于 2006-9-25 20:40:00

我有一个表包含数个点的x、y坐标，如何按x坐标的大小依次重新排列这个表？

phoenixdjq · 发表于 2006-9-26 08:26:00

meflying版主有这个程序

本站也有帖子，你有时间自己去搜索一下吧

bdwzx · 发表于 2006-9-26 20:49:00

怎么找不到，能帮我贴一个吗

pleasehelp · 发表于 2006-9-26 22:35:00

每张图里都有一些小说明，俺一直想写一个重排序号的东东，可就是解决不了按坐标值从小到大排列的问题。谁有，给俺发一个。shxhdesign@163.com

谢了。

phoenixdjq · 发表于 2006-9-27 12:38:00

Command: (setq lst '((3 2)(1 3)(2 5)(8 9)(7 5)))
((3 2) (1 3) (2 5) (8 9) (7 5))

利用vl-sort将表按x从小到大排序:

Command: (setq rc (vl-sort lst '(lambda (s1 s2)(< (car s1)(car s2)))))
((1 3) (2 5) (3 2) (7 5) (8 9))

希望能对你有所帮助

声明：本程序是我从本网站找到的，并非本人所写。

xujinhua · 发表于 2012-3-25 23:17:35

谢谢..学到了排序...

masterlong · 发表于 2012-3-25 23:38:55

本帖最后由 masterlong 于 2012-4-1 02:24 编辑

;;排序目标为选择集时返回选择集；排序目标为图元组成的表时返回图元表；
(defun 按x坐标排序( ss / i sslist aa sss x a b )
(cond
   ( (= (type ss) 'PICKSET)
      (setq i 0)
      (setq sslist Nil)
      (repeat (sslength ss)
         (setq aa (ssname ss i))
         (setq sslist (append sslist (list aa)))
         (setq i (1+ i))
      )
      (setq sslist (vl-sort sslist (function (lambda (a b) (< (car (cdr (assoc 10 (entget a)))) (car (cdr (assoc 10 (entget b)))))))))
      (setq sss (ssadd))
      (foreach x sslist
         (setq sss (ssadd x sss))
      )
   )
   ( (= (type ss) 'list)
      (setq sslist (vl-sort ss (function (lambda (a b) (< (car (cdr (assoc 10 (entget a)))) (car (cdr (assoc 10 (entget b)))))))))
   )
   ( T Nil )
)
)

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