---

Hallo Viel-Wissende,

obwohl ich schon logisch eine Menge hintereinanderkriege, verzweifle ich hier:

Ich möchte einen Bereich im Modell (als pdf) drucken und habe mir einiges zusammengesucht...

Eine Zeichnung (A4 hochkant) beginnt bei Point1 mit 0,0 und geht bis Point2 mit 210,297. Wenn ich bei ### durch einen Haltepunkt abbreche und dann in AutoCAD>>Datei>>Plot... das Plottenfenster öffne und auf den Botton "Fenster<" gehe, sehe ich, dass der richtig gewählte Bereich nach rechts oben verschoben ist, sodass natürlich nur der linke untere Zipfel gedruckt wird.

Was mache ich nur falsch???

Sub PlotPDF()
    Dim point1 As Variant, point2 As Variant
   
    ThisDrawing.ActiveLayout = ThisDrawing.Layouts("Model")

    ZoomExtents
    ThisDrawing.SetVariable "OSMODE", 53
    ThisDrawing.SetVariable "ORTHOMODE", 0
    ThisDrawing.ActiveLayout.ConfigName = "PDFCreator"
   
    ThisDrawing.ActiveLayout.CanonicalMediaName = "A4" ''Papierformat A4
    ThisDrawing.ActiveLayout.StyleSheet = "acad1.ctb" ''STB oder CTB je nachdem was vorgegeben ist.
    ThisDrawing.ActiveLayout.StandardScale = acScaleToFit    ''Plotmaßstab
   
    ThisDrawing.ActiveLayout.PlotRotation = 0 ''Plotrotation
    ThisDrawing.Plot.NumberOfCopies = 1 ' 1 Kopie drucken
 
    point1 = ThisDrawing.Utility.GetPoint(, "Click the lower-left of the window to plot.")    ' Get first point in window
    point2 = ThisDrawing.Utility.GetCorner(point1, "Click the upper-right of the window to plot.") ' Get second point in window
   
    ReDim Preserve point1(0 To 1)  ' Change this to a 2D array by removing the Z position
    ReDim Preserve point2(0 To 1)  ' Change this to a 2D array by removing the Z position
   
    ThisDrawing.ActiveLayout.SetWindowToPlot point1, point2    ' Send information about window to current layout

'### HIER ist das Problem bereits!

    ThisDrawing.ActiveLayout.GetWindowToPlot point1, point2    ' Read back window information

    MsgBox "Press any key to plot the following window:" & vbCrLf & vbCrLf & _
          "Lower Left: " & point1(0) & ", " & point1(1) & vbCrLf & _
          "Upper Right: " & point2(0) & ", " & point2(1)

    ThisDrawing.ActiveLayout.PlotType = acWindow
   
'    ThisDrawing.ModelSpace.Layout.StandardScale = acScaleToFit    ' Be sure to plot a view, not some other plot style
    ThisDrawing.ActiveLayout.StandardScale = acScaleToFit    ' Be sure to plot a view, not some other plot style

'...
End Sub

Danke für Eure Hilfe...,
Stefan

AutoCAD2008 auf XPProfessional

------------------
IV2008

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

---

Schon gelöst?
Mein Vorschlag wäre die Zeile

  ThisDrawing.ActiveLayout.PlotType = acWindow
schon vor
  ThisDrawing.ActiveLayout.SetWindowToPlot point1, point2    ' Send information about window to current layout

zu setzen. Dann sollte es eigentlich klappen ...

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

---

acadzusstellung.pdf

Hallo KlaK,

klappt leider auch nicht.

Im Anhang mal eine pdf des Ergebnisses.

Irgendwie klappt die Zuweisung per vba nicht, denn wenn ich anschließend wider auf Plot gehe und auf <Fenster, sehe ich genau dieses zugewiesene Fenster, das die pdf zeigt.

Warum die Verschiebung da ist.... ein Rätsel (für mich?!).

Danke schonmal,
Stefan

