[LISP程序]：一个改园半径的LISP供大家

qrs

2. (defun c:ch-rad()
   
3. (setq scal (getreal "rad :"))
   
4.        (setq ss (ssget "x" '((0 . "CIRCLE"))))
   
5. 
   
6. (setq n (sslength ss))
   
7. (setq index 0)
   
8. (repeat n
   
9. (setq tname (ssname ss index))
   
10.    (setq index (+ 1 index))
    
11.                 (setq tget (entget tname))
    
12.                 (setq txtdata (cdr (assoc 40 tget)))
    
13.                 (setq txtlist (cons 40 scal) )
    
14.                 (setq tget (subst  txtlist (assoc 40 tget) tget))
    
15.                 (entmod tget)
    
16. )
    
17. )

(defun c:ch-rad()<br /> (setq scal (getreal "rad :"))<br />        (setq ss (ssget "x" '((0 . "CIRCLE"))))<br /> <br /> (setq n (sslength ss))<br /> (setq index 0)<br /> (repeat n<br /> (setq tname (ssname ss index))<br />    (setq index (+ 1 index))<br />                 (setq tget (entget tname))<br />                 (setq txtdata (cdr (assoc 40 tget)))<br />                 (setq txtlist (cons 40 scal) )<br />                 (setq tget (subst  txtlist (assoc 40 tget) tget))<br />                 (entmod tget)<br /> )<br /> )

lsjjm

Vlisp程序可能更简明些:

2. 
   
3. (defun c:test ()
   
4.   (vl-load-com)
   
5.   (prompt "Select circles:")
   
6.   (setq ss (ssget) n 0)
   
7.   (setq rad (getreal "Type in Radius:"))
   
8.   (while (< n (sslength ss))
   
9.     (setq obj (vlax-ename->vla-object (ssname ss n)))
   
10.     (vla-put-radius obj rad)
    
11.     (setq n (1+ n))
    
12.   )
    
13. );defun

<br /> (defun c:test ()<br />   (vl-load-com)<br />   (prompt "Select circles:")<br />   (setq ss (ssget) n 0)<br />   (setq rad (getreal "Type in Radius:"))<br />   (while (< n (sslength ss))<br />     (setq obj (vlax-ename->vla-object (ssname ss n)))<br />     (vla-put-radius obj rad)<br />     (setq n (1+ n))<br />   )<br /> );defun