点到直线距离

wrsxed

(defun point_dist (pt p1 p2 / dist)
  (setq        x1   (car p1)
        y1   (cadr p1)
        x2   (car p2)
        y2   (cadr p2)
        x    (car pt)
        y    (cadr pt)
        dist 0.0
  )
    (setq dist (/ (+ (- (* x (- y2 y1)) (* y (- x2 x1)))
                     (- (* y1 (- x2 x1)) (* x1 (- y2 y1)))
                  )
                  (sqrt (+ (expt (- y2 y1) 2) (expt (- x2 x1) 2)))
               )
    )
）

qyming2000

;;功    能：求出点到起点与终点确定线段的距离.                                  ;
;;调用格式：($YF_P2DP <点坐标> <起点坐标> <终点坐标>)                          ;
;;返 回 值：距离，为正时，点位在线端的上方，为负时在线端的下方。               ;
(Defun $YF_P2DP        (pt sp ep)
  (car (trans (mapcar '- pt sp) 0 (mapcar '- ep sp)))
)