---

Ich habe vor ein Programm zu schreiben, dass das Plotten erleichten soll.
Es soll folgendermaßen funktionieren.

Beim Starten des Programms im Layoutbereich sollen bestimmte (oder alle) Seiteneinrichtungen aus einer vorgefertigten Datei geladen werden (z.B. C:\Acad\Seiteneinrichtung.dwt). Danach soll das Programm den eingefügten Zeichnungsrahmen auslesen (Zeichnungsrahmen ist ein Block und hat bestimmten Namen, z.B. A4-quer). Je nachdem welcher Zeichnungsrahmen abgefragt wurde, soll bestimmte Seiteneinrichtung als aktuell gesetzt werden und Zeichnung wird gedruckt.

Wie kann ich die Seiteneinrichtungen aus einer vorhandenen dwt-Datei laden?

Meine Vermutung wäre, dass es damit gehen sollte:

Dim PlotConfigurations As AcadPlotConfigurations
Dim NewPlotSettings As AcadPlotConfiguration
Set PlotConfigurations = " C:\Acad\Seiteneinrichtung.dwt "
Set NewPlotSettings = PlotConfigurations.Item("A0-A0-q")
ThisDrawing.ActiveLayout.CopyFrom NewPlotSettings

Kann mir jemand bitte ein Tipp geben?
Gruß
Georg

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

---

Hi,

füge einfach die Zeichnung, die nur aus Seiteneinrichtungen besteht, mittels der Block-Einfügefunktion in Deine aktuelle Zeichnung ein, dann steht Dir auch die Seiteneinrichtung Deiner Vorlage in der aktuellen Zeichung zur Verfügung.

Code:

---

Option Explicit
Const SourceDocName As String = "C:\Temp\xx.dwg"

Public Sub insertPlotConfigs()
  Dim tBlRef As AcadBlockReference
  Dim tPnt(2) As Double
  Dim tPltCfg As AcadPlotConfiguration
 
  'mal nachsehen, wieviele Seiteneinrichtungen die aktuelle Zeichnung vorher hat:
  Debug.Print "Vorher: " & CStr(ThisDrawing.PlotConfigurations.Count)
 
  'jetzt die vorlage einfuegen
  Set tBlRef = ThisDrawing.ModelSpace.InsertBlock(tPnt, SourceDocName, 1, 1, 1, 0)
 
  'zur kontrolle, ob die Seiteneinrichtungen jetzt vorhanden sind:
  Debug.Print "Nachher: " & CStr(ThisDrawing.PlotConfigurations.Count)
  For Each tPltCfg In ThisDrawing.PlotConfigurations
      Debug.Print "  aktuell vorhanden: " & tPltCfg.Name
  Next
 
  tBlRef.Delete
End Sub

---

...und wenn Du dann noch ganz sauber arbeiten willst, dann kannst Du nach Löschen der BlockReferenz auch noch die BlockDefinition löschen. 

- alfred -

------------------
www.hollaus.at