[TB-LISP函数]：点pt到直线(pt1 pt2)的距离

tengteb · 发表于 2017-7-27 13:08:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 tengteb 于 2017-7-27 13:15 编辑

  ;点pt到直线(pt1 pt2)的距离
(defun TBC:PtoL       (pt pt1 pt2 / a b c s x d)
  (setq       a (distance pt1 pt2)
      b (distance pt pt1)
      c (distance pt pt2)
  )
  (if (= a 0)
(setq d b)
(setq s (* 0.5 (+ a b c))
      x (abs (* s (- s a) (- s b) (- s c)))
      d (/ (sqrt x) a 0.5)
)
  ) ;and
  d
) ;defun

牢固 · 发表于 2017-7-27 15:50:06

本帖最后由牢固于 2017-7-27 15:51 编辑

再提供两种方法：
1.

(defun gxl-PerDistToLine (pt p1 p2)
(car (trans (mapcar '- pt p1) 0 (mapcar '- p2 p1)))
)

2.

(defun gxl-PerDistToLine ( pt p1 p2 / norm )
(setq norm (mapcar '- p2 p1)
p1 (trans p1 0 norm)
pt (trans pt 0 norm)
)
(- (car pt) (car p1))
)

两种方法原理一致，第一种写法更简洁，返回的距离值的几何意义：若距离大于零，点在直线左侧，小于0则在右侧，等于0，三点共线。

yoyoho · 发表于 2017-7-27 20:28:03

感谢分享学习！！！

yfanziyfanzi · 发表于 2017-7-27 20:50:30

写个框选点，批量输出到已知直线的距离，左负右正，结果输出到EXCELL的程序就好了。采集断面数据就方便多了。

sicky111 · 发表于 2017-7-29 00:08:32

谢谢分享。

fan_zh · 发表于 2017-7-31 10:50:35

马克，谢谢分享

账号		自动登录	找回密码
密码			立即注册

[每日一码] [TB-LISP函数]：点pt到直线(pt1 pt2)的距离

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

浏览过的版块