[求助]：大家来编一个程序“判断点是否在一条直线上”？

aeo

最初由 陌生人 发布
[B](vlax-curve-getClosestPointTo curve-obj givenPnt [extend])
功能
     返回曲线上离指定点最近的点（在 WCS 上）。
说明
1）参数 curve-obj 为要测量的 VLA 对象。
2）参数 givenPnt 为点（在 WCS 上），寻?.. [/B]

用(vlax-curve-getParamAtPoint ellipseObj selPt)
如有，在.
没有,不在.

lsjjm

12楼:
是有些复杂, 用于直线还凑合, 任意曲线试了几个,有时失效.
最好还是用:
(defun ptoncurve (pt obj)
  (vlax-curve-getdistatPoint obj pt)
)  或:
(defun ptoncurve (pt obj)
  (vlax-curve-getparamatPoint obj pt)
)