---

hallo gemeinschaft.

bei acad14 haben wir in unserer bürointernen zusatz-lsp-datei folgendermaßen ein kurzbefehl für zoom-fenster definiert:

(defun c:f () (command "zoom" "f"))

in der acad2002-pgp funktioniert das ja ein bißchen anders. wie kann ich denn dort solch einen befehl, der aus zwei befehlen (zoom + fenster) besteht, definieren?

gruß,

rené

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

---

Ich verstehe das nicht ganz, wenn du nur zoom aufrufts, brauchst du doch nur einen Punkt eingeben, und AutoCAD schaltet automatisch
auf zoom fenster?

Die Option zoom f bewirkt doch nur das AutoCAD nach einer ersten
Ecke fragt? Steht ihr auf diese Abfrage? :-)

------------------
Ing. Bernd Cuder
Cad&Co makes CAD easy

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

---

okay, dummes beispiel,
aber wie mache ich das mit zoom-vorher oder zoom-grenzen?

gruß,
rené

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

---

In der PGP-Datei kannst du keine Kürzel mit zwei Befehlen.
Aber der Ansatz mit (defun c:f () (command "zoom" "f")) ist ja sowieso gut. Eventuell unter meinebefehle.lsp abspeichern und über Anwendungen (Befehl: Appload) Startgruppe hinzufügen.

Bernhard

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

---

Hallo rené,

es funktioniert immer noch wie in acad 14.

In der ACAD.PGP kann man NUR Kürzel für nackte Befehle definieren. Mehrteilige Befehle schreibt man in die ACAD.LSP weiterhin als Lisp-Code.

Beispiele :

(defun c:ze ()  (command "_zoom" "_e")) ; Zoom extends
(defun c:zg ()  (command "_zoom" "g"))  ; Zoom Grenzen
(defun c:z8 ()  (command "_zoom" "g") (command "_zoom" "0.8x")); Zoom Grenzen und anschließend um 20% verkleinern zwecks besseren Überblick
(defun c:zl ( / lmin lmax)  ; Zoom Limiten
(setq lmin (getvar "limmin"))
(setq lmax (getvar "limmax"))
(command "_zoom" "_w" lmin lmax)
)
(defun c:w ()  (command "'_zoom" "_w")) ; Zoom Fenster
(defun c:v () (command "'_zoom" "_P")) ; Zoom vorher

Ein Teil der Kürzel beziehen sich auf englische Befehle, mit denen bin ich groß geworden..., selber umschreiben !
Mit dem Unterstrich vor den englischen Befehlen funktioniert es in jeder Sprachversion. In ACAD.LSP könntest Du auch eine Zeile schreiben, die da lautet (load "meinekuerzel.lsp"). In meinekuerzel.lsp schreibst Du alle Kurzbefehle, die Du haben möchtest. Vorteil : man kann das sehr gut personalisieren. jeder hat sein eigenes File um Acad anzupassen.

Ansonsten noch viel Spaß beim Experimentieren

Günter

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

---

Also, ich weiß nicht so ganz, ob ich Dich richtig verstanden habe,

aber versuchs doch mal so:

(defun c:f ()
(command "_zoom" "g") ; zoomt in die Grenzen
)

Gruß
Andrea

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

---

okay, ich habs soweit.
ich habe mir wieder eine lsp-datei geschrieben und lass die nun jedesmal neu einladen...

danke, rené.

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