判断两直线是否平行

炫翔 · 发表于 2013-11-4 17:19:03

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

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

×

;判断两直线是否平行
;(xx-l-pd-hv s1 s2 full)
;s1 s2 full 直线1 直线2 精度
(defun xx-l-pd-hv(s1 s2 full / a ang1 ang2 ang3 ang4 p1 p11 p2 p22 dxf)
(defun dxf (dxf s1)
(cdr (assoc dxf (entget s1)))
)
(setq p1 (dxf 10 s1)
p2 (dxf 11 s1)
p11 (dxf 10 s2)
p22 (dxf 11 s2)
)
(setq ang1 (angle p1 p2)
ang2 (angle p11 p22)
ang3 (angle p2 p1)
ang4 (angle p22 p11)
)
(if(or(equal ang1 ang2 full)(equal ang3 ang4 full)
(equal ang1 ang4 full)(equal ang2 ang3 full)
)
t
nil
)
)

newer · 发表于 2013-11-4 17:24:41

写一个点到直线距离的函数，然后用两点到另外直线的距离相等判断是否平行，是不是更通用些。

st788796 · 发表于 2013-11-4 17:44:59

角度 Rem 判断 equal

snsj · 发表于 2013-11-4 17:58:08

(defun pdpx(en1 en2 / bb kj)
  (setq kj(mapcar 'vlax-ename->vla-object(list en1 en2)))
  (if(null(vlax-invoke (car kj) 'intersectwith (cadr kj) acExtendBoth))
(setq bb t)(setq bb nil)
)bb
  )

st788796 · 发表于 2013-11-4 18:01:22

snsj 发表于 2013-11-4 17:58
(defun pdpx(en1 en2 / bb kj)
(setq kj(mapcar 'vlax-ename->vla-object(list en1 en2)))
(if(null( ...

用 (inters p1 p2 p3 p4 nil) 省得转换了

/db_自贡黄明儒_ · 发表于 2013-11-4 18:45:12

我也常用楼上的方法判断

Lisper · 发表于 2013-11-4 19:33:29

newer 发表于 2013-11-4 17:24
写一个点到直线距离的函数，然后用两点到另外直线的距离相等判断是否平行，是不是更通用些。

两点到另外直线的距离相等并不能判断就是平行！

newer · 发表于 2013-11-4 19:35:53

Lisper 发表于 2013-11-4 19:33
两点到另外直线的距离相等并不能判断就是平行！

平面内实体，有反例吗？

st788796 · 发表于 2013-11-4 19:36:10

本帖最后由 st788796 于 2013-11-4 19:39 编辑

以上说的都是同一平面内的，异面空间线就要增加条件了

Lisper · 发表于 2013-11-4 19:37:31

newer 发表于 2013-11-4 19:35
平面内实体，有反例吗？

两点分别在直线两侧则不成立！

ll_j · 发表于 2013-11-4 20:20:26

直线有2D的，有3D的，对于2D的直线，使用inters函数足以搞定，对于3D的直线，inters函数就勉为其难了，我想，可以使用3点（端点、中点）到另一直线的距离是否相等来判断，至于点到直线的距离，记得高飞鸟曾经在一个关于矩阵的帖子里有过这种讨论。

snsj · 发表于 2013-11-5 04:20:48

3D也无所谓，先判断共面再 INTERS

st788796 · 发表于 2013-11-5 09:28:58

本帖最后由 st788796 于 2013-11-5 09:30 编辑

查了查资料，空间直线平行通用的判断方法用方向矢量(单位向量)，相等或者和为 (0.0 0.0 0.0)

真龙天子 · 发表于 2013-12-1 23:57:07

先取得直线的起点和端点,再用angle求得两直线的弧度值,比较两直线的弧度是否相等或相差1pi,是就是平行的否则就不平行.

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

[原创] 判断两直线是否平行

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

评分

点评

评分

点评

评分

评分

点评

点评