jimzhoujim 发表于 2008-8-17 14:09:00

getkword的使用问题

<p>我想实现像画圆一样的功能,</p><p>比如输入C之后,</p><p>指定圆的圆心或（半径）</p><p>我不用选择参数就可以直接指定圆心,也可以输入参数选"半径",</p><p>用getkword的话要怎么实现呢?</p><p>请高手指教</p>

ZZXXQQ 发表于 2008-8-17 14:27:00

<p>在INITGET函数后，不要用GETKWORD，直接用GETPOINT就可以输入另外的KEY。</p><p>先看看INITGET函数说明。</p>

jimzhoujim 发表于 2008-8-17 14:38:00

<p>谢谢版主,搞了一上午,还是看书不够啊</p>

jimzhoujim 发表于 2008-8-17 16:08:00

<p>(defun c:vv()<br/>(setq n 0)<br/>(setq m 0)<br/>(setq dd1(getpoint "\npoint dd1"))</p><p>(while <br/>(initget "v")<br/>(setq dd2 (getpoint dd1 "\npointdd2"))<br/>(setq m (distance dd1 dd2))<br/>(print m)<br/>(setq n (+ n m)<br/>(if = (dd2 "v")<br/>(setq dd1 (getpoint "\npoint dd1"))<br/><br/>)<br/>(print n)<br/>)<br/>)</p><p></p><p></p><p>写了个量线的程序,老是有问题,各位帮忙看看啊</p>

ZZXXQQ 发表于 2008-8-17 16:31:00

<p>1、(if = (dd2 "v") 改成 (if (= dd2 "v")</p><p>2、 改成 (setq dd1 dd2)<br/></p>
页: [1]
查看完整版本: getkword的使用问题