.....................................

dandee

用反应器编程 可以记住上个执行的命令
下面的程序是我为了学习 反应器，  很久以前网上找来的， 文字说明可以忽略(天知道是什么语言)     
通过这段东东， 你应该知道， 怎么编程记住上个执行的命令


(defun c:Rea ()
;;; Definisco i Reattori di inizio e fine comando:
(vl-load-com)
(CreaReattoreFineComando)
(CreaReattoreInizioComando)

;;; Trasformo la poly in un oggetto VLA:
   (setq VLPoly(vlax-ename->vla-object (entlast)))

;;; Definisco il Reattore oggetto:
(setq ModificaPoly(vlr-object-reactor (list VLPoly) "Reattore POLY"
'((:vlr-modified . EstraiPolyModificata))))

;;; e lo rendo persistente:
(vlr-pers ModificaPoly)

)
;;;
;;; Calcolo della lunghezza di una polilinea:
;;;
(defun LunghezzaCurva (Curva)
(setq startSpline (vlax-curve-getStartParam Curva))
(setq endSpline (vlax-curve-getEndParam Curva))
(vlax-curve-getDistAtParam Curva (- endspline startspline))
)
;;;
;;; Definisco il Reattore comando che reagisce alla conclusione del comando AutoCAD:
;;;
(defun CreaReattoreFineComando ()
(if (not *ReattoreFineComando*)
            (setq *ReattoreFineComando* (VLR-Command-Reactor nil
'((:vlr-commandEnded . PolyModificata))))
)
)
;;;
;;; Definisco il Reattore comando che reagisce all'inizio del comando AutoCAD:
;;;
(defun CreaReattoreInizioComando ()
(if (not *ReattoreInizioComando*)
            (setq *ReattoreInizioComando* (VLR-Command-Reactor nil
'((:vlr-commandWillStart . PolyVerraModificata))))
)
)
;;;
;;; routine per la conversione di un Array Variant (coordinate della Polyline) in una lista
;;; di punti.
;;;
(defun Array->ListaPunti (poly*)
(setq CoordNew(vla-get-Coordinates poly*))
(setq VCoordNew(vlax-variant-value CoordNew))
(setq DimensioneArray(vlax-safearray-get-dim VCoordNew))
(setq IndiceDiPartenza(vlax-safearray-get-l-bound VCoordNew
DimensioneArray))
(setq IndiceDiArrivo(vlax-safearray-get-u-bound VCoordNew DimensioneArray))
(setq ListaPunti nil)
(setq i IndiceDiPartenza)
(repeat (/ (+ 1 IndiceDiArrivo) 3)
  (setq XV(vlax-safearray-get-element VCoordNew i))
  (setq YV(vlax-safearray-get-element VCoordNew (+ i 1)))
  (setq ZV(vlax-safearray-get-element VCoordNew (+ i 2)))
  (setq ListaPunti(cons (list XV YV ZV) ListaPunti))
  (setq i(+ i 3))
)
(reverse ListaPunti)
)
;;;
;;; routine attivata dal Reattore di inizio Comando (:vlr-commandWillStart):
;;;
(defun PolyVerraModificata (reattore lista-comando)
(setq XDATAPoly nil)
(setq ComandoCorrente (car lista-comando))
(princ "\n YOUR ACTION IS: ")(princ ComandoCorrente)(princ)
)
;;;
;;; routine attivata dal Reattore di fine Comando (:vlr-commandEnded):
;;;
(defun PolyModificata (reattore lista-comando)
;;;
  (setq XDATAPoly nil)
;;;
  (setq ComandoCorrente (car lista-comando))
   (if passato
; se passato=t vuol dire che si è passati per la modificadella polilinea...
  (progn (princ "\n  La nuova lunghezza è: ")
         (princ (LunghezzaCurva *Poly*)))
)

)
;;;
;;; routine per l'estrazione di vecchi dati della polilinea (prima del cambiamento)
;;; viene attivata dal Reattore oggetto:
;;;
(defun EstraiPolyModificata (oggetto-notifica oggetto-poly NomeEntita)

(setq NomeReattore(vlr-data oggetto-poly))
   (if (member ComandoCorrente '("EXTEND" "GRIP_STRETCH" "STRETCH" "SCALE"
"U" "MOVE" "ROTATE" ))
   (progn
   (setq *Poly* oggetto-notifica)
   (setq passato t)
   (setq XDATAPoly(*LetturaXDATAPoly *Poly* "SEZIONI"))
   (cond
   ((and (vlax-property-available-p *Poly* 'Coordinates) (= ListaPuntiVec nil))
    (setq ListaPuntiVec (Array->ListaPunti *Poly*))
   ))
   (princ "\n  La vecchia lunghezza è: ")(princ (LunghezzaCurva *Poly*))
   )
     (setq passato nil)
)
)

doubao

这个程序是在你刚敲入一个命令后立刻显示命令名，而不是显示上一个执行完的命令。 也许改一改可以做到。