[求助]这个程序如何实现鼠标左键退出

董堃 · 发表于 2008-4-21 02:40:00

本帖最后由作者于 2008-4-21 6:54:01 编辑

caoyin · 发表于 2008-4-21 02:53:00

本帖最后由作者于 2008-4-21 2:54:09 编辑

(DEFUN C:JDX ()
(if (and (setq ent (entsel "选择基线："))
           (setq A (getpoint "请输入起点："))
           (setq c (getangle "请输入角度："))
      )
    (progn
      (setq ent (car ent))
      (setvar "cmdecho" 0)
      (setq os (getvar "osmode"))
      (setvar "osmode" 1)
      (setq d1 (cdr (assoc 10 (entget ent))))
      (setq d2 (cdr (assoc 11 (entget ent))))
      (setq j1 (angle d1 d2))
      (setq y0 (nth 1 A))
      (setq q 0)
      (setq x0 (car a))

.....

董堃 · 发表于 2008-4-21 04:48:00

caoyin

虽然实现了左键退出，但是我画的东西也不见了

caoyin · 发表于 2008-4-21 05:50:00

那是你程序自身有缺陷，是entdel的原因吧。没细看程序，不知道你的目的是什么

董堃 · 发表于 2008-4-21 06:46:00

本帖最后由作者于 2008-4-21 6:57:57 编辑

就是一个拖动画角度线程序

使用SNAPANG会有光标的变化四个方向都可以画

我改成现在这样就只有两个方向划线而且光标不会变化，这样我就可以做得像PCCAD一样了

现在的问题是划好线后，必须使用右键才能存在刚画的线，使用左键的话，就不能退出程序

有没有鼠标反应的函数？用一个就可以了

wish2008 · 发表于 2010-4-20 14:29:00

类似问题

(DEFUN ROTA-FM-1 ()
(PRINC "\n选择阀杆朝向: <左键调试/右键结束>...")
(SETQ KEY "")
(WHILE (/= KEY "右键")
    (SEL-KEY)
    (IF (= KEY "左键") (COMMAND "OSNAP" "NONE" "ROTATE" "L" "" PT0 "180")PAUSE)
    )
(COMMAND "REDRAW")

)

鼠标左键可以调试，但是鼠标右键没有反应，只能按ESC强行退出

请高手指点。

账号		自动登录	找回密码
密码			注册

[求助]这个程序如何实现鼠标左键退出

本帖子中包含更多资源