------------------
IV2008

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

---

Plot_Vorschau.jpg Plot_Seiten.jpg

Wenn ich bei mir die angegebene Änderung mache erhalte ich den richtigen Ausschnitt (siehe Plot_vorschau.jpg)
evtl. kontrollierst Du mal in der Seiteneinrichtung die Einstellungen, meine habe ich Dir nach Programmdurchlauf als Plot_Seite.jpg beigelegt

Grüße
Klaus 

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

---

nach_plotpdf.jpg vorschau.jpg

Hallo KlaK,

danke für die schnelle Antwort!

Anbei Screenshots nach Ausführung des vba-Codes (Plot-Einstellungen sind gesetzt) und anschließend die Vorschau (die ja auch die pdf ergab).

Was ist anormal?

Schönen Gruß,
Stefan

------------------
IV2008

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

---

Hallo Stefan,

ich kann einstellen was ich möchte mit diesem geänderten Code bringt er immer die richtigen Ergebnisse:

Code:

---

Sub PlotPDF()
    Dim point1 As Variant, point2 As Variant
 
    ThisDrawing.ActiveLayout = ThisDrawing.Layouts("Model")

    ' << ZoomExtents auskommentiert, sonst finde ich meinen Rahmen so schlecht >>
    'ZoomExtents                               
    ThisDrawing.SetVariable "OSMODE", 53
    ThisDrawing.SetVariable "ORTHOMODE", 0
    ThisDrawing.ActiveLayout.ConfigName = "PDFCreator"
 
    ThisDrawing.ActiveLayout.CanonicalMediaName = "A4" ''Papierformat A4
    'ThisDrawing.ActiveLayout.StyleSheet = "acad1.ctb" ''STB oder CTB je nachdem was vorgegeben ist.
    ThisDrawing.ActiveLayout.StandardScale = acScaleToFit    ''Plotmaßstab
 
    ThisDrawing.ActiveLayout.PlotRotation = 0 ''Plotrotation
    ThisDrawing.Plot.NumberOfCopies = 1 ' 1 Kopie drucken

    point1 = ThisDrawing.Utility.GetPoint(, "Click the lower-left of the window to plot.")    ' Get first point in window
    point2 = ThisDrawing.Utility.GetCorner(point1, "Click the upper-right of the window to plot.") ' Get second point in window
 
    ReDim Preserve point1(0 To 1)  ' Change this to a 2D array by removing the Z position
    ReDim Preserve point2(0 To 1)  ' Change this to a 2D array by removing the Z position
 
    ThisDrawing.ActiveLayout.SetWindowToPlot point1, point2    ' Send information about window to current layout
    ThisDrawing.ActiveLayout.PlotType = acWindow  ' <<< hier eingefügt
    ThisDrawing.Regen acActiveViewport            ' <<< hier eingefügt

'### HIER ist das Problem bereits!

' ---- Aufruf Vorschau eingefügt (einfacher zum kontrollieren) ------------------
    ThisDrawing.Plot.DisplayPlotPreview acFullPreview

    ThisDrawing.ActiveLayout.GetWindowToPlot point1, point2    ' Read back window information

    MsgBox "Press any key to plot the following window:" & vbCrLf & vbCrLf & _
          "Lower Left: " & point1(0) & ", " & point1(1) & vbCrLf & _
          "Upper Right: " & point2(0) & ", " & point2(1)

 
'    ThisDrawing.ModelSpace.Layout.StandardScale = acScaleToFit    ' Be sure to plot a view, not some other plot style
    ThisDrawing.ActiveLayout.StandardScale = acScaleToFit    ' Be sure to plot a view, not some other plot style

'...
End Sub

---

Egal ob Plot zentrieren oder nicht eingestellt war (der einzige sichtbare Unterschied)
Deine Plotstiltabelle habe ich natürlich auch nicht.

Evtl. einmal einen anderen Drucker probieren ?

Ansonsten bin ich auch ratlos ...

Grüße
Klaus 

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