[LISP程序]：如何判断一个点是否在一条直线上？？

以马内利

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

xyp1964

2. [FONT=courier new](defun c:test (/ curve-obj point)
   
3.   (setq        curve-obj (car (entsel "\n选择物体 : "))
   
4.         point          (getpoint "\n点或坐标 : ")
   
5.   )
   
6.   (if (vlax-curve-getParamAtPoint curve-obj point)
   
7.     (princ "点在曲线上!")
   
8.     (princ "点不在曲线上!!")
   
9.   )
   
10.   (princ)
    
11. )[/FONT]

[FONT=courier new](defun c:test (/ curve-obj point)<br />   (setq        curve-obj (car (entsel "\n选择物体 : "))<br />         point          (getpoint "\n点或坐标 : ")<br />   )<br />   (if (vlax-curve-getParamAtPoint curve-obj point)<br />     (princ "点在曲线上!")<br />     (princ "点不在曲线上!!")<br />   )<br />   (princ)<br /> )[/FONT]

leochen

;;;判断点在线段上，是＝1，否＝0,端点上＝2
(defun p-line (p l / a line ls le b c d ponl)
;;;p－点，l－直线图元名
  (setq        a    (list (car p) (cadr p))
        line (entget l)
        ls   (list (cadr (assoc 10 line)) (caddr (assoc 10 line)))
        le   (list (cadr (assoc 11 line)) (caddr (assoc 11 line)))
        b    (distance ls a)
        c    (distance a le)
        d    (distance ls le)
  )
  (if (or (< b 0.005) (< c 0.005))
    (setq ponl 2)
    (if        (< (abs (- (+ b c) d)) 0.005)
      (setq ponl 1)
      (setq ponl 0)
    )
  )
)

狂刀

可看看ｅａｃｈｙ在程序库的
点到直线距离，数学方法求