判断两直线是否平行

炫翔

2. ;判断两直线是否平行
   
3. ;(xx-l-pd-hv s1 s2 full)
   
4. ;s1 s2 full 直线1 直线2 精度
   
5. (defun xx-l-pd-hv(s1 s2 full / a ang1 ang2 ang3 ang4 p1 p11 p2 p22 dxf)
   
6. (defun dxf (dxf s1)
   
7.    (cdr (assoc dxf (entget s1)))
   
8. )
   
9. (setq p1 (dxf 10 s1)
   
10.        p2 (dxf 11 s1)
    
11.        p11 (dxf 10 s2)
    
12.        p22 (dxf 11 s2)
    
13. )
    
14.   (setq ang1 (angle p1 p2)
    
15.   ang2 (angle p11 p22)
    
16.   ang3 (angle p2 p1)
    
17.   ang4 (angle p22 p11)
    
18.   )
    
19. (if(or(equal ang1 ang2 full)(equal ang3 ang4 full)
    
20.        (equal ang1 ang4 full)(equal ang2 ang3 full)
    
21.     )
    
22.    t
    
23.    nil
    
24. )
    
25. )

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

newer

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

st788796

角度 Rem 判断 equal

snsj

(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

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_自贡黄明儒_

我也常用楼上的方法判断

Lisper

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

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

newer

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

平面内实体，有反例吗？

st788796

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

Lisper

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

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

ll_j

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

snsj

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

st788796

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

真龙天子

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