【曲线】圆弧转圆

marting

1. (defun c:xdtb_arc2cir (/ ss x i g)
   
2.   (xdrx-begin)
   
3.   (if (setq ss (xdrx-ssget
   
4.                  "\n选择圆弧(支持多段线弧)<退出>:"
   
5.                  '((0 . "arc,*polyline"))
   
6.                )
   
7.       )
   
8.     (progn
   
9.       (setq i 0)
   
10.       (mapcar
    
11.         '(lambda (x)
    
12.            (if (xdrx-object-iskindof x "arc")
    
13.              (progn (setq ss (apply 'xdrx-circle-make
    
14.                                     (xdrx-getpropertyvalue
    
15.                                       x
    
16.                                       "center"
    
17.                                       "normal"
    
18.                                       "radius"
    
19.                                     )
    
20.                              )
    
21.                     )
    
22.                     (xdrx-entity-setpropertiesfrom ss x)
    
23.                     (setq i (1+ i))
    
24.                     (xdrx-entity-delete x)
    
25.              )
    
26.              (progn
    
27.                (xdrx-polyline-compress x 7)
    
28.                (if (and        (= (xdrx-getpropertyvalue x "numverts") 2)
    
29.                         (/= 0 (xdrx-getpropertyvalue x "bulgeat" 0))
    
30.                    )
    
31.                  (progn        (setq g (xdrx-getpropertyvalue x "arcsegat" 0))
    
32.                         (setq ss (apply        'xdrx-circle-make
    
33.                                         (xdrx-getpropertyvalue
    
34.                                           g
    
35.                                           "center"
    
36.                                           "normal"
    
37.                                           "radius"
    
38.                                         )
    
39.                                  )
    
40.                         )
    
41.                         (xdrx-entity-setpropertiesfrom ss x)
    
42.                         (xdrx-entity-delete x)
    
43.                         (setq i (1+ i))
    
44.                  )
    
45.                )
    
46.              )
    
47.            )
    
48.          )
    
49.         (xdrx-pickset->ents ss)
    
50.       )
    
51.       (xdrx-prompt "\n生成了 " i " 个圆.")
    
52.     )
    
53.   )
    
54.   (xdrx-end)
    
55.   (princ)
    
56. )
    
57. 
    

(defun c:xdtb_arc2cir (/ ss x i g)<br />   (xdrx-begin)<br />   (if (setq ss (xdrx-ssget<br />                  "\n选择圆弧(支持多段线弧)<退出>:"<br />                  '((0 . "arc,*polyline"))<br />                )<br />       )<br />     (progn<br />       (setq i 0)<br />       (mapcar<br />         '(lambda (x)<br />            (if (xdrx-object-iskindof x "arc")<br />              (progn (setq ss (apply 'xdrx-circle-make<br />                                     (xdrx-getpropertyvalue<br />                                       x<br />                                       "center"<br />                                       "normal"<br />                                       "radius"<br />                                     )<br />                              )<br />                     )<br />                     (xdrx-entity-setpropertiesfrom ss x)<br />                     (setq i (1+ i))<br />                     (xdrx-entity-delete x)<br />              )<br />              (progn<br />                (xdrx-polyline-compress x 7)<br />                (if (and        (= (xdrx-getpropertyvalue x "numverts") 2)<br />                         (/= 0 (xdrx-getpropertyvalue x "bulgeat" 0))<br />                    )<br />                  (progn        (setq g (xdrx-getpropertyvalue x "arcsegat" 0))<br />                         (setq ss (apply        'xdrx-circle-make<br />                                         (xdrx-getpropertyvalue<br />                                           g<br />                                           "center"<br />                                           "normal"<br />                                           "radius"<br />                                         )<br />                                  )<br />                         )<br />                         (xdrx-entity-setpropertiesfrom ss x)<br />                         (xdrx-entity-delete x)<br />                         (setq i (1+ i))<br />                  )<br />                )<br />              )<br />            )<br />          )<br />         (xdrx-pickset->ents ss)<br />       )<br />       (xdrx-prompt "\n生成了 " i " 个圆.")<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />