假设选择了一个所有圆的选择集表ss，请帮用vlax的排序函数编写一个语句，返回经过...

ztj988

假设选择了一个所有圆的选择集表ss，请帮用vl的排序函数编写一个语句，返回经过排序（以圆的半径大小排序）的表。

yshf

2.              (setq i 0 n (sslength ss) jgb nil)
   
3.              (repeat n
   
4.                  (setq jgb (cons (ssname ss i) jgb))
   
5.                  (setq i (1+ i))
   
6.              )
   
7.              (setq jgb (vl-sort jgb '(lambda(a b)
   
8.                                          (> (cdr (assoc 40 (entget a)))
   
9.                                             (cdr (assoc 40 (entget b)))
   
10.                                          )
    
11.                                      )
    
12.                         )
    
13.            )

             (setq i 0 n (sslength ss) jgb nil)<br />              (repeat n<br />                  (setq jgb (cons (ssname ss i) jgb))<br />                  (setq i (1+ i))<br />              )<br />              (setq jgb (vl-sort jgb '(lambda(a b)<br />                                          (> (cdr (assoc 40 (entget a)))<br />                                             (cdr (assoc 40 (entget b)))<br />                                          )<br />                                      )<br />                         )<br />            )

ysq101

路过顶一下
半径表？
圆心表？

xyp1964

1. (defun c:tt (/ lst)
   
2.   (setq        ss (ssget '((0 . "circle")))
   
3.         i  -1
   
4.   )
   
5.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
6.     (setq lst (cons (list (cdr (assoc 40 (entget s1))) s1) lst))
   
7.   )
   
8.   (mapcar 'cdr (vl-sort lst '(lambda (x y) (< (car x) (car y)))))
   
9. )

(defun c:tt (/ lst)<br />   (setq        ss (ssget '((0 . "circle")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq lst (cons (list (cdr (assoc 40 (entget s1))) s1) lst))<br />   )<br />   (mapcar 'cdr (vl-sort lst '(lambda (x y) (< (car x) (car y)))))<br /> )