---

Hallo zusammen,

um in der 3D-Umgebung vernünftige, blattfüllende Ausdrucke zu erhalten kann mann ja das Anzeigefenster auf das Verhältnis eines A4 Blattes ziehen, dann den gewünschten Bereich zoomen und Plotten. Dies ist vor allem für Hochformatausdrucke sinnvoll. Für Inventor 11 und 2008 habe ich dazu ein Makro erstellt und in einem Werkzeugkasten abgelegt. Unter Inv 2009 funktioniert es nun nicht mehr richtig, da nach Aufruf der Hauptwerkzeugkasten seine Bitmaps verliert. Woran kann das liegen?
Folgend das Makro:

Public Sub subWNHoch()
    'Fenster für Hochformat einstellen
    Dim intWnb As Integer
    'Auflösung Bildschirm Breite
    intWnb = 1280
    Call ThisApplication.Move(0, 0, 1024, 1037 * (intWnb / 1280#))
End Sub

Kann man die Anzeige der Bitmaps erzwingen?
Betriebssystem ist übrigens Windows XP, aber auch unter VISTA ist es so.

Vielen Dank schon im Vorraus

Wolfgang

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

---

So jetzt habe ich selber eine Lösung gefunden.
Wenn das Fenster des aktiven Dokuments genau das Seitenverhältnis eines A4 Blattes hat, wird das im Fenster dargestellte (egal ob 2D oder 3D) flächenfüllend auf ein A4, A3 ... -Blatt gedruckt.

Folgend nun das Makro welches das Ansichtsfenster für Hochformatausdrucke  zurechtrückt:

Public Sub subWNHoch()
    'Fenster für Hochformat einstellen
    'Abruf der Viewgröße und Pos.
    Dim lgWnt As Long
    Dim lgWnl As Long
    Dim lgWnh As Long
    Dim lgWnw As Long
    Call ThisApplication.ActiveView.GetWindowExtents(lgWnt, lgWnl, lgWnh, lgWnw)
    'View scalieren
    Call ThisApplication.ActiveView.Move(lgWnt, lgWnl, lgWnh, lgWnh * 0.707)
End Sub

Zurück zum Vollbild gehts mit:

Public Sub subWNVoll()
    'Fenster Maximieren
    ThisApplication.ActiveView.WindowState = kNormalWindow
    ThisApplication.ActiveView.WindowState = kMaximize
End Sub

Beide Makros und auch das für Querformat sind bei uns in einem Werkzeugkasten abgelegt, so kann man schnell auf Hochformat umschalten und wieder zurück zum Vollbild.

Ggf. könnt ihr das ja auch gebrauchen.

Viele Grüße
Wolfgang

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