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

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

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

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

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

tryhi · 发表于 2021-9-2 18:26:00

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

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

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

发表回复

精选推荐