用一阶导数连续的光滑的圆弧模拟椭圆和样条曲线

机械小男人雄起

楼主，我在拟合椭圆弧和一般样条曲线时都成功了，但是在拟合正弦曲线时提示出错了，这是什么原因

newer

机械小男人雄起 发表于 2017-12-11 16:52

把你图压缩传上来吧。

机械小男人雄起

newer 发表于 2017-12-11 18:43

这是压缩图

newer

机械小男人雄起 发表于 2017-12-11 19:23

试试下面这个

1. (defun c:tt ()
   
2.   (if (setq
   
3.         e (car (xdrx_entsel "\n拾取样条曲线<退出>:" '((0 . "SPLINE")))
   
4.           )
   
5.       )
   
6.     (progn
   
7.       (setq pts (xdrx_getpropertyvalue e "featurepoints"))
   
8.       (setq pts (xd::list:snakepair pts))
   
9.       (setq gls nil)
   
10.       (mapcar
    
11.         '(lambda (x)
    
12.            (if (setq g (xdrx_curve->fit2arc e (car x) (cadr x) nil))
    
13.              (setq gls (cons g gls))
    
14.            )
    
15.          )
    
16.         pts
    
17.       )
    
18.       (if (xdrx_curve->polyline gls)
    
19.         (progn (xdrx_prompt "\n样条曲线用双圆弧多段线拟合完毕!")
    
20.                (setq ss (ssadd))
    
21.                (ssadd (entlast) ss)
    
22.                (xd::pickset:gripdisplay ss)
    
23.         )
    
24.       )
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    
29. 
    

(defun c:tt ()<br />   (if (setq<br />         e (car (xdrx_entsel "\n拾取样条曲线<退出>:" '((0 . "SPLINE")))<br />           )<br />       )<br />     (progn<br />       (setq pts (xdrx_getpropertyvalue e "featurepoints"))<br />       (setq pts (xd::list:snakepair pts))<br />       (setq gls nil)<br />       (mapcar<br />         '(lambda (x)<br />            (if (setq g (xdrx_curve->fit2arc e (car x) (cadr x) nil))<br />              (setq gls (cons g gls))<br />            )<br />          )<br />         pts<br />       )<br />       (if (xdrx_curve->polyline gls)<br />         (progn (xdrx_prompt "\n样条曲线用双圆弧多段线拟合完毕!")<br />                (setq ss (ssadd))<br />                (ssadd (entlast) ss)<br />                (xd::pickset:gripdisplay ss)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

机械小男人雄起

newer 发表于 2017-12-11 20:45

可以了楼主，对于标准的正余弦函数可以精确拟合，多谢！还有个问题想要咨询下楼主，你的那个对椭圆弧拟合的程序中精度指的是什么？是每段的距离还是什么？

newer

机械小男人雄起 发表于 2017-12-12 15:56

TOL 是弦高距，就是微小的直线段到曲线的最近距离。
API里面的双圆弧拟合函数 xdrx_curve->fit2arc 去看手册的帮助。

另外，问下，你这个正弦曲线（SPLINE）是什么软件生成的？

机械小男人雄起

newer 发表于 2017-12-12 16:18

哦哦，多谢楼主。
这个正弦是师兄给我的一个lisp文件生成的，应该是他在论坛里下的，源文件附上

人工

感谢楼主分享哇！

1121443108qaz

6666,正需要这样一个工具

1121443108qaz

版主，我工作中遇到一个文件用你的算法拟合很容易变形，然后有时提示参数类型错误，是怎么回事。能不能帮忙看看？

1121443108qaz

就是这个，还有很多类似 这种的

newer

1121443108qaz 发表于 2017-12-26 17:14

你这图，很多SPLINE本身就不连续可导。

有空看看，怎么能批量操作。

另外，以后有问题，请单独发帖，埋在别的帖子里面不好看到。

1121443108qaz

newer 发表于 2017-12-26 17:51

好的，谢谢版主，像这种图如果用18版本cad的pe命令是可以批量变成多段线的，但是比较慢，另外我们公司大部分人都使用的都是2004版本，所以就想能不能有lisp的形式让在04版上也能批量且快捷的处理。

sjj

感谢楼主分享