[转贴]：将"圆"的椭圆转换成圆.

lsjjm

2. (defun c:eltoci ()
   
3.      (vl-load-com)
   
4.      (setq ss      (ssget "x" '((0 . "ELLIPSE")))
   
5.       $doc      (vla-get-ActiveDocument (vlax-get-acad-object))
   
6.       $layer  (vla-get-ActiveLayer $doc)
   
7.       model   (vla-get-ModelSpace $doc)
   
8.       vla-obs nil
   
9.       cnt      0
   
10.      )
    
11.      (vla-StartUndoMark $doc)
    
12.      (repeat (sslength ss)
    
13.      (setq   vla-obs   (append   vla-obs
    
14.             (list (vlax-ename->vla-object
    
15.                   (ssname ss cnt)
    
16.                   )
    
17.             )
    
18.          )
    
19.       cnt   (1+ cnt)
    
20.      )
    
21.      )
    
22.      (foreach item vla-obs
    
23.      (if (= (vla-get-MinorRadius item) (vla-get-MajorRadius item))
    
24.           (progn
    
25.           (setq center (vla-get-Center item)
    
26.            radius (vla-get-MinorRadius item)
    
27.            layer    (vla-get-layer item)
    
28.           )
    
29.           (vla-put-ActiveLayer
    
30.           $doc
    
31.           (vla-item (vla-get-layers $doc) layer)
    
32.           )
    
33.           (vla-AddCircle model center radius)
    
34.           (vla-erase item)
    
35.           )
    
36.      )
    
37.      )
    
38.      (vla-put-ActiveLayer $doc $layer)
    
39.      (vla-EndUndoMark $doc)
    
40.      (foreach obj vla-obs
    
41.      (vlax-release-object obj)
    
42.      )
    
43.      (vlax-release-object model)
    
44.      (vlax-release-object $layer)
    
45.      (vlax-release-object $doc)
    
46.      (princ)
    
47. )

(defun c:eltoci () <br />      (vl-load-com) <br />      (setq ss      (ssget "x" '((0 . "ELLIPSE"))) <br />       $doc      (vla-get-ActiveDocument (vlax-get-acad-object)) <br />       $layer  (vla-get-ActiveLayer $doc) <br />       model   (vla-get-ModelSpace $doc) <br />       vla-obs nil <br />       cnt      0 <br />      ) <br />      (vla-StartUndoMark $doc) <br />      (repeat (sslength ss) <br />      (setq   vla-obs   (append   vla-obs <br />             (list (vlax-ename->vla-object <br />                   (ssname ss cnt) <br />                   ) <br />             ) <br />          ) <br />       cnt   (1+ cnt) <br />      ) <br />      ) <br />      (foreach item vla-obs <br />      (if (= (vla-get-MinorRadius item) (vla-get-MajorRadius item)) <br />           (progn <br />           (setq center (vla-get-Center item) <br />            radius (vla-get-MinorRadius item) <br />            layer    (vla-get-layer item) <br />           ) <br />           (vla-put-ActiveLayer <br />           $doc <br />           (vla-item (vla-get-layers $doc) layer) <br />           ) <br />           (vla-AddCircle model center radius) <br />           (vla-erase item) <br />           ) <br />      ) <br />      ) <br />      (vla-put-ActiveLayer $doc $layer) <br />      (vla-EndUndoMark $doc) <br />      (foreach obj vla-obs <br />      (vlax-release-object obj) <br />      ) <br />      (vlax-release-object model) <br />      (vlax-release-object $layer) <br />      (vlax-release-object $doc) <br />      (princ) <br /> )