有没有判断一个点是否在一条线上的函数？

wangph

请问有没有判断一个点是否在一条线上的函数，这条线可能是Line，也可能是Polyline

nonsmall

vlax-curve-getClosestPointTo

返回曲线上离指定点最近的点（在 WCS 上）

(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])

参数

curve-obj

要测量的 VLA 对象。

givenPnt

点（在 WCS 上），寻找曲线上距该点最近的点。

extend

如果指定该参数且其值不为 nil，vlax-curve-getClosestPointTo 在搜索最近点时扩展曲线。

返回值

如果成功则返回表示曲线上一点的三维点表，否则返回 nil。

----------------------------------------

如果返回的点和givenPnt是同一个点说明在该线上

nonsmall

(if (equal 0 (distance (setq pt1 (getpoint "\n选择需要判断的点")) (setq pt2 (vlax-curve-getClosestPointTo (vlax-ename->vla-object (car(entsel "\n选择一条线"))) pt1))) 0.00001) T nil)

wangph

谢谢楼上的