Xref Reactor

[BCrouse]

Does anyone have a reactor for when the xref command is used? The reason that I am asking is to remind people not to Bind and Save paths of Xrefs'

Thank you,

[kennet.sjoberg]

Use at Your one risk, I can not answer questions abut it

(defun XrefReactor (ObjReactor Command-In / )
  (vl-load-com)
  (if (= (car Command-In ) "XREF" )
    (alert "Do not Bind and Save paths of Xrefs'  " )
    ( )
  )
)
(setq XrefCommand ( vlr-editor-reactor nil '((:vlr-commandwillstart . XrefReactor ))) )

: ) Happy Computing !

kennet

[BCrouse]

Thank you for a qiuck response. It works really good!