---

Hallo an Alle,

weiß jemand ein Beispiel in dem ein paar Dateien geöffnet, gedruckt und wieder geschloßen werden. Am besten managed. So was wie publizieren gibt es ja als object nicht? Bin dankbar für jeden Tip.

Danke, Theo

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

---

Hallo Theo,

da das Dokument real erzeugt sein muss, damit das Plotten funktioniert, du aber mit dem 'Programmcode nicht in das neu geöffnete Document wechselns kannst', musst du die Codeausführung über ein Event 'anschubsen'. In diesem Code solltest du das aktuelle Dokument dann auch schließen, damit nicht XX Zeichnungen offen bleiben.
Das heißt, du hast ein Hüllprogramm, welches
(1) die Dateien ermittelt
(2) das Event erzeugt
(3) die Dateien öffnet
und du hast ein Programm, welches druckt.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hi Holger,

ich scheitere an Punkt 3. Hätte nicht gedacht das das ein Problem wird. Aber das Beispiel in der Hilfe funktioniert bei mir nicht.
Was läuft da schief? Kannst Du das unten mal probieren.
Und mir sagen, ob das bei Dir geht.
Danke Theo

Imports System.IO
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime

<CommandMethod("OpenDrawing", CommandFlags.Session)> _
Public Sub OpenDrawing()
  Dim strFileName As String = "C:\campus.dwg"
  Dim acDocMgr As DocumentCollection = Application.DocumentManager

  If (File.Exists(strFileName)) Then
      acDocMgr.Open(strFileName, False)
  Else
      acDocMgr.MdiActiveDocument.Editor.WriteMessage("File " & strFileName & _
                                                    " does not exist.")
  End If
End Sub

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

---

Falls es jemand brauchen kann. Das Beispiel unten funktioniert.

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices

Public Class TestMe

    <CommandMethod("NewDrawing", CommandFlags.Session)> _
    Public Sub NewDrawing()
        Dim acDocMgr As DocumentCollection = Application.DocumentManager
        Dim acdoc As Document = DocumentCollectionExtension.Open(acDocMgr, "D:\Mail\test.dwg", False)
        acDocMgr.MdiActiveDocument = acdoc
    End Sub
End Class

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