如何判断一点与一直线的位置关系-上方,下方,线上?

ljcgq

作为初学者我就用初中的知识写了一段程序希望斑竹和成员们不要见笑,并对斑竹们贵宾门的理解,支持,帮助表示感谢!! ;判断点与其平面内直线的相对位置关系
; ljc 2004.3
(defun y( x b k / yy )
(setq yy (+ (* k x) b) )
)
(defun c:pd( / l kk k b p)
(setq l(nentsel "请选择直线"))
(setq kk( mapcar '- (assoc 11 (entget (car l))) (assoc 10 (entget (car l))) ) )
(setq k (/ ( caddr kk) (cadr kk)))
(setq b ( - (caddr (assoc 11 (entget (car l)))) ( * k (cadr (assoc 11 (entget (car l)))) ) ) )
(setq p(getpoint "请选择一点"))
(cond
( (> (y (car p) b k ) (cadr p)) (print "点在线下方") (print) )
( (< (y (car p) b k ) (cadr p)) (print "点在线上方") (print) )
( t (print "点在线上") (print) )
)
)

ljcgq

抱歉忘了发表我的算法---


直线方程:y=kx+b         


根据已知直线的两端点求出k b得到线的方程


把已知点坐标代入直线方程,得到 y '


y ' &gt; y         线上方;                 y '        &lt; y         线下方 ;其余-线上