roycecim 发表于 2009-10-21 17:26:00

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

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

雪山飞狐_lzh 发表于 2009-10-21 18:24:00

<p>直线方程?看线性代数书去</p>直线外一点到直线的距离？<p>p2&nbsp; = line.GetClosePointTo(p1)求出点到直线的最近点p2</p><p>距离就是(p2-p1).Length</p>

tryhi 发表于 2021-9-2 18:26:43

;;求两个点的直线方程
;;返回(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 发表于 2021-9-2 23:21:48

哈哈哈，哪个版都能看到lisp的回复
页: [1]
查看完整版本: [求助]已知2点坐标如何求直线方程？