[求助]已知2点坐标如何求直线方程?
已知2点坐标Point3d p1, Point3d p2,如何求出直线方程??另外,如何求出直线外一点到直线的距离? 直线方程?看线性代数书去直线外一点到直线的距离?p2= line.GetClosePointTo(p1)求出点到直线的最近点p2
距离就是(p2-p1).Length
;;求两个点的直线方程
;;返回(K B)值,若垂直线,K为nil
(defun try-y=kx+b(p12 / X1 Y1 X2 Y2 k)
(mapcar 'set '(X1 Y1 ) (car P12))
(mapcar 'set '(X2 Y2 ) (cadr P12))
(if (= X1 X2)
(list nil X1)
(list (setq k(/ (- Y1 Y2) (- X1 X2)))(- Y1(* k X1)))
)
) 哈哈哈,哪个版都能看到lisp的回复
页:
[1]