---

Hallo zusammen!

Wenn man bei ACAD 2004 die "Rückwärtstaste" nutzt werden auch Zoom-Befehle (Intellizoom) berücksichtigt.
Kann man die Rückgängigfunktion auf "Bearbeitungsschritte" einschränken?

Grüße Fred

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

---

Nein.

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

---

Hallo,

mich nervt das auch schon lange. ausserdem werden auch die Einstellungen für den Objektfang rückgängig gemacht.

ich habe mich mal zu lisp-Übungszwecken damit auseinandergesetzt
folgender zwischenstand ist dabei herausgekommen. ich weiss nicht, ob das komfortabel ist, aber funktionieren tut es erstmal. lohnt sich wahrscheinlich nur bei vielen rückgängigschritten. man zoomt zwischenzeitlich zwar mit dem rückgängig mit, aber am ende kommt man wieder bei der vorherigen ansicht heraus. auch der wert für den objektfang wird wieder gesetzt.

für Kritik, Hinweise und alles mögliche bin ich offen, auch weil ich das hier noch nicht so lange mache. ausserdem würde ich das alles mit Vorsicht geniessen, da ich nicht über alle möglichen Folgen bescheid weiss. Bei mir läuft es aber ohne Probleme.

;der befehl oz öffnet eine benutzereingabe
;hier kann man nun den aktuellen Zoom/ aktuelle Ansicht sichern mit "s"
;dann alles rückgängig machen mit "z"
;dann wiederherstellen mit "w"
;dann beenden "b"

(defun GETANSICHT ()   
  (list
    (getvar "VIEWCTR")
    (getvar "VIEWSIZE")
  )
)

(defun SETANSICHT ( ANSICHT )
  (Command "_zoom" "_c" (car ANSICHT)(cadr  ANSICHT))
)

(defun c z ( / osmodemerk option aktFenster)
(setq osmodemerk (getvar "osmode"))

(while
  (not (or (= option "b")(= option "B")))

(setq option
    (getstring "\n<B>eenden o. <Z>urück o. A-fenster <S>ichern/<W>iederherstellen?  "
    )
);ende setq option

    (cond
        ((or (= option "b") (= option "B")) (print "beendet."))

        ((or (= option "z") (= option "Z")) (command "_undo" "1"))

        ((or (= option "s") (= option "S")) (setq aktFenster (getansicht)))

        ((or (= option "w") (= option "W")) (setansicht aktFenster))

        ('T "Falscher Parameter wurde eingegeben.")
    );ende cond
);ende while

(setvar "osmode" osmodemerk)

);ende defun c z

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

---

hmmm, hab's nich probiert und von lisp sogut wie Null Kennung,
nerven tut mich der Undo-Zoom-Zinnober aber auch manchmal.

Glaube aber bald, da ist programmiermäßig kaum was drin, weil:

- der Intellizoom [Pan auch] sind nicht greifbar, sprich sie werden als 'Command' nicht erfasst in dem Sinne
und lösen kein Ereigniss aus

sonst könnte man ja zB auf Begincommand eine if commandname="ZOOM" legen und sich global den Ausschnitt merken,
dann irgendein static x as long und hochzählen, wie oft gezoomt wurde und wenn <>"ZOOM" dann x=0 oder so

Aber denke mal, wenn so simpel wäre, gäb's schon längst einen workarround, egal in welcher Sprache
deswegen hör ich besser auf,
das Gras ist grün, der Himmel ist blau und Undo auf Intellizoom aushebeln ...
ich sag nur ungern geht nicht, geht aber IMHO in dem Falle wirklich nich ;-)

Gruss Nancy 

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

---

zurueckohnezoom.txt

Hallo carmelli76,

eine wirklich schöne Idee, die Du da umgesetzt hast !
Wie es sich in der Praxis bewährt, muß sich zeigen.

Ich hab mir ein paar Ergänzungen erlaubt. Jetzt kann man eine Schrittzahl von 1-10 einstellen, die wird bei Eingabe von Enter automatisch gehalten und der Zurück-Befehl damit ausgeführt.

Gruß Carsten

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