[求助]：帮我看看这段程序，为什么结果不一样

CFXQM

(defun c:test (/ ent1 ent2 pt11 pt12 pt21 pt22 ang1 ang2
            )
  (prompt "选择第一条线")
  (setq ent1 (entget (car (entsel))))
  (prompt "选择第二条线")
  ;;;取得两条线段的三个点
  (setq ent2 (entget (car (entsel))))
  (setq pt11 (cdr (assoc 10 ent1)))
  (setq pt12 (cdr (assoc 11 ent1)))
  (setq pt21 (cdr (assoc 10 ent2)))
  ;;;判断三个点是否在一条直线上
  (setq ang1 (angle pt11 pt21))
  (setq ang2 (angle pt12 pt21))
  (princ "\nang1=:")
  (princ ang1)
  (princ "\nang2=:")
  (princ ang2)
  (if (= ANG1 ANG2)
    (princ "\nOK")       ;;;在一条直线上打印"OK"
    (princ "\nERROR")       ;;;不在一条直线上打印"ERROR"
  )
  (princ)
)


在图上画一条LINE，然后beark成两条线段，执行TEST程序，发现点取线段的次序不一样，结果不一样。比如说先点左边的线段，后点右边的线段，显示"OK"，先点右边的线段，再点左边的线段，显示"ERROR"。为什么？角度一样啊

cy956

线的起终点方向不一样？

CFXQM

无论PT11、PT12是直线的哪个点，和另一条直线的任一端点的角度应该是一样的啊，而且打印出来的数据也是一样的，即ANG1=ANG2。但是即使ANG1=ANG2，执行IF语句后结果也不一样。为什么？

mmmm

先右后左时，ANG1,ANG2的值为pi,
不要用=,建议使用eq or equal
两次计算出来的p可能有微小的误差

先左后右时，ANG1,ANG2的值为0,
就没有误差的问题了

CFXQM

是误差问题。我将(if (= ANG1 ANG2)改成(if (equal ANG1 ANG2 0.0000001)，原来显示ERROR的情况也显示OK了。