Code:
Private Sub P1_CMB_Durchlauf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles P1_CMB_Durchlauf.Click Dim acDocMgr As DocumentCollection = DocumentManager
Dim doc As Document = DocumentManager.MdiActiveDocument
Try '--beim Durchlauf auf Fehler prüfen--!!
If Len(DWGFile) < 1 Then
MsgBox("Es wurde kein Verzeichnis ausgewählt", MsgBoxStyle.Information, "Fehlermeldung")
End If
Dim MyDir As New System.IO.DirectoryInfo(DWGFile)
Dim MyFiles As System.IO.FileInfo() = MyDir.GetFiles("*.dwg")
Dim MyFile As System.IO.FileInfo
For Each MyFile In MyFiles
acDocMgr.Open(DWGFile & "\" & MyFile.Name, False)
'Die Zeichnungen aus dem DWGFile werden alle hintereinander geöffnet
'Bei Zeichnungen mit dynamischen Blöcken kommt eine AutoCAD - Meldung
'die den Durchlauf unterbricht und eine Bestätigung erwartet, siehe Anhang
'########################################### 'ab hier soll folgendes passieren
'Ansicht von oben (_top)
'Drahtkörper (2D)
'Regen
'PurgeAll
'Zoom alles
'sichern
'Zeichnung wieder schließen
Next
Catch ex As Autodesk.AutoCAD.Runtime.Exception
MsgBox(ex.Message)
End Try
End Sub