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

[求助]请大家帮我看一下，这个rr为什么不能加一个数
www.dimcax.com
[求助]请大家帮我看一下，这个rr为什么不能加一个数从圆的图元元素里的半径，不能用作运算，我想加上一个数却不行。代码是我想画垂直两条比圆直径稍微长一点的中心线，可是下面的代码画出来的是两条直径，请专家诊断：
(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)
)
大家注意我要画的中心线比直径长
d
(setvar "osmode" 0)
d
这种问题很常见,往往都是捕捉惹的祸.所以程序最好都这样写
(
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
......
(setvar "osmode" osm)
)
d
一大清早就看到有人替我摆平了，高兴死了，真想给你一个热吻，啵~~~~~~~~~~~~~ 啵~~~~~~~~~
d
haha好 好
用好的心态学好来
d