如何确定点到直线距离

jxncxu

已知直线上的两点坐标,另一点(直线外)由用户输入,请问,据此如何确定点到直线距离

罗jz

用curve类

wzz1968

平面几何中点到直线的距离不是讲过了吗

先计算直线方程的参数,再用公式计算.

 

jxncxu

(defun $xdlsp_txtbrk (e pt / e0 e1 p10 le le0 le1 p1 px a a1 d d1 dx dm i i1
   txt txt1 cha tfhz tf pos
       )
  (xdrx_setenttodb e)
  (if (= "TEXT" (xdrx_getentdxf 0))
    (progn
      (setq _pi2 (/ pi 2)
     le0 (entget e)
     e1 (assoc 1 le0)
     txt (cdr e1)
     p10 (assoc 10 le0)
     p1 (cdr p10)
     a (cdr (assoc 50 le0))
     a1 (+ a _pi2)
     px (trans pt 1 0)
     dx (xdrx_p2ldist px p1 (polar p1 a1 [I]1e3[/I]))  ;;此处的1e3代表什么?
      )
      (setq dm (caadr ($xdlsp_textbox le0))

......................