一键转圆

xyp1964

1. (defun c:tt ()
   
2.   (if (setq ss (ssget '((0 . "ELLIPSE"))))
   
3.     (progn
   
4.       (setq i -1)
   
5.       (while (setq s1 (ssname ss (setq i (1+ i))))
   
6.         (setq en (entget s1)
   
7.               pt (cdr (assoc 10 en))
   
8.               rr (caddr (assoc 11 en))
   
9.         )
   
10.         (command "circle" "non" pt rr)
    
11.       )
    
12.       (command "erase" ss "")
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "ELLIPSE"))))<br />     (progn<br />       (setq i -1)<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq en (entget s1)<br />               pt (cdr (assoc 10 en))<br />               rr (caddr (assoc 11 en))<br />         )<br />         (command "circle" "non" pt rr)<br />       )<br />       (command "erase" ss "")<br />     )<br />   )<br />   (princ)<br /> )