yang686526

有没有判断一个点是否在一条线上的函数？
www.dimcax.com
有没有判断一个点是否在一条线上的函数？
请问有没有判断一个点是否在一条线上的函数，这条线可能是line，也可能是polyline
d
vlax-curve-getclosestpointto

返回曲线上离指定点最近的点（在 wcs 上）
(vlax-curve-getclosestpointto curve-obj givenpnt [extend])
参数
curve-obj
要测量的 vla 对象。
givenpnt
点（在 wcs 上），寻找曲线上距该点最近的点。
extend
如果指定该参数且其值不为 nil，vlax-curve-getclosestpointto 在搜索最近点时扩展曲线。
返回值
如果成功则返回表示曲线上一点的三维点表，否则返回 nil。
----------------------------------------
如果返回的点和givenpnt是同一个点说明在该线上
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
(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)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
谢谢楼上的
d