[求助]已知2点坐标如何求直线方程？

roycecim

已知2点坐标Point3d p1, Point3d p2,如何求出直线方程？？另外，如何求出直线外一点到直线的距离？

雪山飞狐_lzh

直线方程?看线性代数书去

直线外一点到直线的距离？

p2  = line.GetClosePointTo(p1)求出点到直线的最近点p2

距离就是(p2-p1).Length

tryhi

;;求两个点的直线方程
;;返回(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)))
        )
)

bluelover

哈哈哈，哪个版都能看到lisp的回复