XD::Curve:CtrlPntsLieOnSpline 返回SPLINE线控制点返到SPLINE上的点

XDSoft

1. ;|
   
2. 功能：返回SPLINE线控制点返到SPLINE上的点（不在SPLINE上的控制点和SPLINE求交点返回）
   
3. 参数：
   
4.     spl  ---  SPLINE曲线实体名
   
5. 返回值：
   
6.     点表
   
7. |;
   
8. (defun XD::Curve:CtrlPntsLieOnSpline (spl / ctrls ctrls1 i n)
   
9.   (setq ctrls (xdrx_getpropertyvalue spl "ControlPoints"))
   
10.   (setq i 0)
    
11.   (foreach n ctrls
    
12.     (if (xdrx_curve_getparamatpoint spl n)
    
13.       (setq ctrls1 (cons n ctrls1))
    
14.       (progn
    
15.         (setq ctrls1 (cons (xdrx_curve_getclosestPoint spl n) ctrls1))
    
16.         (if (setq int (xdrx_curve_getinters (list n (nth (1+ i) ctrls)) spl))
    
17.           (setq ctrls1 (append int ctrls1))
    
18.         )
    
19.       )
    
20.     )
    
21.     (setq i (1+ i))
    
22.   )
    
23.   (reverse ctrls1)
    
24. )
    
25. 
    

;|<br /> 功能：返回SPLINE线控制点返到SPLINE上的点（不在SPLINE上的控制点和SPLINE求交点返回）<br /> 参数：<br />     spl  ---  SPLINE曲线实体名<br /> 返回值：<br />     点表<br /> |;<br /> (defun XD::Curve:CtrlPntsLieOnSpline (spl / ctrls ctrls1 i n)<br />   (setq ctrls (xdrx_getpropertyvalue spl "ControlPoints"))<br />   (setq i 0)<br />   (foreach n ctrls<br />     (if (xdrx_curve_getparamatpoint spl n)<br />       (setq ctrls1 (cons n ctrls1))<br />       (progn<br />         (setq ctrls1 (cons (xdrx_curve_getclosestPoint spl n) ctrls1))<br />         (if (setq int (xdrx_curve_getinters (list n (nth (1+ i) ctrls)) spl))<br />           (setq ctrls1 (append int ctrls1))<br />         )<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (reverse ctrls1)<br /> )<br /> <br />

iLisp

如果spline有自相交会是什么结果？

XDSoft

iLisp 发表于 2014-10-25 21:40
如果spline有自相交会是什么结果？

st788796

XDSoft 发表于 2014-10-25 21:58

你画的都是 “凸” 形线，试试图示的线，getclosestpoint 找的最近点不一定在当前段上