---

Hallo,
ich versuche mich an einem kleinen lisp-programm, siehe unten.
Es soll durch alle Layouts gewechselt werden und dabei der Zoom auf Grenzen gesetzt werden.
Dabei funktionieren folgende Schritte:
Der Wechsel zum nächsten Layout
Aufruf vom Befehl zoom
Warten auf den Klick

Was nicht funktioniert:
Es scheint, als ob die Option "g" für "zoom Grenzen" nicht richtig an den Befehl zoom weitergegeben wird.

Ich hoffe, jemand kann mir hier einen Tip geben.
Grüße.

Code:

---

defun c:ZOG ( / layouts layoutname )
  (prompt "\nStarte ZOG...")

  ;; Liste aller Layouts holen
  (setq layouts (layoutlist))

  (foreach layoutname layouts
    (if (not (wcmatch (strcase layoutname) "MODEL"))
      (progn
        (command "_.layout" "_set" layoutname) ; Layout aktivieren
        (command "_.zoom" "_g")                ; Zoom auf Grenzen ("g" = Grenzen)
       
        (prompt "\nBitte klicken um fortzufahren...")
        (grread)                                ; Warten auf Benutzereingabe

      )
    )
  )

  (princ "\nZOG fertig.")
  (princ)
)

---

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

---

Liebes Forum,
einen Beitrag schreiben hilft scheinbar schon bei der Lösung.
Als ich nun wieder händisch mit Doppelklick auf die mittlere Maustaste durch die Layouts gewandert bin, ist mir in der Befehlszeile die Option _E aufgefallen.
Das Programm tut jetzt was es soll.

Grüße.

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

---

Zitat:

---

Original erstellt von balu314:
(command "_.zoom" "_g")                ; Zoom auf Grenzen ("g" = Grenzen)

---

Richtig, G = Grenzen

G, nicht _G, oder auch E für Extent in englischen Versionen, oder als internationalem Aufruf: _E

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