Wie drehe und richte ich in AutoCAD das Ansichtsfenster auf jedem Lageplan-Blatt an seinem Rechteck aus?

Was cadssistant tut

1. Liest jedes Rechteck auf dem Blattfenster-Layer und die Beschriftung darin, sodass SHEET 1 bis SHEET 12 ihren Layouts nach Namen zugeordnet werden, nicht nach Vermutung.
2. Bestimmt für jedes Rechteck die Mitte, den Winkel der langen Kante und die kurze Seite; die Richtung von der Mitte eines Blatts zur nächsten entscheidet, wo links und rechts ist.
3. Stellt alle Ansichtsfenster in einem Durchgang ein: zentriert auf das Rechteck, so gedreht, dass die lange Kante waagerecht liegt, die kurze Seite auf die Höhe des Ansichtsfensters eingepasst, Anzeige gesperrt. Ihre aktuelle Registerkarte bleibt, wie sie war.
4. Antwortet mit jedem Layout, dem Modellpunkt, auf den es zentriert ist, seiner Drehung und seinem Maßstab, sodass eine falsche Zuordnung sichtbar wird, ohne die Blätter zu öffnen.

Dieselbe Aufgabe in AutoLISP

(defun c:VPAIM ( / doc vp e p0 p1 p2 ctr ang h)
  (vl-load-com)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
        vp  (vla-get-ActivePViewport doc)
        e   (car (entsel "\nPick the sheet rectangle: "))
        p0  (vlax-curve-getPointAtParam e 0)
        p1  (vlax-curve-getPointAtParam e 1)
        p2  (vlax-curve-getPointAtParam e 2)
        ctr (mapcar '(lambda (a b) (/ (+ a b) 2.0)) p0 p2)
        ang (if (> (distance p0 p1) (distance p1 p2)) (angle p0 p1) (angle p1 p2))
        h   (min (distance p0 p1) (distance p1 p2)))
  (vla-put-DisplayLocked vp :vlax-false)
  (command "_.DVIEW" "" "_TW" (* 180.0 (/ (- ang) pi)) "")
  (command "_.ZOOM" "_C" (trans ctr 0 1) h)
  (vla-put-DisplayLocked vp :vlax-true)
  (princ))

Ein Blatt je Durchlauf: Doppelklick in das Ansichtsfenster des Layouts, damit es aktiv ist, VPAIM tippen, das Rechteck dieses Blatts wählen. Es dreht die Ansicht so, dass die lange Kante des Rechtecks waagerecht liegt, zentriert darauf, passt die kurze Seite auf die Höhe des Ansichtsfensters ein und sperrt es. Das Rechteck muss eine geschlossene Polylinie mit vier Ecken sein, wie RECTANG sie zeichnet; läuft die Straße von rechts nach links, wurde das Rechteck andersherum gezeichnet, dann addieren Sie 180 zum DVIEW-Winkel.

Gut zu wissen

• Die Rechtecke sollten gewöhnliche geschlossene Polylinien sein, eines je Blatt, jedes mit Beschriftung oder Nummer, damit sich die Blätter zuordnen lassen; nennen Sie Layer und Layoutnamen, wenn sie vom Beispiel abweichen.
• Kommt jedes Blatt andersherum heraus (Straße von rechts nach links), sagen Sie „dreh alle um 180 Grad“, dann wird jede Drehung in einem Zug neu berechnet.
• Civil 3D erzeugt diese Blätter aus der Achse selbst; das hier ist für reines AutoCAD, wo das Ansichtsfenster jedes Blatts sonst von Hand ausgerichtet wird.

Mehr aus „Massenbearbeitung“

• Wie verschiebe ich in AutoCAD alle Objekte eines Typs auf einen anderen Layer?
• Wie ändere ich in AutoCAD die Höhe aller Texte einer Zeichnung auf einmal?
• Wie ersetze ich in AutoCAD einen Block in der ganzen Zeichnung durch einen anderen?
• Wie lösche ich in AutoCAD alles auf einem Layer und bereinige den Layer?