wish2008 发表于 2010-4-20 10:07:00

为什么鼠标右键不起作用?

<p>;;这是一段插入阀门的时候,调整阀杆方向的函数</p><p>;;以前在鼠标右键AUTOCAD R14中用,没有问题。现在AUTOCAD2006中,鼠标右键不起作用了,只能按ESC退出,而且中断了后面的程序运行。</p><p>(DEFUN ROTA-FM-1 ()<br/>&nbsp; (PRINC "\n选择阀杆朝向: &lt;左键调试/右键结束&gt;...")<br/>&nbsp; (SETQ KEY "")<br/>&nbsp; (WHILE (/= KEY "右键")<br/>&nbsp;&nbsp;&nbsp; (SEL-KEY)<br/>&nbsp;&nbsp;&nbsp; (IF (= KEY "左键") (COMMAND "OSNAP" "NONE" "ROTATE" "L" "" PT0 "180"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (COMMAND "REDRAW")<br/>)<br/>&nbsp; </p><p>;;请高手帮忙调整一下。</p>
页: [1]
查看完整版本: 为什么鼠标右键不起作用?