如何把一个SPLINE用多段线模拟出来？

Lisphk

自己的程序中想处理一些SPLINE，用多段线模拟出来，现在遇到问题，到底用什么控制比较好，既能让多段线看着比较贴，顶点数又不至于过多，因为过多的顶点以后处理起来也不方便，考虑到图是可能任意比例画的，指定具体的段数不太能适合各种情况。希望各位高手指点。

newer

我觉得吧，在SPLINE比较缓的地方，顶点数可以少，在比较陡的地方，顶点数要多，应该用 相邻多段线顶点的中点到SPLINE的最短距离控制。这个距离是多少合适，你在考虑下。

Love-Lisp

贴一个简单的，Spline和Ellipse转多段线的代码：

1. (defun Spl_Ell2Lwp (ename)
   
2.   (command "._Dxfout"
   
3.            (setq tmpfile (vl-filename-mktemp nil nil ".dxf"))
   
4.            "_Objects"
   
5.            ename
   
6.            ""
   
7.            "_Version"
   
8.            "_R12"
   
9.            "_Binary"
   
10.            )
    
11.   (entdel ename)
    
12.   (command "._Dxfin" tmpfile)
    
13.   (entlast)
    
14.   )

(defun Spl_Ell2Lwp (ename)<br />   (command "._Dxfout"<br />            (setq tmpfile (vl-filename-mktemp nil nil ".dxf"))<br />            "_Objects"<br />            ename<br />            ""<br />            "_Version"<br />            "_R12"<br />            "_Binary"<br />            )<br />   (entdel ename)<br />   (command "._Dxfin" tmpfile)<br />   (entlast)<br />   )

上述代码没有考虑到点的密度优化！
我觉得吧，用顶点数控制点的密度，不能符合任意比例图的情况！最好是以各顶点间切线方向的转角差来控制比较理想！

eachy

大部分的 Lisp 模拟都是采用了等分处理，这样的处理很多时候效果不是很理想，曾经看过一个Arx的模拟，大致思路是根据显示模式计算一个矢高进行模拟， 以前用另外一种算法写过一个，不过找不到源码了，只有一个 vlx。思路是这样的：取得 Spline 的控制点，对控制点间的每段进行等分，然后由这些等分点向 spline 求 vlax-curve-getclosestpointto ,最后用这些点组成 pline 模拟，你用这个和直接求等分点的进行比较比较就看出差别了

cy956

这个问题晓东在10多年前就贴过，可以问他！:lol

XDSoft

cy956 发表于 2013-5-27 10:38
这个问题晓东在10多年前就贴过，可以问他！

你记忆力咋这好，10年前的还记得，确定我说过吗:P

晓东工具箱3.0里面就有了曲线互转工具，在曲线菜单下。

做个演示：

                               
登录/注册后可看大图

XDRX_API提供函数：xdrx_getsamplept,对SPLINE用的“玄高差”来模拟。

2. 
   
3. xdrx_getsamplept
   
4. 
   
5. 功    能：按给定精度，返回AcDbCurve类曲线和AcDb2dPolyline(旧的POLYLINE)的样本点。
   
6.           将复杂的曲线用点组成的线段模拟。
   
7. 
   
8. 调用格式：(xdrx_getsamplept <AcDbCurve 或 AcDb2dPolyline实体图元名> [精度控制])
   
9. 
   
10. 说    明：给定的[精度控制]值玄高差越小，精度越高，分段数越大，精度越高。
    
11.           精度控制只对曲线段有效，对于POLYLINE,对直线段无效，对其中的ARC段数据起做用。
    
12. 
    
13.           若不给[精度控制]参数，那么程序自己计算出相对满足视觉误差的值做为玄高差进行分段。
    
14. 
    
15.           [精度控制]：分两种方法
    
16.                         1：给整数，按给定的整数分曲线段
    
17.                         2：给实数，做为玄高差
    
18. 
    
19. 注    意：对于AcDbSpline,只能给定"玄高差",若给整数值，那么程序按照计算的相对最优值做为玄高差。
    
20. 
    
21. 返 回 值：若成功，返回点表，点表肯定包括曲线的开始点和终止点。(p1 p2......),失败返回NIL.
    
22. 
    
23. 示    例：用LINE模拟SPLINE
    
