创建命令反应器的代码

Lisphk · 发表于 2016-9-22 14:37:52

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

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

×

(defun Reactors:Command ( / reactor )
  (if
(setq reactor
   (vl-some
      (function
      (lambda ( _reactor )
         (if (eq "Reactor-Command" (vlr-data _reactor)) _reactor)
      )
      )
      (cdar (vlr-reactors :vlr-command-reactor))
   )
)
(if (not (vlr-added-p reactor))
   (vlr-add reactor)
)
(vlr-command-reactor "Reactor-Command"
   (list
      (cons :vlr-commandcancelled 'callback:commandended)
      (cons :vlr-commandended    'callback:commandended)
      (cons :vlr-commandfailed 'callback:commandended)
      (cons :vlr-commandwillstart 'callback:commandstarted)
   )
)
  )
  (princ "\n--> Command Reactors Loaded.")
  (princ)
)

satan421 · 发表于 2019-1-19 18:28:26

感谢分享特来学习

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

[每日一码] 创建命令反应器的代码

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