如何判断一点是不是在一条直线上？

wang_hui

RT：想判断一点是不是在一条直线上，怎么才能做的到？请会的人，指教一下！！！

caoyin

(equal POINT (vlax-curve-getClosestPointTo ENAME POINT) 0.00001)

ljttjl

根据直线的两点坐标，求出此直线方程式。然后将要判断的点代入这个直线方程即可。

xianaihua

网站上有这样的函数

2. ;;;函数:pntonline判断点在直线上的位置
3. ;;;
4. ;;;参数:
5. ;;;
6. ;;;p1,p2：直线上的两点，例如直线上的起点和端点
7. ;;;p3：所要判断的点
8. ;;;
9. ;;;返回值:
10. ;;;
11. ;;;点的位置，等于0时(equal k 0.0 0.00000001)点在线上，
12. ;;;大于0时点在线的左侧，小于0时点在线的右侧
13. ;;;
14. ;;;示例:
15. ;;;(setq k(pntonline p1 p2 p3))
16. (defun pntonline (p1 p2 p3 / p c B C P)
17.   (setq p p3)
18.   (apply '+
19.   (mapcar '(lambda (b)
20.       (setq c (- (* (car p) (cadr b)) (* (cadr p) (car b)))
21.      p b
22.       )
23.       c
24.     )
25.    (list p1 p2 p3)
26.   )
27.   )
28. )

;;;函数:pntonline判断点在直线上的位置 ;;; ;;;参数: ;;; ;;;p1,p2：直线上的两点，例如直线上的起点和端点 ;;;p3：所要判断的点 ;;; ;;;返回值: ;;; ;;;点的位置，等于0时(equal k 0.0 0.00000001)点在线上， ;;;大于0时点在线的左侧，小于0时点在线的右侧 ;;; ;;;示例: ;;;(setq k(pntonline p1 p2 p3)) (defun pntonline (p1 p2 p3 / p c B C P)   (setq p p3)   (apply '+   (mapcar '(lambda (b)       (setq c (- (* (car p) (cadr b)) (* (cadr p) (car b)))      p b       )       c     )    (list p1 p2 p3)   )   ) )

fl202

inters,

直线两点为p1，p2，判断p3是否在此直线上，设置p4为（0，0）或者其它点，求

p1，p2，p3，p4的交点p5，如果p5=p3，说明p3在直线上，如果没有交点或者不等，说明p3不在直线上。

yshf

直线两点为P1，P2，判断P3是否在此直线上,若△P1P2P3的面积大于零，则P3不在直线上；若面积等于零，则P3在直线上。

3. (defun c:test()
4.     (setq cm (getvar "cmdecho"))
5.     (setvar "cmdecho" 0)
6.     (while (setq p1 (getpoint "\np1:"))
7.         (if (setq p2 (getpoint p1 "\np2:"))
8.      (while (setq p3 (getpoint p2 "\np3:"))
9.          (command "area" p1 p2 p3 "")
10.          (setq mj (getvar "area"))
11.                 (if (<= mj 1e-6)
12.                     (princ "\n点P3在直线P1P2上")
13.                     (princ "\n点P3不在直线P1P2上")
14.                 )
15.             )
16.         )
17.     )
18.     (setvar "cmdecho" cm)
19.     (princ)
20. )

(defun c:test()     (setq cm (getvar "cmdecho"))     (setvar "cmdecho" 0)     (while (setq p1 (getpoint "\np1:"))         (if (setq p2 (getpoint p1 "\np2:"))      (while (setq p3 (getpoint p2 "\np3:"))          (command "area" p1 p2 p3 "")          (setq mj (getvar "area"))                 (if (<= mj 1e-6)                     (princ "\n点P3在直线P1P2上")                     (princ "\n点P3不在直线P1P2上")                 )             )         )     )     (setvar "cmdecho" cm)     (princ) )

xhq1954425

学习！