[编程交流] 问题循环通过我的cad f

Public Class Class1
   Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
   <CommandMethod("comp")> _
   Public Sub createLine()
       Dim mPath As String = ""
       Dim mFxdNm As String = ""
       ' First create a FolderBrowserDialog object
       Dim FolderBrowserDialog1 As New Forms.FolderBrowserDialog
       With FolderBrowserDialog1
           .RootFolder = Environment.SpecialFolder.Desktop
           .SelectedPath = "c:\dxfTest"
           .Description = "Select the source directory"
           If .ShowDialog = Forms.DialogResult.OK Then
               mPath = .SelectedPath.ToString
               Dim last_char = mPath.Substring(mPath.Length - 1)
               If last_char <> "" Then
                   mPath = (mPath & "")
               End If
           End If
       End With
       Dim files() As String ' keeps a list of all nest sums
       files = System.IO.Directory.GetFiles(mPath, "*.dwg") ' gets list of files names in folder
       For Each fname In files  ' Loops Through files() array and parces every nest sum
           Dim strFileName As String = fname
           Dim acDocMgr As DocumentCollection = Application.DocumentManager
           If (File.Exists(strFileName)) Then
               acDocMgr.Open(strFileName, False)
               ' Get the current document and database
               Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
               Dim acCurDb As Database = acDoc.Database
               ' Start a transaction
               Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
                   ' Request for objects to be selected in the drawing area
                   Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection()
                   ' If the prompt status is OK, objects were selected
                   If acSSPrompt.Status = PromptStatus.OK Then
                       Dim acSSet As SelectionSet = acSSPrompt.Value
                       ' Step through the objects in the selection set
                       For Each acSSObj As SelectedObject In acSSet
                           ' Check to make sure a valid SelectedObject object was returned
                           If Not IsDBNull(acSSObj) Then
                               ' Open the selected object for write
                               Dim acEnt As Entity = acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForWrite)
                               If Not IsDBNull(acEnt) Then
                                   ' Change the object's color to Green
                                   acEnt.ColorIndex = 3
                               End If
                           End If
                       Next
                       ' Save the new object to the database
                       acTrans.Commit()
                   End If
                   ' Dispose of the transaction
               End Using
           Else
               acDocMgr.MdiActiveDocument.Editor.WriteMessage("File " & strFileName & " does not exist.")
           End If
       Next
   End Sub
End Class

Imports System
Imports System.IO
Imports System.Windows
Imports Autodesk.AutoCAD.Colors
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
Imports System.Runtime.InteropServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Windows

 
           If (File.Exists(strFileName)) Then
               Dim acDoc As Document = acDocMgr.Open(strFileName, False)
               ' Get the current document and database
               Application.DocumentManager.MdiActiveDocument = acDoc 
               Dim acCurDb As Database = acDoc.Database 

<br>'//Get a database from a file <br>        Public Function GetDatabaseFromFile(ByVal fileName As String) As Database<br>            Dim newDB As Database = New Database(False, True)<br>            newDB.ReadDwgFile(fileName, System.IO.FileShare.None, False, Nothing) <br>            Return newDB<br>        End Function<br>