xdrx_line_nearpoint能够扩展到曲线

liuyj

xdrx_line_nearpoint仅用于直线感觉用处不大，distance就能完成的事，能否扩展到常用曲线？

XDSoft

替代
(xdrx-points-nearpt (p1 p2) p-1.....p-n)
(xdrx-points-nearpt p1 p-1 p-2......p-n)
(xdrx-points-nearpt ent p-1 .....p-n)

liuyj

帮助文件里找不到，能具体说说用法吗？我猜第二个是返回点表里距p1点最近的点，第三个是点表里距ent实体最近的点，第一个是怎么用的？而且这种距离是直线距离，并不是沿曲线的距离

liuyj

比方说我要取得沿曲线距离指定点最近的端点，怎么写？

XDSoft

liuyj 发表于 2020-8-20 21:22
比方说我要取得沿曲线距离指定点最近的端点，怎么写？

(xdrx-getpropertyvalue crv "startpoint" "endpoint")
(setq pt (xdrx-points-nearpt textpnt #startpoint #endpoint))

liuyj

这样返回的不是我希望的点，如下面的图，只看直线距离，是中间点到起点距离短，因此返回起点，但沿曲线的距离，是中间点到终点的距离短，正确的结果应该是返回终点。参考点可能在曲线内，也可能在曲线外或者是曲线延长线上。用lisp不是写不出来，就是效率可能不高

XDSoft

liuyj 发表于 2020-8-20 21:22
比方说我要取得沿曲线距离指定点最近的端点，怎么写？

1. (defun _nearpt (e testpnt / pt)
   
2.   (xdrx-getpropertyvalue e "startpoint" "endpoint")
   
3.   (setq pt (xdrx-getpropertyvalue e "getparamatpoint" #startpoint
   
4.                                   "getparamatpoint" testpnt
   
5.                                   "getparamatpoint" #endpoint
   
6.            )
   
7.         pt (xd::list:snakepair pt)
   
8.         pt (mapcar '(lambda (x) (apply '- (reverse x))) pt)
   
9.         pt (if (apply '< pt)
   
10.              #startpoint
    
11.              #endpoint
    
12.            )
    
13.   )
    
14.   pt
    
15. )
    
16. 
    
17. 
    

(defun _nearpt (e testpnt / pt)<br />   (xdrx-getpropertyvalue e "startpoint" "endpoint")<br />   (setq pt (xdrx-getpropertyvalue e "getparamatpoint" #startpoint<br />                                   "getparamatpoint" testpnt<br />                                   "getparamatpoint" #endpoint<br />            )<br />         pt (xd::list:snakepair pt)<br />         pt (mapcar '(lambda (x) (apply '- (reverse x))) pt)<br />         pt (if (apply '< pt)<br />              #startpoint<br />              #endpoint<br />            )<br />   )<br />   pt<br /> )<br /> <br /> <br />

XDSoft

liuyj 发表于 2020-8-20 22:44
这样返回的不是我希望的点，如下面的图，只看直线距离，是中间点到起点距离短，因此返回起点，但沿曲线的距 ...

1. (defun _nearpt (e testpnt / pt)
   
2.   (xdrx-getpropertyvalue e "startpoint" "endpoint")
   
3.   (setq        pt (xdrx-getpropertyvalue e "getparamatpoint" #startpoint
   
4.                                   "getparamatpoint" testpnt
   
5.                                   "getparamatpoint" #endpoint
   
6.                                  )
   
7.         (if (< (- (cadr pt) (car pt)) (- (last pt) (cadr pt)))
   
8.           #startpoint
   
9.           #endpoint
   
10.         )
    
11.   )
    
12.   pt
    
13. )
    

(defun _nearpt (e testpnt / pt)<br />   (xdrx-getpropertyvalue e "startpoint" "endpoint")<br />   (setq        pt (xdrx-getpropertyvalue e "getparamatpoint" #startpoint<br />                                   "getparamatpoint" testpnt<br />                                   "getparamatpoint" #endpoint<br />                                  )<br />         (if (< (- (cadr pt) (car pt)) (- (last pt) (cadr pt)))<br />           #startpoint<br />           #endpoint<br />         )<br />   )<br />   pt<br /> )<br />

XDSoft

liuyj 发表于 2020-8-20 22:44
这样返回的不是我希望的点，如下面的图，只看直线距离，是中间点到起点距离短，因此返回起点，但沿曲线的距 ...

1. (defun _nearpt (e testpnt / pt)
   
2.   (xdrx-getpropertyvalue e "startpoint" "endpoint")
   
3.   (setq        pt (xdrx-getpropertyvalue e
   
4.                                   "getdistatpoint"
   
5.                                   (list testpnt #endpoint)
   
6.            )
   
7.   )
   
8.   (if (< (car pt) (abs (apply '- pt)))
   
9.     #startpoint
   
10.     #endpoint
    
11.   )
    
12. )
    

(defun _nearpt (e testpnt / pt)<br />   (xdrx-getpropertyvalue e "startpoint" "endpoint")<br />   (setq        pt (xdrx-getpropertyvalue e<br />                                   "getdistatpoint"<br />                                   (list testpnt #endpoint)<br />            )<br />   )<br />   (if (< (car pt) (abs (apply '- pt)))<br />     #startpoint<br />     #endpoint<br />   )<br /> )<br />

XDSoft

(xdrx-curve-nearpt ent spt testpnt ept)
(xdrx-curve-nearpt ent  testpnt)
(xdrx-curve-nearpt ent spt testpnt)