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

168a

高手们呢               

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

只能修改两个，循环不了，谢谢

168a

比如有1.0和1.1和1.2，修改加大0.1，试试看，有错误，谢谢

168a

可以了，谢谢，设置好了就可以了

jun353835273

院长的代码值得学习

168a

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

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