---

moin,

hier mein letzter forschungsstand bezüglich reaktoren :

(defun fc_db_zeichnen (pul por /)
  (vl-load-com)
  (fc_rechteck pul por "0" 1 1.00 "continuous")
  (princ (entget (entlast)))
  (setq meinrechteck (list (vlax-ename->vla-object (entlast))))
  (fc_text (strcat "(" (rtos (car pul)) "," (rtos (cadr pul)) ")") pul "0" 2 1.8 "standard")
  (setq meinrechteck (append meinrechteck (list (vlax-ename->vla-object (entlast)))))
  (fc_text (strcat "(" (rtos (car por)) "," (rtos (cadr por)) ")") por "0" 2 1.8 "standard")
  (setq meinrechteck (append meinrechteck (list (vlax-ename->vla-object (entlast)))))
  (setq fc_db_reaktor (vlr-object-reactor meinrechteck "fc_db_reaktor" '((:vlr-modified . fc_db_aendern))))
  (vlr-pers fc_db_reaktor)
);defun

;*************

(defun c:ld ()
(fc_db_zeichnen (getpoint "ep : ") (getpoint "zp : "))
(princ)
);defun

(defun fc_db_aendern (notifier-object reactor-object parameter-list)
  (princ "\n") 
  (princ notifier-object)
  (princ "\n")
  (princ reactor-object)
  (princ "\n")
  (princ parameter-list)
  (princ "\nDas Rechteck wurde verändert !")
  (princ)
);defun

ich bin jetzt so weit, dass ich eine meldung vom programm bekomme, wenn das rechteck verändert wurde.
hier meine fragen :

-wie kann ich zusätzliche infos an die funktion "fc_db_aendern"  übergeben ?
-wie finde ich heraus, welche(r) eckpunkt(e) verändert wurde(n) ?

------------------

MfG
Frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Einfach einen weiteren Reactor vom Typ
vlr-object-reactor allerdings mit dem Event :vlr-openedForModify benutzen und die Objektdaten z. B. komplette Elementliste von (entget ename) VOR der Modifikation zu speichern (in einer globalen Variablen).
in
fc_db_aendern
dann einfach jeden Wert mit den Originaldaten vergleichen (es könnte sich ja auch nur Farbe, Layer oder Breite geändert haben)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP