[求助]如何通过反应器获取键盘按键？

xiaojinwen

VLISP 中定义的反应器可以获取鼠标动作，那么要怎样才能获取键盘的特定按键呢？

一般在DCL窗口打开时，批处理进程由CAD控制，在cad控制过程结束之前，这个时候，可以通过反应器通知CAD，由用户干预程序执行。

(VLR-MOUSE-REACTOR
        VAR
        '((:VLR-BEGINDOUBLECLICK .DOUBLECLICK)
          (:VLR-BEGINRIGHTCLICK . RIGHTCLICK)
         )
         )

(DEFUN DOUBLECLICK (REACTOR P1)
;;"可以在下面设置或修改变量来处理鼠标事件"

(SETQ VAR "AAA")

(PRINC "\n 你双击了左键。")     

)

(DEFUN RIGHTCLICK (REACTOR P1)

(PRINC "\n 你单击了右键。")     

)

在程序结束之前调用(VLR-REMOVE-ALL :VLR-MOUSE-REACTOR)，删除鼠标反应器。

以上是鼠标反应器的示例。

VLISP 中定义的反应器可以获取鼠标动作，那么要怎样才能获取键盘的特定按键呢？

望各位大侠多多指点！

xshrimp

(if (not commandreactor)
  (setq commandreactor
  (vlr-command-reactor
    nil
    '((:vlr-commandwillstart . haha))
  )
  )
)
(defun SendKeys (keys / ws)
  (setq ws (vlax-create-object "WScript.Shell"))
  (vlax-invoke-method ws 'sendkeys keys)
  (vlax-release-object ws)
  (princ)
)
(defun haha (var1 var2)
  (if (wcmatch (vl-princ-to-string (strcase (car var2))) "*PLOT")
    (progn
      (sendkeys "{ESC}")
      (princ "\n不准打印!")
    )
  )
)

hhc

反应器中没有提供获取键盘按键的消息函数

highflybir

如果是对话框程序，不妨试下OpenDCL，可以获取键盘按键的。