---

Hallo zusammen.
Bastle gerade an einem "Diese Zeichnung ist nicht zu bearbeiten"-Tool.
klappt auch schon ganz gut. Einziges Problem:
bei dem vla-SendCommand werden in der Befehlszeile die Optionen mit ausgegeben (Hier Undo...). Kann man das irgendwie unterdrücken?

Code:

---

(if (= (getvar "useri5") 1)
  (progn
    (vl-load-com)
    (setq my-reactor
      (vlr-command-reactor "my-reactor"
        '((:vlr-CommandEnded . my-post))
        )
    )
  )
  (if my-reactor
    (progn
      (vlr-remove my-reactor)
      (setq my-reactor nil)
    )
  )
) 

(defun my-post (reaktor werte / )
  (if (/= (car werte) "UNDO")
    (progn
      (setq thisdrawing
        (vla-get-activedocument (vlax-get-acad-object))
      )
;      (setvar "nomutt" 1)
      (vla-SendCommand thisdrawing "_undo 1 ")
;      (setvar "nomutt" 0)
    )
  )
)

---

Wie ihr seht, hab' ich NOMUTT schon probiert - ohne Erfolg.

Grüssse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

(setvar "cmdecho" 0) ?

------------------
- 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

---

Danke für die schnelle Antwort, aber:
nein, CMDECHO leider nicht. War natürlich das erste, was ich probiert hatte. Ach ja, EXPERT geht such nicht...

Noch Vorschläge?

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

ohne Ausgabe gehts mit (vl-cmdf  "_undo" 1)
ob das aber innerhalb eines Reaktors funzt ??!

------------------
- 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

---

(vl-cmdf  "_undo" 1):
Ich hab's mal gegen (vla-SendCommand thisdrawing "_undo 1 ") ausgetauscht:
funktioniert leider nicht im Reaktor.

Weitere Anregungen?
(Vielleicht gehts ja auch einfach nicht).

Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

dann mach es doch so
(if (= (getvar "useri5") 1)
  (progn
    (vl-load-com)
    (setq my-reactor
      (vlr-command-reactor "my-reactor"
        '((:vlr-Commandwillstart . my-post))
        )
    )
  )
  (if my-reactor
    (progn
      (vlr-remove my-reactor)
      (setq my-reactor nil)
    )
  )
) 
(defun my-post (reaktor werte / )
  (if (/= (car werte) "UNDO")
    (progn
      (setq thisdrawing
        (vla-get-activedocument (vlax-get-acad-object))
      )

      (vla-SendCommand thisdrawing (chr 27))

    )
  )
)

------------------
- 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

---

Hallo Thomas,
dachte gerade - das ist es - aber leider geht folgendes dann nicht:
Griffe aktivieren, [entfernen] drücken. Objekte werden gelöscht, und ANSCHLIESSEND kommt *Abbruch*.

Schade.
Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

na für den einen Fall kannste ja auch mal ein bflöschaufrufen, oder mach es so, das dieser entsprechende User die Zeichnung halt nur schreibgeschützt öffnen kann.

------------------
- 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

---

OK, Danke Thomas für das nette Gespräch 
Ich lass es einfach so wie es ist. Schreibgeschützte Zeichnungen kann man ja trotzdem bearbeiten... Ich will Autocad sozusagen nur als "Viewer" verwenden... also bis zum nächsten Mal.

Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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