[LISP程序]：请教如何对选择集进行排序

aaddff

我有(setq ss(ssget "_w" p0 p1 (list (0 . "CIRCLE"))))得到一个选择集，但其顺序杂乱，我想让其按x坐标或y坐标排序，请教

xazhji

可以求得实体特性列表，在排序，用 entget

aaddff

能不能具体一点，排序函数是哪个？
谢谢

aeo

(vl-sort '(lambda(x y)(<(car(cdr(assoc 10(entget x))))(car(cdr(assoc 10(entget y)))))) list-of-circle)

对圆心坐标x方向排序

netbee

;;autocadr14时使用的
;;sszwd:((x y) (x y).......)
;;;给表sszwd根据从左到右,从上到下的规则排序(插入法).
(defun zbh_px2
       (sszwd / sstmp1 sstmp2 loop_i loop_j pt1x pt1y pt2x pt2y sslen)
  ;;定义内部函数
  (defun listij_in ()
    (setq
      sszwd (append
              (reverse (cdr (member sstmp1 (reverse sszwd))))
              (list sstmp2)
              (member sstmp1
                      (reverse (cdr (member sstmp2 (reverse sszwd))))
              )
              (cdr (member sstmp2 sszwd))
            )
    )
  )

  (setq loop_j 1
        sslen (LENGTH sszwd))
  (while (< loop_j sslen)
    (setq sstmp2 (nth loop_j sszwd)
          pt2x         (car sstmp2)
          pt2y         (cadr sstmp2)
          loop_i 0
    )
    (while
      (progn
        (setq sstmp1 (nth loop_i sszwd)
              pt1x   (car sstmp1)
              pt1y   (cadr sstmp1)
        ) ;_结束setq
        (cond
          ;;若指针i已经到了指针j的位置则跳出
          ((= loop_i loop_j)
           (not 1)
          )
          ;;若第二点的Y比第一点的大,则把第二点插入到第一前
          ;;并跳出
          ((< pt1y pt2y)
           (listij_in)
           (not 1)
          )
          ;;_若第一点的Y与第二点的Y相等,且第二点的X比第一点的小,
          ;;则把第二点插入到第一点前，并跳出
          ((and (= pt1y pt2y) (> pt1x pt2x))
           (listij_in)
           (not 1)
          )

          ;;其他情况则不进行互换
          (t
           (setq loop_i (1+ loop_i))
          )
        ) ;_结束cond
      )
    ) ;_结束while
    (setq loop_j (1+ loop_j))
  ) ;_结束while
  sszwd
)

aaddff

谢谢各位支持，我在试

netbee

http://www.xdcad.net/forum/showthread.php?s=&threadid=81105

light_dream

用vl-sort-i函数和entget 就可以实现，vl-sort 函数可能会漏掉部分坐标值相同的实体。
(setq ss (ssget "_w" p0 p1 (list (0 . "CIRCLE"))))
(setq len (sslength ss))
(setq n 0 xzb nil)
(while (< n len)
              (setq stm (ssname  ss n))
              (setq gdb (entget stm))
              (setq xzb (cons (list (cdr (assoc 5 gdb)) (cdr (assoc 10 gdb))) xzb))
              (setq n (1+ n))
)
(setq syh (vl-sort-i xzb (function (lambda e1 e2) (< (cadr (cadr e1)) (cadr (cadr e2))))));syh为按X坐标值大小排列的索引号表。