---

Hallo!

Ich habe hier mal einen Reaktor zusammengefumelt, der mir alle gew. Obj. in der Macroleiste anzeigen soll. Mich wundert es nur warum die korrekte Anzeige kommt wenn die obj. wieder demarkiert sind ?

Code:

---

(defun c:modobj ()
  (if *Object:Reactor*
    (progn
      (vlr-set-notification
(setq *Object:Reactor*
      (vlr-miscellaneous-reactor
nil
'((:vlr-pickfirstmodified . Object:Reactor))
)
      )
'Active-Document-Only
)
      (setq *Object:ModeMacro* (getvar 'MODEMACRO))
      (prompt "\nObject Reactor active!")
    )
  )
  (princ)
  )

(defun Object:Reactor (react param / )
  (if (setq ss (ssget "_I" '((0 . "INSERT,ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE"))))
    (progn (setq i -1
obj nil
)
     
          (while (setq e (ssname ss (setq i (1+ i))))
            (setq obj (entget e))
    obj
    )
          )
  (setvar 'MODEMACRO
  (setq objIndex
(strcat "[ ("
(itoa i)
") objects found ]"
)
                  )
          )
    )
  )

 

---

------------------
Gruss Dirk

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

---

Der Reaktor feuert wenn das Pickfirstselset geändert wird, also genau bevor Objekte dort eingetragen / oder entfernt werden ....

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

was meinst du genau Thomas

------------------
Gruss Dirk

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

---

.. der Reaktor funktioniert schon, du meinst bloß, er müßte dir die Änderungen anzeigen, das könnte er aber nur, wenn er nach dem Ändern gestartet werden würde. somit brauchst du für dein Anliegen??? einen anderen Konstrukt.

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

okay danke ich grübel mal weiter... brauche etwas Zeit dafür

------------------
Gruss Dirk

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