帮忙看一下这程序有什么漏洞

mcxiangxin

请帮忙看一下这程序有什么漏洞:我画了二条平行线.用下面的程序去检查是否平行.但有些时候,明明平行的二直线,也会说不是平行呢?我的程序的漏洞到底在哪里呀?

(defun c:ff( / ang1 ang2 obj1 obj2 pt1 pt2 pt3 pt4)
(setq obj1 (car (entsel "请选择一个直线")))
(setq pt1 (trans (cdr(assoc 10 (entget obj1))) 0 1))
(setq pt2 (trans (cdr(assoc 11 (entget obj1))) 0 1 ))
(setq ang1 (angle pt1 pt2))
(setq obj2 (car (entsel "请选择一个直线")))
(setq pt3 (trans (cdr(assoc 10 (entget obj2))) 0 1))
(setq pt4 (trans (cdr(assoc 11 (entget obj2))) 0 1))
(setq ang2 (angle pt3 pt4))
(if (= ang1 ang2)
(alert "二线平行")
(alert "二线不平行")
)
)

ZZXXQQ

(if (equal ang1 ang2 0.001)
(alert "二线平行")
(alert "二线不平行")
)

sailorcwx

向左走，向右走

mcxiangxin

为什么会出现上面那种现象呢?明明是一样的角度,却又有一点小小的差别呢?

carrot1983

按3楼的。。

你两点之间的角度要取锐角。。。

mcxiangxin

谢谢,明白了,我的那二个ang1 和ang2之间,有可能是相等,也有可能相差180度

sailorcwx

我觉得求交点比较实际。两条平行线是没有交点的

mcxiangxin

7楼大哥说得有理呀!