bearbear1 发表于 2010-6-25 10:59:00

字符串取值问题 错在哪??

<font face="Verdana">(defun c:tt ()<br/>&nbsp;(setq q (getreal "please one "))<br/>&nbsp;<br/>&nbsp;<br/>&nbsp;&nbsp;(if (= 0 (substr (rtos q) 2 1)) <br/>&nbsp;&nbsp;(setq str (strcat "0" (substr (rtos q) 1 1 )));200取02 ?????????????可惜结果都是20<br/>&nbsp;&nbsp;(setq str (substr (rtos q) 1 2 )) ;350变35<br/>&nbsp;&nbsp;) <br/>&nbsp;&nbsp;<br/>)</font>

bearbear1 发表于 2010-6-25 10:59:00

<p>输入200想出结果02</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

bearbear1 发表于 2010-6-25 11:37:00

<p><font face="Verdana"><br/>(defun c:tt ( )<br/>&nbsp;<br/>&nbsp;(setq tg (getreal "num")); 200,250<br/>&nbsp;<br/>&nbsp;(if (/= 0 (substr (rtos tg) 2 1)) <br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq g (substr (rtos tg) 1 2)) <br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq b (substr (rtos tg) 1 1))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq b (strcat&nbsp; "0" b))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; );endif<br/>&nbsp;;(list b)<br/>&nbsp;(princ)<br/>)<br/></font></p>
<p>&nbsp;</p>
<p>;&nbsp; 输入200 结果子 空值？？</p>

Andyhon 发表于 2010-6-25 12:58:00

<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(if (/= 0 (substr (rtos tg) 2 1))</font></p>
<p>=&gt;</p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(if (/= "0" (substr (rtos tg) 2 1))</font></p>

bearbear1 发表于 2010-6-25 14:06:00

<p>总有好心人，非常感谢</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
页: [1]
查看完整版本: 字符串取值问题 错在哪??