| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| AERZEN konsolidiert weltweite Autodesk Softwarelizenzen mit CIDEON , ein Anwenderbericht
|
Autor
|
Thema: Inhalt Ansichtsfenster drehen(ohne zoom alles) (1679 mal gelesen)
|
TF Mitglied CAD-Zeichner
Beiträge: 29 Registriert: 18.01.2002
|
erstellt am: 04. Okt. 2005 12:30 <-- editieren / zitieren --> Unities abgeben:
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 |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 04. Okt. 2005 14:19 <-- editieren / zitieren --> Unities abgeben: Nur für TF
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 |
TF Mitglied CAD-Zeichner
Beiträge: 29 Registriert: 18.01.2002
|
erstellt am: 04. Okt. 2005 14:57 <-- editieren / zitieren --> Unities abgeben:
...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 |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 04. Okt. 2005 15:24 <-- editieren / zitieren --> Unities abgeben: Nur für TF
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 |