24.             (if (setq en (xdrx_entsel "\n请点取一个Spline<退出>:") '((0 . "spline"))))
    
25.                 (progn
    
26.                     (setq ed (xdrx_getsamplept (car en)))
    
27.                     (apply 'command (cons "line" ed))
    
28.                     (command "")
    
29.                 )
    
30.             )
    

<br /> xdrx_getsamplept<br /> <br /> 功    能：按给定精度，返回AcDbCurve类曲线和AcDb2dPolyline(旧的POLYLINE)的样本点。<br />           将复杂的曲线用点组成的线段模拟。<br /> <br /> 调用格式：(xdrx_getsamplept <AcDbCurve 或 AcDb2dPolyline实体图元名> [精度控制])<br /> <br /> 说    明：给定的[精度控制]值玄高差越小，精度越高，分段数越大，精度越高。<br />           精度控制只对曲线段有效，对于POLYLINE,对直线段无效，对其中的ARC段数据起做用。 <br /> <br />           若不给[精度控制]参数，那么程序自己计算出相对满足视觉误差的值做为玄高差进行分段。<br /> <br />           [精度控制]：分两种方法<br />                         1：给整数，按给定的整数分曲线段<br />                         2：给实数，做为玄高差<br /> <br /> 注    意：对于AcDbSpline,只能给定"玄高差",若给整数值，那么程序按照计算的相对最优值做为玄高差。 <br /> <br /> 返 回 值：若成功，返回点表，点表肯定包括曲线的开始点和终止点。(p1 p2......),失败返回NIL.<br /> <br /> 示    例：用LINE模拟SPLINE<br />             (if (setq en (xdrx_entsel "\n请点取一个Spline<退出>:") '((0 . "spline"))))<br />                 (progn<br />                     (setq ed (xdrx_getsamplept (car en)))<br />                     (apply 'command (cons "line" ed))<br />                     (command "")<br />                 ) <br />             )<br />

不过，现在VLISP这么强大了，还是希望大家讨论下，怎么用VLISP写个通用的模拟SPL的函数出来。 算法很清晰，大家也可以想想其他的算法。

eachy

用我的算法和 ARX 的比较，在拐弯处自动加密了，应该是非常接近 Arx 的一种方式
这个是绘制控制点的Pline，对已经拟合过的spline就没有模拟意义了，这个等分s2p好像是取的8等分，一般这个精度就够了，再密对相对类直线部分就有些密了，当然如果对取得的 GetClosestPointTO 点集再行处理一下就更完美了
[pcode=lisp,true]
(defun c:tt (/ e el pts os)
  (if (setq e (car (entsel)))
    (progn
      (setq os (getvar "osmode"))
      (setvar "osmode" 0)
      (setq el    (entget e)
        pts    (mapcar    'cdr
            (vl-remove-if-not '(lambda (x) (= (car x) 10)) el)
        )
      )
      (apply 'vl-cmdf (cons ".pline" pts))
      (vl-cmdf "c")
      (setvar "osmode" os)
    )
  )
  (princ)
)[/pcode]

Lispboy

eachy 发表于 2013-5-27 11:48
用我的算法和 ARX 的比较，在拐弯处自动加密了，应该是非常接近 Arx 的一种方式
这个是绘制控制点的Pline ...

我预感到这个帖子会火，赶快前排插入，混个脸熟。

newer

eachy 发表于 2013-5-27 11:48
用我的算法和 ARX 的比较，在拐弯处自动加密了，应该是非常接近 Arx 的一种方式
这个是绘制控制点的Pline ...

我觉得吧，像下面这图，两个SPLINE，肯定不应该同样的处理方法，一个要求精度相对高些，小的那个就差些。

EACHY大师的切线法也好，还是“玄高差“也好，其实是一样的，都是转化为一个点处的多段线和这个点处的切线夹角要小于一个数值，这个数值是多少，应该根据具体要求可大可小，对小的SPLINE能满足精度，对大的也能。

newer

大家看看下面这个图，一个是源SPLINE，顶点多的是这个SPLINE偏移0.1后得到的，还是SPLINE，看看ADESK做出的SPLINE，顶点数变了，看看这个顶点的分布，能不能有什么启示。




测试图

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:新块.rar 
下载次数:1  文件大小:9.11 KB 
下载权限: 不限 以上  [免费赚D豆]