圆（弧）转折线

newer

[sell=2]

1. (defun c:XDTB_CIR2JX ( / num pts ss x)
   
2.   (if (not (xd::symbol:get '#XD-GLOBAL-VAR-ZX))
   
3.     (xd::symbol:put '#XD-GLOBAL-VAR-ZX 1)
   
4.   )
   
5.   (if (setq num (getint (xdrx_prompt "\n折线等分度数<"
   
6.                                      (xd::symbol:get '#XD-GLOBAL-VAR-ZX)
   
7.                                      ">:" t
   
8.                         )
   
9.                 )
   
10.       )
    
11.     (xd::symbol:put '#XD-GLOBAL-VAR-ZX num)
    
12.   )
    
13.   (if (and
    
14.         (xdrx_prompt "\n选取要变折线的圆或圆弧<退出>:" t)
    
15.         (setq ss (ssget '((0 . "circle,arc"))))
    
16.       )
    
17.     (progn
    
18.       (setq num (/ 360 (xd::symbol:get '#XD-GLOBAL-VAR-ZX)))
    
19.       (mapcar
    
20.         '(lambda (x)
    
21.            (setq pts (xdrx_curve_getsamplepoints x num))
    
22.            (if (= (car (xdrx_object_classname x)) "CIRCLE")
    
23.              (xdrx_polyline_make pts T)
    
24.              (xdrx_polyline_make pts)
    
25.            )
    
26.            (xdrx_object_swapid (entlast) x)
    
27.            (xdrx_entity_delete (entlast))
    
28.          )
    
29.         (xdrx_pickset->ents ss)
    
30.       )
    
31.       (xdrx_prompt "\n成功转换了" (sslength ss) "个圆（弧）.")
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )
    
36. 
    

(defun c:XDTB_CIR2JX ( / num pts ss x)<br />   (if (not (xd::symbol:get '#XD-GLOBAL-VAR-ZX))<br />     (xd::symbol:put '#XD-GLOBAL-VAR-ZX 1)<br />   )<br />   (if (setq num (getint (xdrx_prompt "\n折线等分度数<"<br />                                      (xd::symbol:get '#XD-GLOBAL-VAR-ZX)<br />                                      ">:" t<br />                         )<br />                 )<br />       )<br />     (xd::symbol:put '#XD-GLOBAL-VAR-ZX num)<br />   )<br />   (if (and<br />         (xdrx_prompt "\n选取要变折线的圆或圆弧<退出>:" t)<br />         (setq ss (ssget '((0 . "circle,arc"))))<br />       )<br />     (progn<br />       (setq num (/ 360 (xd::symbol:get '#XD-GLOBAL-VAR-ZX)))<br />       (mapcar<br />         '(lambda (x)<br />            (setq pts (xdrx_curve_getsamplepoints x num))<br />            (if (= (car (xdrx_object_classname x)) "CIRCLE")<br />              (xdrx_polyline_make pts T)<br />              (xdrx_polyline_make pts)<br />            )<br />            (xdrx_object_swapid (entlast) x)<br />            (xdrx_entity_delete (entlast))<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />       (xdrx_prompt "\n成功转换了" (sslength ss) "个圆（弧）.")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

[/sell]