abc213 发表于 2006-7-14 00:11:00

autolisp输入方面的疑问

<P>请教一下：我发现cad的“pl”命令可以同时接受鼠标点击或者键盘输入字符，比如选了几个点后，命令行提示:</P>
<P>&nbsp;&nbsp; <FONT color=#e61a1a>" Arc/Close/Halfwidth/Length/Undo/Width/&lt;Endpoint of line&gt;: &nbsp; "</FONT></P>
<P>&nbsp; 这时既可以输入字符c来闭合，也可以鼠标继续抓点。</P>
<P>&nbsp; 我想设计一个类似功能的程序，可是无论getpoint,或是getstring都不能同时做到上面这样。请教各位高手。</P>

ZZXXQQ 发表于 2006-7-14 10:59:00

本帖最后由 作者 于 2006-7-14 14:23:41 编辑


(INITGET 128 "Arc Close Halfwidth Length Undo Width ")
(SETQ PT (GETPOINT ""Arc/Close/Halfwidth/Length/Undo/Width/<Endpoint of line>:"))
(COND
((= PT "Arc") ......)
((= PT "Close") ......)
((= PT "Halfwidth") ......)
((= PT "Length") ......)
((= PT "Undo") ......)
((= PT "Width") ......)
(T ......)
)
还是龙版主写得对。

龙龙仔 发表于 2006-7-14 12:18:00

(initget 128 "Arc Close Halfwidth Length Undo Width ")<BR>(setq<BR>&nbsp; PT (getpoint<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Arc/Close/Halfwidth/Length/Undo/Width/&lt;Endpoint of line&gt;: "<BR>&nbsp;&nbsp;&nbsp;&nbsp; )<BR>)<BR>(cond<BR>&nbsp; ((= PT "Arc") . . . . . .)<BR>&nbsp; ((= PT "Close") . . . . . .)<BR>&nbsp; ((= PT "Halfwidth") . . . . . .)<BR>&nbsp; ((= PT "Length") . . . . . .)<BR>&nbsp; ((= PT "Undo") . . . . . .)<BR>&nbsp; ((= PT "Width") . . . . . .)<BR>&nbsp; (t . . . . . .)<BR>)<BR>
页: [1]
查看完整版本: autolisp输入方面的疑问