xdrx_points_sortoncurve BUG

eachy

1 先说该函数是返回 Curve上点，非原点集
2 “超出”原曲线部分点只能反映到曲线端点
3 主要是对 ARC 曲线出现错误
测试程序：

1. (defun c:tt (/ ss arc e pts ptl)
   
2.   (if (and (setq ss (ssget '((0 . "point"))))
   
3.        (setq arc (car (xdrx_entsel "\nPick Curve: " '((0 . "arc,*line")))))
   
4.       )
   
5.     (progn
   
6.       (xdrx_setsstodb ss 0)
   
7.       (while (setq e (xdrx_getentdata 0))
   
8.     (setq pts (cons (xdrx_getentdxf 10) pts))
   
9.       )
   
10.       (setq pts (reverse pts))
    
11.       (xdrx_setpropertyvalue
    
12.     (apply 'xdrx_polyline_make pts)
    
13.     "color"
    
14.     1
    
15.       )
    
16.       (setq ptl (xdrx_points_sortoncurve arc pts))
    
17.       (xdrx_setpropertyvalue
    
18.     (apply 'xdrx_polyline_make ptl)
    
19.     "color"
    
20.     2
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )

(defun c:tt (/ ss arc e pts ptl)<br />   (if (and (setq ss (ssget '((0 . "point"))))<br />        (setq arc (car (xdrx_entsel "\nPick Curve: " '((0 . "arc,*line")))))<br />       )<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />     (setq pts (cons (xdrx_getentdxf 10) pts))<br />       )<br />       (setq pts (reverse pts))<br />       (xdrx_setpropertyvalue<br />     (apply 'xdrx_polyline_make pts)<br />     "color"<br />     1<br />       )<br />       (setq ptl (xdrx_points_sortoncurve arc pts))<br />       (xdrx_setpropertyvalue<br />     (apply 'xdrx_polyline_make ptl)<br />     "color"<br />     2<br />       )<br />     )<br />   )<br />   (princ)<br /> )

XDSoft

测试了， ARC曲线是可以扩展的。

st788796

试了下对起始角大于2pi时排序有问题

XDSoft

st788796 发表于 2013-10-2 15:09
试了下对起始角大于2pi时排序有问题

画了个圆，如果扩展，按照这个圆，那么数据排完很可能不是想要的。因为是取的最近点，对于圆，这个最近点可能在上面，也可能在下面。

这个函数主要是对LINE提供的，这个最常用。

不知道做什么，需要对圆弧排序？

st788796

XDSoft 发表于 2013-10-2 15:25
画了个圆，如果扩展，按照这个圆，那么数据排完很可能不是想要的。因为是取的最近点，对于圆，这个最近点 ...

排序后不是原点集？

XDSoft

st788796 发表于 2013-10-2 15:41
排序后不是原点集？

一般情况下，我们需要的是排序后的曲线上的点，比如画尺寸。所以给的是曲线上的点。

XDSoft

修改了函数，下版本，该函数返回双联表的形式

( (曲线上点  源点）.... (曲线上点  源点）)
对弧线， 内部生成一个带小缺口的大圆弧按参数排序。