---

Der folgende Code reagiert auf Änderungen einer Bemassung mit Standard-Ändern-Befehlen und führt die Funktion :HKV_reactor aus. Diese simuliert ein Hochkomma-Bemaßung. Das funktioniert auch, aber reagiert nicht auf Änderungen mit Hilfe von Griffen.
(:hkv_reactor) ändert den vorherigen Auswahlsatz "Letztes".

Die Struktur der Funktion ist leider relativ komplex, was die Quelle der zu tätigenden Einstellungen betrifft.

Code:

---

;;; -------------------------------------------------------
;;; Einfacher EditorReactor: führt (:hkv_reactor) nach Änderungen aus
;;; -------------------------------------------------------

(DEFUN :Dimmodifiedcallback (reactor params / cmd)
  ;; params ist eine Liste mit dem Befehlsnamen
  (SETQ cmd (STRCASE (CAR params)))
  ;; Bei allen relevanten Befehlen auslösen
  (IF (MEMBER cmd '("MOVE" "STRETCH" "ROTATE" "DDEDIT" "DIMEDIT" "PROPERTIES" "COPY"))
      (PROGN (princ (strcat "\nBefehl " cmd " beendet – starte (:HKV_REACTOR)..."))
        ;(:hkv_reactor) - hier auskommentiert
      )
  )
)

(DEFUN :startglobaldimreactor (/)
  (IF (NOT *dimreactor*)
      (SETQ *dimreactor* (VLR-EDITOR-REACTOR nil '((:VLR-COMMANDENDED . :Dimmodifiedcallback))))
  )
  (PRINC "\nGlobaler Bemaßungs-Reactor aktiv.")
  (PRINC)
)
(DEFUN c:hkr () (:startglobaldimreactor))

---

------------------
Gruß aus Wien
Bernhard

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

---

Jetzt läuftŽs
DeepSeek hat den ChatGPT Code optimiert.   

Code:

---

;;; -----------------------------------------------------------------
;;; Einfacher EditorReactor: führt (:hkv_reactor) nach Änderungen aus
;;; -----------------------------------------------------------------

(DEFUN :Dimmodifiedcallback  (reactor params / cmd)
     ;; params ist eine Liste mit dem Befehlsnamen
     (SETQ cmd (STRCASE (CAR params)))
     ;; Bei allen relevanten Befehlen auslösen
     (IF (MEMBER cmd
'("MOVE" "STRETCH" "ROTATE" "DDEDIT" "DIMEDIT" "PROPERTIES" "COPY" "GRIP_STRETCH"
   "GRIP_MOVE"))
  (PROGN (PRINC (STRCAT "\nBefehl " cmd " beendet – starte (:HKV_REACTOR)..."))
  ;(IF (= cmd "GRIP_STRETCH")(command "_select"))
(:hkv_reactor))))

(DEFUN   :_objectmodifiedcallback (reactor objects / obj)
     ;; Wird bei direkter Objektmodifikation (inkl. Griffen) aufgerufen
     (VL-LOAD-COM)
     (FOREACH obj  objects
  (IF (AND (VLAX-PROPERTY-AVAILABLE-P obj 'objectname)
   (WCMATCH (VLA-GET-OBJECTNAME obj) "*Dimension*"))
       (PROGN (PRINC "\nBemaßung modifiziert – starte (:HKV-REACTOR2)...\n")
 
      (:hkv-reactor (VLAX-VLA-OBJECT->ENAME obj))))))

(DEFUN :startglobaldimreactor  (/)
     ;; Lösche vorhandene Reactors falls vorhanden
     (IF (AND (BOUNDP '*dimreactor*) *dimreactor*)
  (VLR-REMOVE *dimreactor*))
     (IF (AND (BOUNDP '*objreactor*) *objreactor*)
  (VLR-REMOVE *objreactor*))
     ;; Editor-Reactor für Befehle
     (SETQ *dimreactor*
       (VLR-EDITOR-REACTOR
    nil
    '((:VLR-COMMANDENDED . :Dimmodifiedcallback)
      (:VLR-COMMANDCANCELLED . :Dimmodifiedcallback)
      (:VLR-COMMANDFAILED . :Dimmodifiedcallback))))
     ;; Object-Reactor für direkte Modifikationen (Griffe, Properties etc.)
     (SETQ *objreactor* (VLR-OBJECT-REACTOR nil '((:VLR-MODIFIED .   :_objectmodifiedcallback))))
     (PRINC "\nGlobaler Bemaßungs-Reactor aktiv (inkl. Griff-Bearbeitung).")
     (PRINC))

;; Funktion zum Stoppen der Reactors
(DEFUN :stopglobaldimreactor  (/)
     (IF (AND (BOUNDP '*dimreactor*) *dimreactor*)
  (PROGN (VLR-REMOVE *dimreactor*) (SETQ *dimreactor* nil)))
     (IF (AND (BOUNDP '*objreactor*) *objreactor*)
  (PROGN (VLR-REMOVE *objreactor*) (SETQ *objreactor* nil)))
     (PRINC "\nBemaßungs-Reactor deaktiviert.")
     (PRINC))

---

------------------
Gruß aus Wien
Bernhard

[Diese Nachricht wurde von Bernhard GSD am 30. Sep. 2025 editiert.]

[Diese Nachricht wurde von Bernhard GSD am 30. Sep. 2025 editiert.]

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