---

Hallo allerseits,

wer kennt ich gut mit VBA/Autocad2000 und den integrierten Plotmöglichkeiten aus?
Ich schreibe einen eigenen Plot-Dialog und habe folgende Probleme:

1) wenn innerhalb von vba die Plotausrichtung geändert wird, dann verschiebt sich die Zeichnung auf dem Papier, obwohl die centerplot-Eigenschaft auf true steht!

Beispiel:

Sub test()
Dim plot As AcadPlot
Dim aktlayout As Variant
Dim layoutlist(0) As String
Dim layout As ACADLayout

Set layout = ThisDrawing.ActiveLayout
Set plot = ThisDrawing.plot

layoutlist(0) = layout.Name
aktlayout = layoutlist
plot.SetLayoutsToPlot aktlayout

layout.PlotRotation = ac0degrees
layout.CenterPlot = True
plot.DisplayPlotPreview acPartialPreview

layout.PlotRotation = ac90degrees
layout.CenterPlot = True
plot.DisplayPlotPreview acPartialPreview

end sub

2) Wenn der Pfad für die Plotstile innerhalb von vba geändert wird, so ist diese Änderung nicht gültig, obwohl sogar in den Optionen der neue Pfad steht.

z.B:
- Stil auf  Monochrome stellen
- folgende vba-Anweisung ausführen:
ThisDrawing.Application.Preferences.Files.PrinterStyleSheetPath = "C:\"

Trotzdem wird in der Voransicht alles monochrom angezeigt, obwohl der Plotstil nun „fehlt“

Bin für jede Hilfe, auch Links, sehr dankbar,

Gruß

Harry

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

---

Hallo Harry,

nur so'ne Idee.
Versuche mal die Pfadangaben mit Vorwärtsschrägstrichen "/" zu versehen. Da ist (oder war) AutoCAD nämlich empfindlich.

Gruß, Armin

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

---

Danke Armin,

folgendes habe ich noch festgestellt:
Auf einem Rechner mit Autocad2000i und Netzlizenz trat das Problem von Punkt 2 wie beschrieben auf, auf einem Rechner mit Autocad 2000 aber hat sich eine Änderung des Plotstilpfades per vba sofort auf den tatsächl. Stilpfad ausgewirkt.

Werde der Sache noch mal nachgehen.

Gruß
Harry

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