[求助]请大家帮我看一下，这个rr为什么不能加一个数

fedd

从圆的图元元素里的半径，不能用作运算，我想加上一个数却不行。代码是我想画垂直两条比圆直径稍微长一点的中心线，可是下面的代码画出来的是两条直径，请专家诊断：
(defun c:zxx()
(setvar "cmdecho" 0)
(setq en(entsel "选取一个圆:"))
(setq en_data(entget(car en)))
(setq www(assoc 40 en_data))
(setq rr(cdr www))
(setq tt(+ (/ rr 10 ) rr 2))
(setq cp(cdr(assoc 10 en_data)))
(setq pe(polar cp 0 tt))
(setq pn(polar cp (* 0.5 pi) tt))
(setq pw(polar pe pi (+ tt tt)))
(setq ps(polar pn (* 1.5 pi) (+ tt tt)))
(command ".layer" "m" "zxx" "c" "3" "" "")
(command "line" pe pw "")
(command "line" pn ps "")
(princ)
)  
大家注意我要画的中心线比直径长

caoyin

(setvar "osmode" 0)

05625lcc

这种问题很常见,往往都是捕捉惹的祸.所以程序最好都这样写

(

  (setq osm (getvar "osmode"))

  (setvar "osmode" 0)

  ......

  (setvar "osmode" osm)

)

fedd

一大清早就看到有人替我摆平了，高兴死了，真想给你一个热吻，啵~~~~~~~~~~~~~ 啵~~~~~~~~~

庞琛虹

好 好