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

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

已知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的回复
页: [1]
查看完整版本: [求助]已知2点坐标如何求直线方程?