[求助]：ssget后的表怎么按升序排列？

animal212 · 发表于 2007-10-5 23:38:31

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

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

×

ssget后生成的选择集怎么按升序排列？

taner · 发表于 2007-10-6 07:47:24

何谓升序？

animal212 · 发表于 2007-10-7 08:42:17

比如ssget选择很多的文字生成一个表，文字里面包含数字，怎样才能让这些文字按所包含的数字的大小按顺序排列。

黄河之水 · 发表于 2007-10-7 09:07:19

如文字是这样的就不好办了
“3个圆直径为68”

zml84 · 发表于 2007-10-7 15:07:08

选择集按照给定的组码值进行排序：http://zml84.blog.sohu.com/64213673.html

[php]
;;按照TEXT对象内容排序：
;;; (SORT-SE SS 1 NIL NIL NIL)
[/php]

zooloo · 发表于 2007-10-11 17:15:13

;;发一个原代码的，不知是不是你要的
;;;程序的参数是一个选择集,返回一个按数字升序排列的选择集
;;;程序只对TEXT有效,应保证选择集中的图元为数字,非数字的排序结果不能确定
;;;如要降序,第九行中的>改为<
(vl-load-com)
(defun sort (sse / lst ssn te ssc)
  (setq lst nil)
  (setq ssn (sslength sse))
  (while (setq te (ssname sse (setq ssn (- ssn 1))))
(if (= (cdr (assoc 0 (entget te))) "TEXT")
(setq lst (append lst (list te))))
   )
(setq lst (vl-sort lst (function (lambda (e1 e2) (> (atof (cdr (assoc 1 (entget e1)))) (atof (cdr (assoc 1 (entget e2)))))))))
  (setq ssn (length lst))
  (setq ssc (ssadd))
  (while (> ssn 0)
(setq ssn (- ssn 1))
(setq te (nth ssn lst))
(setq ssc (ssadd te ssc)))
  (setq ssc ssc)

  )

;;;下为测试,第三行为用法,lstt中是排序了的数字
(defun c:tt ( / ssa ssn ssi)
  (setq ssa (ssget "X"))
  (setq ssa (sort ssa))
  (setq ssn (sslength ssa)
ssi 0)
  (setq lstt nil)
  (while (< ssi ssn)
(setq te (cdr (assoc 1 (entget (ssname ssa  ssi)))))
(setq lstt (append lstt (list te)))
(setq ssi (+ ssi 1))))

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

[求助] [求助]：ssget后的表怎么按升序排列？

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

相关帖子