liuyilin 发表于 2006-7-16 10:22:00

[求助]command "text"问题

<P>(defun c:test ()<BR>&nbsp; (setq point (getpoint "\n 指定文字的起点:"))<BR>&nbsp; (setq string (+ TL L));string通过TL和L计算出来<BR>&nbsp; (command "text" point "" "" string)<BR>)</P>
<P>上面的程序只能显示 string,如果想在string前加上一段注释怎么办？<BR>例如string=15.5<BR>上面的程序显示 15.5<BR>我想显示:计算结果=15.5<BR>多谢<BR>我是新手<BR></P>

rongyifei 发表于 2006-7-16 12:18:00

<P>下面是我修改过的程式</P>
<P>(defun c:test ( / point tl l string)<BR>&nbsp; (setq point (getpoint "\n 指定文字的起点:")<BR>&nbsp;tl (getreal "\n输入加数:")<BR>&nbsp;l (getreal "\n输入被加数:")<BR>&nbsp;)<BR>&nbsp; (setq string (strcat "计算结果=" (rtos (+ tl l))));string通过TL和L计算出来<BR>&nbsp; (command "text" point "" "" string)<BR>&nbsp; (princ)<BR>)</P>

liuyilin 发表于 2006-7-16 13:06:00

<P>谢谢<A name=23815><FONT color=#000066><B>rongyifei</B></FONT></A>大虾</P>
<P>&nbsp;</P>
页: [1]
查看完整版本: [求助]command "text"问题