圆（弧）和多段线圆（弧）相互转换

newer

1. (defun c:tt ()
   
2.   (xdrx_begin)
   
3.   (if (setq ss (ssget ":E:S" '((0 . "CIRCLE,ARC"))))
   
4.     (progn
   
5.       (setq cir  (ssname ss 0)
   
6.             gcir (xdge::constructor cir)
   
7.             gPL  (xdge::constructor "kCompositeCrv3d")
   
8.       )
   
9.       (xdge::setpropertyvalue gPl "setcurvelist" gcir)
   
10.       (xdge::entity:make gPl)
    
11.       (xdrx_entity_setpropertiesfrom (entlast) cir)
    
12.       (xdrx_setpropertyvalue (entlast) "constantwidth" 50.0)
    
13.     )
    
14.   )
    
15.   (xdrx_end)
    
16.   (princ)
    
17. )
    

(defun c:tt ()<br />   (xdrx_begin)<br />   (if (setq ss (ssget ":E:S" '((0 . "CIRCLE,ARC"))))<br />     (progn<br />       (setq cir  (ssname ss 0)<br />             gcir (xdge::constructor cir)<br />             gPL  (xdge::constructor "kCompositeCrv3d")<br />       )<br />       (xdge::setpropertyvalue gPl "setcurvelist" gcir)<br />       (xdge::entity:make gPl)<br />       (xdrx_entity_setpropertiesfrom (entlast) cir)<br />       (xdrx_setpropertyvalue (entlast) "constantwidth" 50.0)<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br />

下面代码是反操作，多段线圆（弧）转成 圆（弧）

1. (defun c:tt ()
   
2.   (xdrx_begin)
   
3.   (if (and (setq ss (ssget ":E:S" '((0 . "LWPOLYLINE"))))
   
4.            (setq cir (ssname ss 0))
   
5.            (xdrx_getpropertyvalue cir "hasbulges")
   
6.            (setq bulges (xdrx_getpropertyvalue cir "bulges"))
   
7.       )
   
8.     (progn
   
9.       (setq gcir (xdge::constructor cir)
   
10.             gPLs (xdge::getpropertyvalue gcir "getcurvelist")
    
11.       )
    
12.       (if (and (= (length bulges) 2)
    
13.                (equal (abs (apply '* bulges)) 1.0 1e-3)
    
14.           )
    
15.         (progn
    
16.           (xdge::getpropertyvalue (car gpls) "center" "radius")
    
17.           (xdrx_circle_make #center #radius)
    
18.           (xdrx_entity_setpropertiesfrom (entlast) cir)
    
19.         )
    
20.         (progn
    
21.           (mapcar
    
22.             '(lambda (x)
    
23.                (if (xdge::iskindof x "kCircArc3d")
    
24.                  (progn        (xdge::entity:make x)
    
25.                         (xdrx_entity_setpropertiesfrom (entlast) cir)
    
26.                  )
    
27.                )
    
28.              )
    
29.             gPLs
    
30.           )
    
31.         )
    
32.       )
    
33.       (xdrx_entity_delete cir)
    
34.     )
    
35.   )
    
36.   (xdrx_end)
    
37.   (princ)
    
38. )
    
39. 
    

(defun c:tt ()<br />   (xdrx_begin)<br />   (if (and (setq ss (ssget ":E:S" '((0 . "LWPOLYLINE"))))<br />            (setq cir (ssname ss 0))<br />            (xdrx_getpropertyvalue cir "hasbulges")<br />            (setq bulges (xdrx_getpropertyvalue cir "bulges"))<br />       )<br />     (progn<br />       (setq gcir (xdge::constructor cir)<br />             gPLs (xdge::getpropertyvalue gcir "getcurvelist")<br />       )<br />       (if (and (= (length bulges) 2)<br />                (equal (abs (apply '* bulges)) 1.0 1e-3)<br />           )<br />         (progn<br />           (xdge::getpropertyvalue (car gpls) "center" "radius")<br />           (xdrx_circle_make #center #radius)<br />           (xdrx_entity_setpropertiesfrom (entlast) cir)<br />         )<br />         (progn<br />           (mapcar<br />             '(lambda (x)<br />                (if (xdge::iskindof x "kCircArc3d")<br />                  (progn        (xdge::entity:make x)<br />                         (xdrx_entity_setpropertiesfrom (entlast) cir)<br />                  )<br />                )<br />              )<br />             gPLs<br />           )<br />         )<br />       )<br />       (xdrx_entity_delete cir)<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />

1028882406@qq.c

谢谢楼主分享，支持下