帮我看看这个双向偏移出现什么问题了

a4587332

(defun c:qq ()

(setvar "cmdecho" 0)
(setq en (entsel))
  (setq en_data (car en))
  (setq lie (entget en_data))
  (setq p1 (assoc 10 lie))
  (setq p2 (assoc 11 lie))
  (setq x1 (cadr p1))
  (setq x2 (cadr p2))
  (setq p0 (cadr en))
  (setq jl (getint "\n输入一段距离:"))
  (if (= x1 x2)
         (progn
        (setq q1 (polar p0 (* pi 0.5) jl))
        (setq q2 (polar p0 (* pi 1.5) jl))
        (command "offset" jl en_data q1 en_data q2)
        (princ)
                     )
           (progn
        (setq q1 (polar p0 0 jl))
        (setq q2 (polar p0 pi jl))
        (command "offset" jl en_data q1 en_data q2)
        (princ)
              )

                 )



(princ)


  )

Andyhon

Try
(= x1 x2)
==>
(equal x1 x2 1e-6)

a4587332

Andyhon 发表于 2014-6-6 18:17
Try
(= x1 x2)
==>

刚学
看不懂~~~~

Andyhon

X1 X2 是 浮点数 用 = 返回值未必正确