fedd 发表于 2008-12-19 16:37:00

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

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

caoyin 发表于 2008-12-19 19:44:00

<p>(setvar "osmode" 0)</p>

05625lcc 发表于 2008-12-19 19:58:00

<p>这种问题很常见,往往都是捕捉惹的祸.所以程序最好都这样写</p><p>(</p><p>&nbsp; (setq osm (getvar "osmode"))</p><p>&nbsp; (setvar "osmode" 0)</p><p>&nbsp; ......</p><p>&nbsp; (setvar "osmode" osm)</p><p>)</p>

fedd 发表于 2008-12-20 07:46:00

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

庞琛虹 发表于 2008-12-20 08:52:00

haha

<p>好 好</p>
页: [1]
查看完整版本: [求助]请大家帮我看一下，这个rr为什么不能加一个数