461045462 发表于 2010-10-3 23:33:00

[求助]如何消除setq给的结果 已解决

本帖最后由 作者 于 2010-10-5 6:24:35 编辑 <br /><br /> <p>在cad作图是，有时需要给一个数字加上前缀，有时又不需要。如果不加前缀命令，一个一个的敲很麻烦，我加载后，在不需要时，却不知道要如何消除，也就是前缀为空的。</p>
<p>见下面：</p>
<p>&nbsp;<font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(if k<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq k "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )</font></p>
<p>&nbsp;&nbsp;&nbsp;&nbsp; <font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(setq nk (getstring (strcat "\n请输入前缀&lt;" k "&gt;: " )))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (/= nk "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq k nk)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp; </font></p>
<p>&nbsp;&nbsp;&nbsp; 请问要如何修改，望高手指教。</p>
<p>谢谢</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>已解决</p>

crazylsp 发表于 2010-10-4 17:58:00

本帖最后由 crazylsp 于 2011-4-21 11:30 编辑 <br /><br /><FONT face=Verdana>我也是瞎掰, 思路参考哈<BR>&nbsp;<BR>&nbsp;(initget "K KK")<BR></FONT>

461045462 发表于 2010-10-5 06:24:00

crazylsp发表于2010-10-4 17:58:00static/image/common/back.gif我也是瞎掰, 思路参考哈&nbsp;&nbsp;(initget \"K KK\")&nbsp; (setq i (getkword \"\n&lt;要加前缀(K)&gt;/&lt;不加前缀(KK)&gt;:\"))&nbsp; (if (= i \"K\")&nbsp;&nbsp; (while &nbsp;&nbsp


<p>谢谢您的答复。</p>
<p>学习了，我没有想到用这样的办法。</p>
<p>我后来采取了判断的方式解决。</p>
<p>谢谢</p>
页: [1]
查看完整版本: [求助]如何消除setq给的结果 已解决