---

Hallöchen,
möchte den Inhalt im Ansichtsfenster drehen ohne das sich danach die Position und der Maßstab ändert.
Die Befehle MVSETUP,UCSFOLLOW,DRSICHT und DANSICHT sind wir bekannt.

Danke im Voraus

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

---

Hi,
WIE willst Du das drehen? Über zwei Punkte? Über ein benanntes BKS? Ein unbenanntes BKS, das aktuelle BKS? Fragen über Fragen.
Es ist relativ problemlos so ein Tool in Lisp zu bauen:
Befehl aufrufen und dann macht das Tool folgendes:

Code:

---

Wechsel in den verschiebbaren Modellbereich
Sichern des dort aktiven BKS
Wechseln in das WKS
Sichern der beiden Sysvars "viewctr" und "viewsize"
*Drehen des BKS, wie auch immer vom User anzugeben*
BKS -> Draufsicht ausführen
Wechseln in das WKS
Zoom > _center mit den gesicherten Werten von "viewctr" und "viewsize" ausführen
Gesichertes BKS wiederherstellen
Wechseln in den Papierbereich

---

Fragt sich jetzt nur noch, WIE Du die Drehung festlegen willst.

------------------
Ciao,
Marc

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

---

...entweder am Objekt oder am aktuellen BKS ausrichten.Eigentlich so ähnlich wie der Befehl 3D-Ansichten>aktuelles BKS.
Das einzige was mich daran stört ist dann wie gesagt das ich dann wieder Zoom alles habe und meine Einstellungen im Ansichtsfenster im Arsch sind.

Kenne mich im Lisp leider nicht aus.

Gruß
TF

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

---

Hi TF,
anbei mal eine minimal-Lösung die ich schon seit Jahren benutze.
Habe zwei Einräge in meinem Objektfang Rechtsklick-Menü (könnte man ja auch in eine Toolbar packen...):
Draufsicht WKS
und
Braufsicht BKS

Dort hinterlegt ist jeweils folgendes Makro:

Code:

---

MS_WPLAN      [Draufsicht WKS]^c^c(if (null c:planw) (load "xplan.lsp"))(princ);planw;
MS_BPLAN      [BKS Draufsicht]^c^c(if (null c:planb) (load "xplan.lsp"))(princ);planb;

---

In der Datei "xplan.lsp" steht dann folgender Code:

Code:

---

(defun c:planb ()
  (xplan T)
  (princ)
  )

(defun c:planw ()
  (xplan nil)
  (princ)
  )

;;; Xplan ruft den AutoCAD Befehl
;;; "_.plan" für BKS oder WKS auf
;;; Übergabeparameter T = BKS, nil = WKS
(defun XPLAN (FLAG /)
  (setq VCTR  (getvar "viewctr")
VSIZE (getvar "viewsize")
  ) ;_ end setq
  (if FLAG
    (command "_.plan" "_c")
    (command "_.plan" "_w")
  ) ;_ end if
  (command "_.zoom" "_c" VCTR VSIZE)
  (princ "\nOK, erledigt...")
) ;_ end defun

---

In der Praxis verwende ich das nun folgendermaßen:
Manuell in den verschiebbaren Modellbereich wechseln, BKS ausrichten und dann klick auf "BKS Draufsicht", fertig.
Bei mir tut's das.

Edit:
Drecks Auto-Smileys ;-)

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 04. Okt. 2005 editiert.]

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