a4587332 发表于 2014-6-6 18:07:28

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

(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 发表于 2014-6-6 18:17:04

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

a4587332 发表于 2014-6-6 18:36:59

Andyhon 发表于 2014-6-6 18:17 static/image/common/back.gif
Try
(= x1 x2)
==>


刚学
看不懂~~~~

Andyhon 发表于 2014-6-6 20:09:29

X1 X2 是 浮点数 用 = 返回值未必正确
页: [1]
查看完整版本: 帮我看看这个双向偏移出现什么问题了