[求助]如何将各个字串结合在一起 已解决
本帖最后由 作者 于 2010-10-4 6:50:39 编辑 <br /><br /> <p> 由于作图需要，常要将字母与数字相结合在一起。如：字母F 与数字1 、2、3....合在一起，写成 F1、F2、F3.....等。</p><p>写了一个lsp，可是字母不能加在一起，只有数字。</p>
<p>见如下：</p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"> (defun c:111()<br/> (setq k (getstring "\n输入序号前缀（如：F ）: "))<br/> (setq n (getint "\n请输入当前点号："))</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"> (setq p (getpoint "\n选取点: "))</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"> (command "circle" p "0.08856")</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"> (setq p2 (polar p 1 1))</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"> (command "text" p2 "1" "0" n)<br/> )</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"> (prin1)</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"></font> </p>
<p> </p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"></font> </p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"> 要做出如下图式样</p>
<p><br/></p>
<p></font></p>
<p> </p>
<p>请高手帮助修改。</p>
<p>谢谢</p>
<p> </p>
<p> </p>
<p> </p>
<p> 已解决</p>
<p> </p>
<p> </p> (defun c:111()<br/> (setq k (getstring "\n输入序号前缀（如：F ）: "))<br/> (setq n (getint "\n请输入当前点号："))
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"> (setq p (getpoint "\n选取点: "))</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"> (command "circle" p "0.08856")</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"> (setq p2 (polar p 1 1))</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"> (command "text" p2 "1" "0" (strcat k (itoa n)))<br/> )</font></p> 本帖最后由 作者 于 2010-10-1 23:17:54 编辑 <br /><br /> <p> 谢谢<font face="Verdana" color="#61b713"><b>Gu_xl</b></font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana" color="#333333"><b> 可以 标注了。</b></font></p>
<p><strong><font color="#333333">还想请教一个问题：如何能让k、n在中断后，接着启动时，仍然按前面的序号前缀，接着点号+1的方式继续操作？因为有时操作要临时中断。</font></strong></p>
<p><strong><font color="#333333">另外，不知道能否设置两个层。当有序号前缀时，自动实行当前层为坐标F层，没有序号前缀时，自动实行当前层为坐标层？因为要区分开层次。</font></strong></p>
<p><strong><font color="#333333">望指教。谢谢</font></strong></p> <p><font face="Verdana"></font> </p>
<p><font face="Verdana">...有前缀时 <br/>(command "-layer" "n" "坐标F层" "") ;第一次要新建"坐标F层"层,以后不用再建<br/>(command "-layer" "s" "坐标F层" "") ;设为"坐标F层"成当前层<br/>...没前缀时<br/>(command "-layer" "s" "其它层名你" "") ;设其它层成当前层</font></p>
页:
[1]