[日积月累]：鼠标键盘事件的标准响应程序

ulganix

;;;鼠标键盘事件的标准响应程序
;;;=============================================================================================================
;;;使用方法
;;;(mousekey "mouse_move" "mouse_left" mouse_right" '((键盘编码 . "keyfunc")(键盘编码 . "keyfunc2")))
;;;对不同的鼠标键盘动作调用不同的程序
(defun mousekey        (m5 m3 m11 klist  / tmp txt e pt)
  
  (setq        txt ""

  )
  (if klist
    (progn

      (foreach e klist
        (setq txt
               (strcat txt
                       "((= (cadr tmp) "
                       (itoa (car e))
                       ")"
                       "(eval ("
                       (cdr e)
                       "))"
                       ")"
               )
        )
      )
      (setq txt (strcat "(cond " txt ")"))
    )
    (setq txt nil)
  )
  
  (foreach e klist
    (if        (= " " (chr (car e)))
      (setq info

             (strcat info
                     "space"
                     "-"
                     "运行"
                     (cdr e)
                     "; "
             )
      )
      
    )

  )



  (setq test t)
  (while test
    (setq tmp (grread t 4 2))
    (cond
      ;;动鼠
      ((= (car tmp) 5)
                               
       (if m5

         (progn
           (setq pt (cadr tmp))
           (eval (read (strcat "(" m5 " pt" ")")))
         )

       )
      )
      ;;左鼠
      ((= (car tmp) 3)
       (if m3
         (progn
           (setq pt (cadr tmp))
           (eval (read (strcat "(" m3 " pt)")))
         )
       )
      )
      ;;右鼠
      ((= (car tmp) 25)

       (if m11
         (progn
                               
           (eval (read (strcat "(" m11 " pt)")))
         )
       )
      )
      ;;键盘
      ((= (car tmp) 2)

       (if txt                       
         (eval (read txt))
       )
      )
    )
  )
)

；；使用这个函数可以轻松组织自己的代码，让程序对cad事件自动响应，希望和大家一起探讨学习。

bddlwzh

这些都是书上现成的，最好编一个响应鼠标滚轮的程序。

ulganix

这个函数是我自己写的，不知哪本书上有呢？
当时的主要想法是能够自由的在取点操作和关键字选择之间切换，比如：
请选择插入点[(S)设置半径；(A)添加箭头]:
鼠标中键滚轮我一般用来缩放视图，2楼有什么特殊的想法需要这样实现吗？

zhang8755

看看我这个程序吧
http://www.xdcad.net/forum/showthread.php?threadid=556801
可以获得鼠标滚轮的消息

swc00

看看

qjcpj

感谢提供资料，学习一下。