[推荐]来个简单的

wen1235

;;;就是运行命令时,把捕捉框开到最大,易于捕捉,
;;;命令结束时,恢复到原来的状态,还是易于捕捉,
(defun VLR_COMMAND_l ()
  (vl-load-com)
  (vlr-command-reactor nil '((:vlr-commandWillStart . startCommand_l))) 
  (vlr-command-reactor nil '((:vlr-commandCancelled . cancelCommand_l)))
  (vlr-command-reactor nil '((:vlr-commandEnded . endCommand_l)))
  (vlr-editor-reactor nil  '((:vlr-commandwillstart . RunPro)))
  )
(defun RunPro (CALL CALLBACK)
  (Setvar "PickBox" 9)
  )
(defun startCommand_l (calling-reactor startcommandInfo)
  (setq OldPick (Getvar "PickBox"))
  )
(defun endCommand_l (calling-reactor endcommandInfo)  
  (Setvar "PickBox" OldPick)
  )
(defun cancelCommand_l (calling-reactor cancelcommandInfo)
  (Setvar "PickBox" OldPick)
  )
(VLR_COMMAND_l)
(princ)

xiaoquansb

不错，是好东西，学习了

cjjh8301

Gu_xl

我也凑个热闹，贴两个反应器实例：

3. ;;;系统发出未知命令的反应器
4. (defun uncommandR ()
5. (vlr-command-reactor nil '((:vlr-unknownCommand . uncommand)))
6.   )
7. (defun uncommand (vlrobj Lst)
8.   (princ "\n发出了未知命令：")
9.   (princ (car lst))
10.   (princ "\n")
11.   )
12. (uncommandR)
13. ;;;鼠标双击、单击的反应器
14. (defun MouseR ()
15. (vlr-mouse-reactor "DATA" '((:vlr-beginDoubleClick . mouse)(:vlr-beginRightClick . Rmouse)))
16.   )
17. (defun mouse (vlrobj Lst)
18.   (princ "\n双击鼠标位置：")
19.   (princ (car lst))
20.   (princ "\n双击反应器的数据：")
21.   (princ (vlr-data vlrobj))
22.   (princ)
23.   )
24. (defun Rmouse (vlrobj Lst)
25.   (princ "\n右击鼠标位置：")
26.   (princ (car lst))
27.   (princ)
28.   )
29. (MouseR)

;;;系统发出未知命令的反应器 (defun uncommandR () (vlr-command-reactor nil '((:vlr-unknownCommand . uncommand)))   ) (defun uncommand (vlrobj Lst)   (princ "\n发出了未知命令：")   (princ (car lst))   (princ "\n")   ) (uncommandR) ;;;鼠标双击、单击的反应器 (defun MouseR () (vlr-mouse-reactor "DATA" '((:vlr-beginDoubleClick . mouse)(:vlr-beginRightClick . Rmouse)))   ) (defun mouse (vlrobj Lst)   (princ "\n双击鼠标位置：")   (princ (car lst))   (princ "\n双击反应器的数据：")   (princ (vlr-data vlrobj))   (princ)   ) (defun Rmouse (vlrobj Lst)   (princ "\n右击鼠标位置：")   (princ (car lst))   (princ)   ) (MouseR)

xshrimp

1楼程序一个严重问题,无法undo。

CAD83

1楼程序一个严重问题,无法undo。 还没改好

zwqgdhl

反应器不知道主要应用在哪些方面，先学习了

cnks

这个有点鸡肋了

我爱lisp

Gu_xl 发表于 2010-7-27 10:59
我也凑个热闹，贴两个反应器实例：

GU版主，很好的代码，值得学习！vlrobj Lst 为啥没有看到你从哪里赋值的啊？

混沌初开

不需要快捷键吗？