[求助]：如何判断两条直线是否垂直?

li_seagull · 发表于 2005-8-17 12:17:11

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

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

×

如何判断两条直线是否垂直?

小不点儿 · 发表于 2005-8-17 12:46:00

分别选择直线，查看特性，两直线角度差为90度即垂直

vang8866 · 发表于 2005-8-17 14:17:40

(defun c:test(/)
  (setq ss01 (nentsel "\n 选择直线1："))
  (setq ss02 (nentsel "\n 选择直线2："))
  (setq ss03(vlax-ename->vla-object (car ss01)))
  (setq ss04(vlax-ename->vla-object (car ss02)))
  (setq ss05 (vla-get-angle ss03))
  (setq ss06 (vla-get-angle ss04))
  (setq ss07 (/(*(abs(- ss05 ss06))180)pi))
  (prompt "角度是:")
  (princ ss07)
  (princ))

伤心鱼哥哥 · 发表于 2005-8-19 16:24:15

量一下角度就可以了嘛

x2815s · 发表于 2005-8-19 19:40:24

四楼说得多简单明了

Benzluck · 发表于 2005-8-22 13:48:34

方法一。两条线的向量的夹角求出，判断是否等于90度。

方法二。对于向量，好像有一个类似于isp....的函数，可以直接得到是否垂直

青马 · 发表于 2005-8-22 21:43:57

高中不是学过吗，两条直线垂直，斜率的乘积为-1

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

[求助]：如何判断两条直线是否垂直?

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

相关帖子

浏览过的版块