[求助]这个程序如何实现鼠标左键退出
本帖最后由 作者 于 2008-4-21 6:54:01 编辑 <br /><br /> <p></p> 本帖最后由 作者 于 2008-4-21 2:54:09 编辑 <br /><br /> <p>(DEFUN C:JDX ()<br/> (if (and <font color="#a0a0a0"><font color="#ff0000">(setq ent (entsel "选择基线："))</font><br/></font> (setq A (getpoint "请输入起点："))<br/> (setq c (getangle "请输入角度："))<br/> )<br/> (progn<br/> <font color="#f70909"> (setq ent (car ent))</font><br/> (setvar "cmdecho" 0)<br/> (setq os (getvar "osmode"))<br/> (setvar "osmode" 1)<br/> (setq d1 (cdr (assoc 10 (entget ent))))<br/> (setq d2 (cdr (assoc 11 (entget ent))))<br/> (setq j1 (angle d1 d2))<br/> (setq y0 (nth 1 A))<br/> (setq q 0)<br/> (setq x0 (car a))</p><p>.....</p> <p><strong><font face="Verdana" color="#61b713">caoyin</font></strong></p><p><strong><font face="Verdana" color="#61b713">虽然实现了左键退出，但是我画的东西也不见了</font></strong></p> 那是你程序自身有缺陷，是entdel的原因吧。没细看程序，不知道你的目的是什么 本帖最后由 作者 于 2008-4-21 6:57:57 编辑 <br /><br /> <p>就是一个拖动画角度线程序</p><p>使用SNAPANG会有光标的变化四个方向都可以画</p><p>我改成现在这样就只有两个方向划线而且光标不会变化，这样我就可以做得像PCCAD一样了</p><p>现在的问题是划好线后，必须使用右键才能存在刚画的线，使用左键的话，就不能退出程序</p><p>有没有鼠标反应的函数？用一个就可以了</p> <p>类似问题</p><p>(DEFUN ROTA-FM-1 ()<br/> (PRINC "\n选择阀杆朝向: <左键调试/右键结束>...")<br/> (SETQ KEY "")<br/> (WHILE (/= KEY "右键")<br/> (SEL-KEY)<br/> (IF (= KEY "左键") (COMMAND "OSNAP" "NONE" "ROTATE" "L" "" PT0 "180")PAUSE)<br/> )<br/> (COMMAND "REDRAW")</p><p>)</p><p>鼠标左键可以调试，但是鼠标右键没有反应，只能按ESC强行退出</p><p>请高手指点。</p><p></p>
页:
[1]