[求助]：一点是否在一条直线上的函数是什么！

0451doctor

一点是否在一条直线上的函数是什么！

zhynt

好像没有这个函数，不过可以求出点与直线的垂直距离，如果为0，则点在直线上。

lsjjm

AutoLisp中没有这个函数. 可以通过自定义函数(命令)来解决.
直线的情况比较简单, 推广到任意曲线甚至实体, 这个命题即: 判断一点是否在某一实体上. 以前论坛有此方面的贴子, 请搜索.

Gxiaofeng

我这有个函数!

aeo

判断p   在p1 p2上
(equal (+(distance p p1)(distance p p2) )  (distance p1 p2) 1e-5)

p在p1 p2上或p1 p2延伸线上
(equal (abs(sin(angle p p2)))(abs(sin(angle p p1))) 1e-5)

陌生人

同意3楼说法
语法

     (vlax-curve-getDistAtPoint curve-obj point)



功能

      返回曲线从开始点到指定点的曲线段的长度

　

说明

1）参数 curve-obj 为要测量的 VLA 对象。

2）参数 point 为curve-obj 上的三维点表（在 WCS 中）。

返回值：

若成功则返回实数，否则返回 nil。

范例

假定 splineObj 指向 vlax-curve-getDistAtParam 范例中的样条曲线。

设置 OSNAP 为“切点”并选择直线与曲线相切的点：

_$ (setq getPt (getpoint))

(4.91438 6.04738 0.0)

确定从曲线开始点到选定点的距离：

_$ (vlax-curve-getDistAtPoint splineObj getPt)

5.17769

注明: 如果返回nil.则点不在曲线(包括直线)上

寒风

6楼说法不错, 用(vlax-curve-getdistpoint vla-obj point) 可以判断一个点是否在vla-obj 实体, 可是, 我现在用(setq point (vlax-curve-getClosestPointTo  vla-obj point )函数, 把点指定到实体上了,
为什么vlax-curve-getdistpoint 函数还返回为空呢?

Underway

Command: (setq pt (getpoint))
(516.64 442.693 0.0)

Command: (setq px (vlax-curve-getClosestPointTo vla-obj pt))
(515.751 439.205 0.0)

Command: (vlax-curve-getDistAtPoint vla-obj pt)
nil

Command: (vlax-curve-getDistAtPoint vla-obj px)
14.12

寒风

最初由 Underway 发布
[B]Command: (setq pt (getpoint))
(516.64 442.693 0.0)

Command: (setq px (vlax-curve-getClosestPointTo vla-obj pt))
(515.751 439.205 0.0)

Command: (vlax-curve-getDistAtPoint vla-obj pt)
nil

Co... [/B]

  

关键是返回的点是用科学计数法表示的,
(setq pt (getpoint))
(506067.0 4.47268e+006 0.0)
根本不在这条线上,
用setq px (vlax-curve-getClosestPointTo vla-obj pt))
(506067.0 4.47268e+006 0.0)

返回的点也没在这条线上
(vlax-curve-getDistAtPoint vla-obj pt)
自然返回为空,
有没有一种好的方法?  不用科学计数法表示, 使误差更小些!
使这个点准确无误的在这条线上!