反应器的困惑

/db_自贡黄明儒_

当年被晓东枪毙了的东西，发在明经上。前几天我回顾了一下，觉得对初识反应器还是有点用处的嘛。
;;在(:vlr-lispEnded . w2)中，①自定义w2是两个还是三个参数呢？②这些参数是什么呢？
;;一直以来我都相当困惑，也是我从用不反应器的原因，今天试一下

;;[第一步]
;;1.1 查看所有反应器
(defun C:w1 ()
  (foreach x (vlr-types)
    (princ (strcat "\n" (VL-PRINC-TO-STRING x)))
    (foreach y (VLR-Reaction-Names x)
      (princ (strcat "\n\t" (VL-PRINC-TO-STRING y)))
    )
  )
  (princ)
)
;|05
:VLR-Linker-Reactor
:VLR-rxAppLoaded
:VLR-rxAppUnLoaded
:VLR-Editor-Reactor
:VLR-unknownCommand
:VLR-commandWillStart
:VLR-commandEnded
:VLR-commandCancelled
:VLR-commandFailed
:VLR-lispWillStart
:VLR-lispEnded
:VLR-lispCancelled
:VLR-beginClose
:VLR-beginDxfIn
:VLR-abortDxfIn
:VLR-dxfInComplete
:VLR-beginDxfOut
:VLR-abortDxfOut
:VLR-dxfOutComplete
:VLR-beginDwgOpen
:VLR-endDwgOpen
:VLR-dwgFileOpened
:VLR-databaseConstructed
:VLR-databaseToBeDestroyed
:VLR-beginSave
:VLR-saveComplete
:VLR-sysVarWillChange
:VLR-sysVarChanged
:VLR-AcDb-Reactor
:VLR-objectAppended
:VLR-objectUnAppended
:VLR-objectReAppended
:VLR-objectOpenedForModify
:VLR-objectModified
:VLR-objectErased
:VLR-objectUnErased
:VLR-DocManager-Reactor
:VLR-documentCreated
:VLR-documentToBeDestroyed
:VLR-documentLockModeWillChange
:VLR-documentLockModeChangeVetoed
:VLR-documentLockModeChanged
:VLR-documentBecameCurrent
:VLR-documentToBeActivated
:VLR-documentToBeDeactivated
:VLR-Command-Reactor
:VLR-unknownCommand
:VLR-commandWillStart
:VLR-commandEnded
:VLR-commandCancelled
:VLR-commandFailed
:VLR-Lisp-Reactor
:VLR-lispWillStart
:VLR-lispEnded
:VLR-lispCancelled
:VLR-DXF-Reactor
:VLR-beginDxfIn
:VLR-abortDxfIn
:VLR-dxfInComplete
:VLR-beginDxfOut
:VLR-abortDxfOut
:VLR-dxfOutComplete
:VLR-DWG-Reactor
:VLR-beginDwgOpen
:VLR-endDwgOpen
:VLR-dwgFileOpened
:VLR-databaseConstructed
:VLR-databaseToBeDestroyed
:VLR-beginSave
:VLR-saveComplete
:VLR-beginClose
:VLR-Insert-Reactor
:VLR-beginInsert
:VLR-beginInsertM
:VLR-otherInsert
:VLR-abortInsert
:VLR-endInsert
:VLR-Wblock-Reactor
:VLR-wblockNotice
:VLR-beginWblockPt
:VLR-beginWblockId
:VLR-beginWblock
:VLR-otherWblock
:VLR-abortWblock
:VLR-endWblock
:VLR-beginWblockObjects
:VLR-SysVar-Reactor
:VLR-sysVarWillChange
:VLR-sysVarChanged
:VLR-DeepClone-Reactor
:VLR-beginDeepClone
:VLR-beginDeepCloneXlation
:VLR-abortDeepClone
:VLR-endDeepClone
:VLR-XREF-Reactor
:VLR-beginAttach
:VLR-otherAttach
:VLR-abortAttach
:VLR-endAttach
:VLR-redirected
:VLR-comandeered
:VLR-beginRestore
:VLR-abortRestore
:VLR-endRestore
:VLR-xrefSubcommandBindItem
:VLR-xrefSubcommandAttachItem
:VLR-xrefSubcommandOverlayItem
:VLR-xrefSubcommandDetachItem
:VLR-xrefSubcommandPathItem
:VLR-xrefSubcommandReloadItem
:VLR-xrefSubcommandUnloadItem
:VLR-Undo-Reactor
:VLR-undoSubcommandAuto
:VLR-undoSubcommandControl
:VLR-undoSubcommandBegin
:VLR-undoSubcommandEnd
:VLR-undoSubcommandMark
:VLR-undoSubcommandBack
:VLR-undoSubcommandNumber
:VLR-Window-Reactor
:VLR-docFrameMovedOrResized
:VLR-mainFrameMovedOrResized
:VLR-Toolbar-Reactor
:VLR-toolbarBitmapSizeWillChange
:VLR-toolbarBitmapSizeChanged
:VLR-Mouse-Reactor
:VLR-beginDoubleClick
:VLR-beginRightClick
:VLR-Miscellaneous-Reactor
:VLR-pickfirstModified
:VLR-layoutSwitched
:VLR-Object-Reactor
:VLR-cancelled
:VLR-copied
:VLR-erased
:VLR-unerased
:VLR-goodbye
:VLR-openedForModify
:VLR-modified
:VLR-subObjModified
:VLR-modifyUndone
:VLR-modifiedXData
:VLR-unappended
:VLR-reappended
:VLR-objectClosed
|;

;;[第二步]
;;w2后面的参数是什么东西?
(defun c:ww (/ HANDL1 HANDL2 OBJ VLROBJ)
  (setq obj (vlax-ename->vla-object (car (entsel "\n 圆")))) ;要添加反应器的对象
  (setq handL1 (cdr (assoc 5 (entget (car (entsel "\n 直线1")))))) ;要关联的对象
  (setq handL2 (cdr (assoc 5 (entget (car (entsel "\n 直线2")))))) ;要关联的对象
  (setq vlrobj (vlr-object-reactor (list obj) (list handL1 handL2) '((:VLR-modified . w2))))
  ;;上句有对象，说明w2带三个参数;下句为nil,w2带两个参数
  ;;(vlr-lisp-reactor nil '((:vlr-lispEnded . w2) (:vlr-lispCancelled . w2)))
)

(defun w2 (obj reactor pa)
  (princ "\n")
  (princ obj)
  (princ "\n")
  (princ reactor)
  (princ "\n")
  (princ pa)
  (princ)
)

;;[第三步]
;|执行ww命令，圆与两直线关联起来，即当圆改变时，返回如下：
#<VLA-OBJECT IAcadCircle 0bdd3ef4> ;就是那个圆
#<VLR-Object-Reactor> ;(mapcar 'handent (vlr-data reactor))就是那两条直线
nil ;总是nil,就不管它了

这样就可以写代w2函数了，先得到obj的圆心，然后修改那条直线
|;