给移屏工具定义“左右箭头”快捷键

newer · 发表于 2018-1-8 15:53:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

看了老大的介绍用API给ACAD加钩子的帖子，
让LISP控制WINDOWS消息循环（给ACAD注入钩子）监控键盘鼠标消息
写个测试代码，
定义两个命令 c:viewleft 屏幕左移2/3屏，c:viewright 屏幕右移2/3屏幕。

然后定义快捷键 <- -> ,加载代码后，执行 hook_left_right ，就可以使用左右箭头来移动屏幕了。

箭头移屏.gif

(defun c:viewleft ()
(xdrx-vports2vporttablerecords)
(setq vi (xdrx-views-get)
cen (getvar "viewctr")
size (getvar "viewsize")
ratio (getvar "screensize")
w (* size (apply '/ ratio))
w1 (* 2 (/ w 3.0))
cen1 (mapcar '+ cen (list w1 0.0 0.0))
)
(xdrx-setpropertyvalue
vi "centerpoint" cen1 "height" size "width" w)
(xdrx-views-setcurrent vi)
)
(defun c:viewright ()
(xdrx-vports2vporttablerecords)
(setq vi (xdrx-views-get)
cen (getvar "viewctr")
size (getvar "viewsize")
ratio (getvar "screensize")
w (* size (apply '/ ratio))
w1 (* 2 (/ w 3.0))
cen1 (mapcar '- cen (list w1 0.0 0.0))
)
(xdrx-setpropertyvalue
vi "centerpoint" cen1 "height" size "width" w)
(xdrx-views-setcurrent vi)
)
(defun c:hook-viewleft-right ()
(defun _hook-3 (hwnd msg wparam lparam time pos)
(cond
((= msg WM_KEYDOWN)
(cond ((= wparam VK_LEFT)
(c:viewleft)
(xdrx-hook-block-messageloop t)
)
((= wparam VK_RIGHT)
(c:viewright)
(xdrx-hook-block-messageloop t)
)
)
)
)
)
(xd::hook:register "_hook-3" t "箭头移动屏幕热键")
)

(defun c:viewleft () 
  (xdrx-vports2vporttablerecords) 
  (setq        vi    (xdrx-views-get) 
        cen   (getvar "viewctr") 
        size  (getvar "viewsize") 
        ratio (getvar "screensize") 
        w     (* size (apply '/ ratio)) 
        w1    (* 2 (/ w 3.0)) 
        cen1  (mapcar '+ cen (list w1 0.0 0.0)) 
  ) 
  (xdrx-setpropertyvalue 
    vi "centerpoint" cen1 "height" size        "width"        w) 
  (xdrx-views-setcurrent vi) 
) 
(defun c:viewright () 
  (xdrx-vports2vporttablerecords) 
  (setq        vi    (xdrx-views-get) 
        cen   (getvar "viewctr") 
        size  (getvar "viewsize") 
        ratio (getvar "screensize") 
        w     (* size (apply '/ ratio)) 
        w1    (* 2 (/ w 3.0)) 
        cen1  (mapcar '- cen (list w1 0.0 0.0)) 
  ) 
  (xdrx-setpropertyvalue 
    vi "centerpoint" cen1 "height" size        "width"        w) 
  (xdrx-views-setcurrent vi) 
) 
(defun c:hook-viewleft-right () 
  (defun _hook-3 (hwnd msg wparam lparam time pos) 
    (cond 
      ((= msg WM_KEYDOWN) 
       (cond ((= wparam VK_LEFT) 
              (c:viewleft) 
              (xdrx-hook-block-messageloop t) 
             ) 
             ((= wparam VK_RIGHT) 
              (c:viewright) 
              (xdrx-hook-block-messageloop t) 
             ) 
       ) 
      ) 
    ) 
  ) 
  (xd::hook:register "_hook-3" t "箭头移动屏幕热键") 
)

liuyj · 发表于 2018-1-8 16:21:49

xd::hook:register是不是笔误？应该是xdrx-hook-register吧

XDSoft · 发表于 2018-1-8 16:42:57

liuyj 发表于 2018-1-8 16:21

没错， 1、xdrx-hook-register 是底层的，系统通过它定义了一个系统级HOOK，这个对用户是不透明的。
2、xd::hook:register 是LISP层面的，通过它可以注册多个LISP层面的HOOK处理函数。
3、通用函数库内部自动根据xd::hook:register注册的多个HOOK处理函数，有消息时候分发去执行。
以后就用 xd::hook:register就行了，LISP层面它总管了。参数是三个
1、HOOK处理函数
2、T OR NIL，是否立即启用，如果给NIL，以后要通过(xd::hook:enable hook函数名 t) 启用。
3、描述字符串。

另外三个个LISP层面的
xd::hook:enable，可以根据HOOK函数名，临时开关HOOK
xd::hook:remove 根据HOOK函数名，删除掉。
xd::hook:status 查看指定HOOK函数名的状态，启用，禁用，和未定义。

liuyj · 发表于 2018-1-8 16:48:58

xd::hook这几个函数没找到源码

XDSoft · 发表于 2018-1-8 16:56:03

liuyj 发表于 2018-1-8 16:48

加载 2018.01.08 通用函数库就有了。暂时没公布。比较危险，钩子。用的时候，遇到问题请发帖。

bb建筑师 · 发表于 2018-4-18 07:08:23

直接用command pan来弄……简单……

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

[研讨] 给移屏工具定义“左右箭头”快捷键

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。