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