有没有人遇到过曲线函数，根据线上点取距离或参数，返回nil的问题？

NetBee

有时曲线函数会返回nil，请问下是什么情况？
主要是这两个函数
vlax-curve-getParamAtPoint
vlax-curve-getDistAtPoint
涉及Atpoint，而这个point，我已经用函数vlax-curve-getClosestPointTo取的线上点。

2. 
   
3. (defun C:tt (/ obj dd pt0)
   
4.   (setq obj (vlax-ename->vla-object (car (entsel "\n选择直线:"))))
   
5.   (while (setq pt0 (getpoint "\n任意点:"))
   
6.     (if  (setq dd (vlax-curve-getDistAtPoint obj (vlax-curve-getClosestPointTo obj pt0)))
   
7.       (princ
   
8.   (strcat  "\n该点到直线最近点，至直线起点的距离获取成功:"
   
9.     (rtos dd 2 3)
   
10.   )
    
11.       )
    
12.       (princ "\n该点到直线最近点，至直线起点的距离获取失败!")
    
13.     )
    
14.   )
    
15. )
    

<br /> (defun C:tt (/ obj dd pt0)<br />   (setq obj (vlax-ename->vla-object (car (entsel "\n选择直线:"))))<br />   (while (setq pt0 (getpoint "\n任意点:"))<br />     (if  (setq dd (vlax-curve-getDistAtPoint obj (vlax-curve-getClosestPointTo obj pt0)))<br />       (princ<br />   (strcat  "\n该点到直线最近点，至直线起点的距离获取成功:"<br />     (rtos dd 2 3)<br />   )<br />       )<br />       (princ "\n该点到直线最近点，至直线起点的距离获取失败!")<br />     )<br />   )<br /> )<br />

有点夸张，居然有这个BUG。

小菜123

坐标太大了，这种情况不少见，线移到坐标0附近就没问题

437271963

2. ;;计算最近点精度提高
   
3. (defun MJHFCD2 (obj p2 / dis1 dis2 obj p1 p2)
   
4. (setq p2 (vlax-curve-getclosestpointto obj p2);最近点
   
5.        p1 (vlax-curve-getStartPoint obj);起点
   
6.        dis1 (distance p2 p1);起点到这个点的距离
   
7.        p1 (vlax-curve-getPointAtDist obj dis1);求得这个长度点
   
8.         ;确认是否符合要求
   
9. )
   
10. (while (> (setq dis2 (distance p1 p2)) 0.1)
    
11.   (setq dis1 (+ dis1 dis2) p1 (vlax-curve-getPointAtDist obj dis1))
    
12. )
    
13. dis1
    
14. )
    
15. 
    
16. ;例子
    
17. (defun c:tes ( / ent p1)
    
18. (if (and (setq ent (entsel "\n请选择曲线"))
    
19.           (setq ent (car ent))
    
20.           (not (vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getEndParam (list ent))))
    
21.      )
    
22.   (progn
    
23.    (while (setq p1 (getpoint "\n请选择点"))
    
24.     (princ (strcat "\n起点到最近点距离:" (rtos (MJHFCD2 ent p1) 2 0)))
    
25.    );while
    
26.   )
    
27. )
    
28. (princ)
    
29. )

;;计算最近点精度提高<br /> (defun MJHFCD2 (obj p2 / dis1 dis2 obj p1 p2)<br /> (setq p2 (vlax-curve-getclosestpointto obj p2);最近点<br />        p1 (vlax-curve-getStartPoint obj);起点<br />        dis1 (distance p2 p1);起点到这个点的距离<br />        p1 (vlax-curve-getPointAtDist obj dis1);求得这个长度点<br />         ;确认是否符合要求<br /> )<br /> (while (> (setq dis2 (distance p1 p2)) 0.1)<br />   (setq dis1 (+ dis1 dis2) p1 (vlax-curve-getPointAtDist obj dis1))<br /> )<br /> dis1<br /> )<br /> <br /> ;例子<br /> (defun c:tes ( / ent p1)<br /> (if (and (setq ent (entsel "\n请选择曲线"))<br />           (setq ent (car ent))<br />           (not (vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getEndParam (list ent))))<br />      )<br />   (progn<br />    (while (setq p1 (getpoint "\n请选择点"))<br />     (princ (strcat "\n起点到最近点距离:" (rtos (MJHFCD2 ent p1) 2 0)))<br />    );while<br />   )<br /> )<br /> (princ)<br /> )

437271963

vlax-curve-getDistAtPoint有这样的情况，只能修正不使用这个函数