折线转圆（弧）

newer

最小二乘圆拟合函数见 xd::pnts:fitcircle
[sell=2]

1. (defun c:XDTB_JX2ARC ( / cen d ean g num pts r san ss temp x)
   
2.   (if (and
   
3.         (xdrx_prompt "\n选取要转圆弧的折线<退出>:" t)
   
4.         (setq ss (ssget '((0 . "*polyline"))))
   
5.       )
   
6.     (progn
   
7.       (setq num 0)
   
8.       (mapcar
   
9.         '(lambda (x)
   
10.            (xdrx_polyline_convertfrom x)
    
11.            (setq pts (xdrx_getpropertyvalue x "vertices"))
    
12.            (if (and
    
13.                  (xdrx_polyline_isonlylines x)
    
14.                  (> (length pts) 2)
    
15.                )
    
16.              (progn
    
17.                (setq d (xd::pnts:fitcircle pts))
    
18.                (if d
    
19.                  (progn
    
20.                    (setq cen (car d)
    
21.                          r (cadr d)
    
22.                          g (xdge::constructor "kCircArc3d" (car d) '
    
23.                                               (0 0 1.0) (cadr d)
    
24.                            )
    
25.                    )
    
26.                    (if (not (xdrx_curve_isclosed x))
    
27.                      (progn
    
28.                        (setq san (angle cen (car pts))
    
29.                              ean (angle cen (last pts))
    
30.                        )
    
31.                        (if (XD::Pnts:isClockWise pts)
    
32.                          (setq temp san
    
33.                                san ean
    
34.                                ean temp
    
35.                          )
    
36.                        )
    
37.                        (xdge::setpropertyvalue g "setangles" san ean)
    
38.                      )
    
39.                    )
    
40.                    (xdge::entity:make g)
    
41.                    (xdrx_object_swapid x (entlast))
    
42.                    (xdrx_entity_delete (entlast))
    
43.                    (setq num (1+ num))
    
44.                    (xdge::free g)
    
45.                  )
    
46.                )
    
47.              )
    
48.            )
    
49.          )
    
50.         (xdrx_pickset->ents ss)
    
51.       )
    
52.       (xdrx_prompt "\n选取了" (sslength ss) "个折线，转换成功了" num
    
53.                    "个到圆弧."
    
54.       )
    
55.     )
    
56.   )
    
57.   (princ)
    
58. )

(defun c:XDTB_JX2ARC ( / cen d ean g num pts r san ss temp x)<br />   (if (and<br />         (xdrx_prompt "\n选取要转圆弧的折线<退出>:" t)<br />         (setq ss (ssget '((0 . "*polyline"))))<br />       )<br />     (progn<br />       (setq num 0)<br />       (mapcar<br />         '(lambda (x)<br />            (xdrx_polyline_convertfrom x)<br />            (setq pts (xdrx_getpropertyvalue x "vertices"))<br />            (if (and<br />                  (xdrx_polyline_isonlylines x)<br />                  (> (length pts) 2)<br />                )<br />              (progn<br />                (setq d (xd::pnts:fitcircle pts))<br />                (if d<br />                  (progn<br />                    (setq cen (car d)<br />                          r (cadr d)<br />                          g (xdge::constructor "kCircArc3d" (car d) '<br />                                               (0 0 1.0) (cadr d)<br />                            )<br />                    )<br />                    (if (not (xdrx_curve_isclosed x))<br />                      (progn<br />                        (setq san (angle cen (car pts))<br />                              ean (angle cen (last pts))<br />                        )<br />                        (if (XD::Pnts:isClockWise pts)<br />                          (setq temp san<br />                                san ean<br />                                ean temp<br />                          )<br />                        )<br />                        (xdge::setpropertyvalue g "setangles" san ean)<br />                      )<br />                    )<br />                    (xdge::entity:make g)<br />                    (xdrx_object_swapid x (entlast))<br />                    (xdrx_entity_delete (entlast))<br />                    (setq num (1+ num))<br />                    (xdge::free g)<br />                  )<br />                )<br />              )<br />            )<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />       (xdrx_prompt "\n选取了" (sslength ss) "个折线，转换成功了" num<br />                    "个到圆弧."<br />       )<br />     )<br />   )<br />   (princ)<br /> )

[/sell]