有没有人遇到过曲线函数，根据线上点取距离或参数，返回nil的问题？
本帖最后由 NetBee 于 2021-9-8 19:52 编辑有时曲线函数会返回nil，请问下是什么情况？
主要是这两个函数
vlax-curve-getParamAtPoint
vlax-curve-getDistAtPoint
涉及Atpoint，而这个point，我已经用函数vlax-curve-getClosestPointTo取的线上点。
(defun C:tt (/ obj dd pt0)
(setq obj (vlax-ename->vla-object (car (entsel "\n选择直线:"))))
(while (setq pt0 (getpoint "\n任意点:"))
(if(setq dd (vlax-curve-getDistAtPoint obj (vlax-curve-getClosestPointTo obj pt0)))
(princ
(strcat"\n该点到直线最近点，至直线起点的距离获取成功:"
(rtos dd 2 3)
)
)
(princ "\n该点到直线最近点，至直线起点的距离获取失败!")
)
)
)
有点夸张，居然有这个BUG。
坐标太大了，这种情况不少见，线移到坐标0附近就没问题 ;;计算最近点精度提高
(defun MJHFCD2 (obj p2 / dis1 dis2 obj p1 p2)
(setq p2 (vlax-curve-getclosestpointto obj p2);最近点
p1 (vlax-curve-getStartPoint obj);起点
dis1 (distance p2 p1);起点到这个点的距离
p1 (vlax-curve-getPointAtDist obj dis1);求得这个长度点
;确认是否符合要求
)
(while (> (setq dis2 (distance p1 p2)) 0.1)
(setq dis1 (+ dis1 dis2) p1 (vlax-curve-getPointAtDist obj dis1))
)
dis1
)
;例子
(defun c:tes ( / ent p1)
(if (and (setq ent (entsel "\n请选择曲线"))
(setq ent (car ent))
(not (vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getEndParam (list ent))))
)
(progn
(while (setq p1 (getpoint "\n请选择点"))
(princ (strcat "\n起点到最近点距离:" (rtos (MJHFCD2 ent p1) 2 0)))
);while
)
)
(princ)
) vlax-curve-getDistAtPoint有这样的情况，只能修正不使用这个函数
页:
[1]