如何判段两线段是否平行

lead009

我想要判断两个线段是否平行原本想用以下副程式去做斜率的判断
  (defun tanxy(en / );;斜率
    (setq data(entget en));;en需是x物件
    (setq p10(cdr (assoc 10 data)))
    (setq p11(cdr (assoc 11 data)))
    (setq x(- (car p11) (car p10)))
    (setq y(- (cadr p11) (cadr p10)))
    (setq tanxx(/ x y))
  )


但是后来想到同样的角度，起点、终点不同，斜率就会有正负之分。
如此一来，即便是相同角度的线段，也会被判断为不同角度的。

请问这家，这个问题，有什么方法可以解决??


(另外问个小问题, 这个论坛能设定说，有人回履就会传电子信箱邮件通知吗??)

Andyhon

(equal
  (rem (angle pa pb) Pi) ; ent1
  (rem (angle pc pd) Pi ) ; ent2
  1e-4
)
;; 359.9..... 度的情况得另外处理

chpmould

Andyhon 发表于 2011-4-29 22:34
(equal
  (rem (angle pa pb) Pi) ; ent1
  (rem (angle pc pd) Pi ) ; ent2

请教1e-4是什么意思？

caoyin

回复 chpmould 的帖子

科学计数法，可以用下面的方法理解：
1E-4 就是小数点向前位移4位-------〉0.0001
1E+4 就是小数点向后位移4位-------〉10000
5E+2------〉500

caoyin

(not (inters pt1 pt2 pt3 pt4 nil))也行
但angle的算法更快

lead009

有没有什么方式，可以把我计算出来的斜率，全部都转为正值。
就像是数学里面的绝对值那样呢?

如此，即便是起点、终点相反，这样也不会有相同角度，却判断为不同角度的问题发生了。

lenlenq

直线的斜率好象只有一个。是两个坐标差的比值。

caoyin

(defun C:TT (/ E1 E2 A1 A2 ANG)
(if (and (setq E1 (entsel "\n选择第一条直线: "))
         (setq E2 (entsel "\n选择第二条直线: ")))
(progn
(setq E1  (entget (car E1))
      E2  (entget (car E2))
      A1  (angle (cdr (assoc 10 E1))
                 (cdr (assoc 11 E1))
          )
      A2  (angle (cdr (assoc 10 E2))
                 (cdr (assoc 11 E2))
          )
      ANG (abs (- A1 A2))
)
(if (or (equal ANG 0 1E-4)
        (equal ANG PI 1E-4)
        (equal ANG (* PI 2) 1E-4))
  (alert "两直线平行。")
))))

AMTONNY

学习了，做个记号

lead009

回复 lenlenq 的帖子

同樣45度，第一象限跟第三象限不就差了一個負號嗎

m=x/y