vlax-curve-getClosestPointTo 函数求助

xiaohuayuan

测试代码如下：(defun c:test()
(setq objen (vlax-ename->vla-object (car (entsel))))
(while (setq pt (getpoint "\n指定点:"))
(setq pt0 (vlax-curve-getClosestPointTo objen pt T))
(princ "\n")
(princ pt0)
(princ "\n")
)
)
本人新手，请教各位大虾，上面的代码问题到底出在哪，
代码本意是想求垂足的时候能够延伸曲线，但在cad2008中测试发现，对于直线和圆弧是正常的。而对于样条曲线与多段线，当指定的点超过其两端点的法线范围时，pt0返回值总是两个端点的坐标，而不是垂足点。

yshf

vlax-curve-getFirstDeriv 、vlax-curve-getSecondDeriv 这两个函数也许能满足要求