lichh_2003 发表于 2006-10-25 09:20:00

求救：lisp连续画线时，怎么控制输入的选项

<P>求救：lisp连续画线时，比如用pline，要用输入点，可能我要提示画弧还是闭合还是撤消什么的，</P>
<P>怎么控制输入的选项啊</P>
<P>就是红色的交互数据怎么写可以？</P>
<P>(setq sp (getpoint "\n输入第一点::"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command"pline" Sp)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT color=#ff0000> (while&nbsp; (setq p (getstring "\n弧(A)/闭合(C)/撤消(U)/输入下一点&lt;右键结束&gt;:"))<BR></FONT>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command p)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P>

ZZXXQQ 发表于 2006-10-25 14:17:00

<P>这样应该可以满足要求了吧？</P>
<P>(COMMAND "PLINE")</P>
<P>(WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND PAUSE))</P>

bai2000 发表于 2019-1-20 17:47:21

连续划线时怎么再转为插入块？
页: [1]
查看完整版本: 求救：lisp连续画线时，怎么控制输入的选项