样条曲线转圆弧

ymcui2005

网上找过,有很多关于这方面的话题.但没找到解决的方法?请大神帮忙谢谢

newer

用多段线模拟不一样吗

ymcui2005

没有圆弧来得精确,线与线之间会产生锐角.用圆弧的话接口位置非常圆滑，尺寸更接近.

ymcui2005

这个是我在网上找的转成多义线做出的图形,接点会产生锐角.

ymcui2005

这个是我用圆弧画出来的

ymcui2005

精度                  

newer

ymcui2005 发表于 2013-12-16 16:02
精度

无限放大是肯定能看到折线的，但是在一定精度下，打印时候看到的，肉眼就看不出来了。

ymcui2005

newer 发表于 2013-12-16 16:55
无限放大是肯定能看到折线的，但是在一定精度下，打印时候看到的，肉眼就看不出来了。

问题是我不单是要打印,还要数据来线切割那就不行了,如果是打印那我都不用转换了直接打印就好

st788796

要保证弧都相切

newer

ymcui2005 发表于 2013-12-16 17:24
问题是我不单是要打印,还要数据来线切割那就不行了,如果是打印那我都不用转换了直接打印就好

给你写段测试代码

1. (defun _tt (ent)
   
2.   (setq pts (xdrx_getsamplept ent)
   
3.         pair (XD::List:SnakePair pts)
   
4.         bulge nil
   
5.   )
   
6.   (setq ss (ssadd))
   
7.   (mapcar
   
8.     '(lambda (x)
   
9.        (setq p1 (car x)
   
10.              p2 (cadr x)
    
11.              pmid (xdrx_midp p1 p2)
    
12.              pin (xdrx_curve_getpointatparam ent (/ (+
    
13.                                                        (xdrx_curve_getparamatpoint ent p1)
    
14.                                                        (xdrx_curve_getparamatpoint ent p2)
    
15.                                                     ) 2.0
    
16.                                                  )
    
17.                  )
    
18.              arcinfo (xdrx_geom_3p2arc p1 pin p2)
    
19.             
    
20.        )
    
21.        (apply 'xdrx_arc_make (cdr arcinfo))
    
22.        (xdrx_setpropertyvalue (entlast) "color" 1)
    
23.      )
    
24.     pair
    
25.   )
    
26.   (apply 'xdrx_polyline_make pts)
    
27.   (xdrx_setpropertyvalue (entlast) "color" 2)
    
28. )
    
29. 
    
30. 
    
31. (defun c:tt()
    
32.    (prompt "\n选取要转换的SPLINE<退出>:")
    
33.    (if (setq ss (ssget '((0 . "SPLINE"))))
    
34.       (progn
    
35.          (mapcar '(lambda(x)(_tt x))(xdrx_pickset->ents ss))
    
36.       )
    
37.    )
    
38.    (princ)
    
39. )
    
40. 
    

(defun _tt (ent)<br />   (setq pts (xdrx_getsamplept ent)<br />         pair (XD::List:SnakePair pts)<br />         bulge nil<br />   )<br />   (setq ss (ssadd))<br />   (mapcar<br />     '(lambda (x)<br />        (setq p1 (car x)<br />              p2 (cadr x)<br />              pmid (xdrx_midp p1 p2)<br />              pin (xdrx_curve_getpointatparam ent (/ (+<br />                                                        (xdrx_curve_getparamatpoint ent p1)<br />                                                        (xdrx_curve_getparamatpoint ent p2)<br />                                                     ) 2.0<br />                                                  )<br />                  )<br />              arcinfo (xdrx_geom_3p2arc p1 pin p2)<br />              <br />        )<br />        (apply 'xdrx_arc_make (cdr arcinfo))<br />        (xdrx_setpropertyvalue (entlast) "color" 1)<br />      )<br />     pair<br />   )<br />   (apply 'xdrx_polyline_make pts)<br />   (xdrx_setpropertyvalue (entlast) "color" 2)<br /> )<br /> <br /> <br /> (defun c:tt()<br />    (prompt "\n选取要转换的SPLINE<退出>:")<br />    (if (setq ss (ssget '((0 . "SPLINE"))))<br />       (progn<br />          (mapcar '(lambda(x)(_tt x))(xdrx_pickset->ents ss))<br />       )<br />    )<br />    (princ)<br /> )<br /> <br />

没有任何东西都是完美的，弧线可以模拟SPLINE，但在无限放大下也还是会有不贴的地方，不过比折线要精确多了。下面的图你点击放大看，白色的是SPLINE，红色的是圆弧，黄色的是折线模拟的。

图一是整体的形状。
其他是局部放大的。

newer

原SPLINE面积：431144.5959

折线模拟面积： 431039.7162  误差 0.0243%

圆弧模拟面积：431193.2089   误差 0.0128%

圆弧误差精度提升1倍。

newer

上面测的是满足视觉误差时候的相对的精度，可以通过设置 xdrx_getsamplept的参数，自己设置玄高差数值，让折线更多，同时圆弧会更精确。

st788796

By typing SPLINEDIT into command line this allows you to edit the spline, select convert to Polyline from Dynamic Input list or type P into command line and hit enter, you will now be asked to Specify a precision : Just press enter. (You can specify a precision value between 0 and 99, Note: Too high a value could impact performance.)

The PLINECONVERTMODE system variable can also be used to control the accuracy of a spline to polyline conversion. When it is set to 0, it converts splines to polylines composed of linear segments. When it is set to 1, it converts splines to polylines composed of arc segments.
Please note this has been done in AutoCAD 2012 and may not work in older versions of AutoCAD. I believe these tools were available from AutoCAD 2010.

牢固

ymcui2005 发表于 2013-12-16 15:51
这个是我在网上找的转成多义线做出的图形,接点会产生锐角.

用XDAPI函数 XDRX_GETSAMPLEPT取得SPLINE的模拟点，然后将模拟点依次按每三点用圆弧连接即可！

newer

牢固 发表于 2013-12-16 23:22
用XDAPI函数 XDRX_GETSAMPLEPT取得SPLINE的模拟点，然后将模拟点依次按每三点用圆弧连接即可！

我上面写的代码是xdrx_getsamplept后，2点间找到中点，然后3点圆弧。

如果把getsamplept的三点连圆弧，可能拐角很大的地方，误差会很大，比如下面的图

                               
登录/注册后可看大图