请问怎么从小到大的修改圆？

168a

(defun c:bcnc ( / li et)
(if (and(setq ss (ssget "x"(list(cons 8 "1"))))        )                                 
(progn
   (setq i 0 clst (list))
   (repeat (sslength ss)
    (setq en (ssname ss i)
             ent (entget en)
             r1 (assoc 40 ent)
             i (1+ i))
    (if (not (member (cdr r1) clst))
                (progn
                 (setq ss1 (ssget "x"(list(cons 8 "1")r1)))
     (setq r (assoc 40 ent))
     (setq newd (getdist (strcat "\n直径-->" (rtos (* (cdr r) 2) 2 4) "<--:")))
     (if newd (progn
      (setq j 0)
      (setq r (/ newd 2))
      (setq clst (cons r clst))
      (repeat (sslength ss1)
       (setq ent1 (entget(ssname ss1 j))
               ent1 (subst (cons 40 r) (assoc 40 ent1) ent1)
               j (1+ j))
       (entmod ent1)
      )
     ))
    ))
   )
  )
        )
  (princ)
)

上面是论坛找到的改圆大小的程序  目前程序对圆没有排列
就是说从最大直径开始
帮忙修改一下从最小直径往大的排列？
谢谢
例:5,6,8,9,10,15,16,
程序现在结果:从16,15,10,9,8,6,5
想要的结果:从5,6,8,9,10,15,16

jun353835273

1. (defun c:bcnc ( / li et clst cenlist l2 EN ENT ENT1 I J NEWD R1 SS SS1 )
   
2.         (if (and(setq ss (ssget "x"(list '(0 . "CIRCLE")(cons 8 "1")))) )
   
3.                 (progn
   
4.                         (setq i 0 clst nil  l2 nil)
   
5.                         (repeat (sslength ss)
   
6.                                 (setq en (ssname ss i)
   
7.                                         ent (entget en)
   
8.                                         r1 (assoc 40 ent)
   
9.                                         cenlist (cons(cdr r1) cenlist)
   
10.                                         i (1+ i))
    
11.                                 (setq cenlist (vl-sort cenlist '< ))
    
12.                         )
    
13.                         (setq l2 (cons (car cenlist)l2))
    
14.                         (while(setq cenlist (vl-remove(car cenlist)(cdr cenlist)))(setq l2 (cons(car cenlist) l2)))
    
15.                         (foreach e (reverse l2)
    
16.                                 (if (not (member e clst))
    
17.                                         (progn
    
18.                                                 (setq ss1 (ssget "x"(list(cons 8 "1") '(0 . "CIRCLE")(cons 40 e))))
    
19.                                                 (setq newd (getdist (strcat "\n直径-->" (rtos (* e 2) 2 4) "<--:")))
    
20.                                                 (if newd (progn
    
21.                                                                                          (setq j 0)
    
22.                                                                                          (setq e (/ newd 2))
    
23.                                                                                          (setq clst (cons e clst))
    
24.                                                                                          (repeat (sslength ss1)
    
25.                                                                                                  (setq ent1 (entget(ssname ss1 j))
    
26.                                                                                                          ent1 (subst (cons 40 e) (assoc 40 ent1) ent1)
    
27.                                                                                                          j (1+ j))
    
28.                                                                                                  (entmod ent1)
    
29.                                                                                          )
    
30.                                                                                  )
    
31.                                                 )
    
32.                                         )
    
33.                                 )
    
34.                         )
    
35.                 )
    
36.         )
    
37.         (princ)
    
38. )
    

(defun c:bcnc ( / li et clst cenlist l2 EN ENT ENT1 I J NEWD R1 SS SS1 )<br />         (if (and(setq ss (ssget "x"(list '(0 . "CIRCLE")(cons 8 "1")))) ) <br />                 (progn<br />                         (setq i 0 clst nil  l2 nil)<br />                         (repeat (sslength ss)<br />                                 (setq en (ssname ss i)<br />                                         ent (entget en)<br />                                         r1 (assoc 40 ent)<br />                                         cenlist (cons(cdr r1) cenlist)<br />                                         i (1+ i))<br />                                 (setq cenlist (vl-sort cenlist '< ))<br />                         )<br />                         (setq l2 (cons (car cenlist)l2))<br />                         (while(setq cenlist (vl-remove(car cenlist)(cdr cenlist)))(setq l2 (cons(car cenlist) l2)))<br />                         (foreach e (reverse l2)<br />                                 (if (not (member e clst))<br />                                         (progn<br />                                                 (setq ss1 (ssget "x"(list(cons 8 "1") '(0 . "CIRCLE")(cons 40 e))))<br />                                                 (setq newd (getdist (strcat "\n直径-->" (rtos (* e 2) 2 4) "<--:")))<br />                                                 (if newd (progn<br />                                                                                          (setq j 0)<br />                                                                                          (setq e (/ newd 2))<br />                                                                                          (setq clst (cons e clst))<br />                                                                                          (repeat (sslength ss1)<br />                                                                                                  (setq ent1 (entget(ssname ss1 j))<br />                                                                                                          ent1 (subst (cons 40 e) (assoc 40 ent1) ent1)<br />                                                                                                          j (1+ j))<br />                                                                                                  (entmod ent1)<br />                                                                                          )<br />                                                                                  )<br />                                                 )<br />                                         )<br />                                 )<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )<br />

168a

jun353835273 发表于 2017-11-19 20:17
院长的代码值得学习

嗯，但要加载一个工具，其实用不到太多，所以
不过还是谢谢院长的帮助

东升铮

168a 发表于 2017-11-13 20:54
缺少参数？ 哪位老师帮忙帮忙  谢谢啦

装了院长的插件才行

Andyhon

...从最小直径往大的排列？...

未见程序有排序呀?

南极人

程序根本就没有排序功能。。

168a

所以请帮忙加上排序，谢谢

168a

各位老师帮忙帮忙，谢谢

xyp1964

168a

缺少参数？ 哪位老师帮忙帮忙  谢谢啦

168a

有没有可以实现的啊，在线等

168a

一定要安装插件的吗，有没有直接加载可以用的呀