批量打开文件会致命错误

junhua1123

1.    <CommandMethod("ls1", CommandFlags.Session)> Public Sub ls1()
   
2.         Dim objOpenFileDialog As Autodesk.AutoCAD.Windows.OpenFileDialog = New Autodesk.AutoCAD.Windows.OpenFileDialog("选择文件", "CAD图", "dwg", "DialogName", Autodesk.AutoCAD.Windows.OpenFileDialog.OpenFileDialogFlags.AllowMultiple)
   
3.         If objOpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
   
4.             '创建文件夹
   
5.             Dim myDirectory As String = Path.GetDirectoryName(objOpenFileDialog.Filename)
   
6.             Dim newFolder As String = "\转换后"
   
7.             If Not Directory.Exists(myDirectory + newFolder) Then
   
8.                 Directory.CreateDirectory(myDirectory + newFolder)
   
9.             End If
   
10.             For i As Integer = 0 To objOpenFileDialog.GetFilenames.Length - 1
    
11.                 Try
    
12.                     Dim Filename As String = objOpenFileDialog.GetFilenames(i)
    
13.                     Dim doc As Document = Application.DocumentManager.Open(Filename, False)
    
14.                     '执行命令，接受Document参数。
    
15.                     Dim doclock As DocumentLock = doc.LockDocument()
    
16.                     pRastIns(Filename)
    
17.                     doclock.Dispose()
    
18.                     '改文件名
    
19.                     Dim newFileName As String = myDirectory + newFolder + "\" + Path.GetFileName(Filename)
    
20.                     '存储的文件版本
    
21.                     doc.Database.SaveAs(newFileName, DwgVersion.Current)
    
22.                     '  ed.WriteMessage("newFileName:<" + newFileName + ">");
    
23.                     doc.CloseAndSave(newFileName)
    
24.                 Catch ex As Exception
    
25.                     ed.WriteMessage(ex.Message)
    
26.                 End Try
    
27.             Next
    
28.         End If
    
29.     End Sub
    

   <CommandMethod("ls1", CommandFlags.Session)> Public Sub ls1()<br />         Dim objOpenFileDialog As Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Windows.OpenFileDialog = New Autodesk.AutoCAD.Windows.OpenFileDialog("选择文件", "CAD图", "dwg", "DialogName", Autodesk.AutoCAD.Windows.OpenFileDialog.OpenFileDialogFlags.AllowMultiple)<br />         If objOpenFileDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then<br />             '创建文件夹 <br />             Dim myDirectory As String = Path.GetDirectoryName(objOpenFileDialog.Filename)<br />             Dim newFolder As String = "\转换后"<br />             If Not Directory.Exists(myDirectory + newFolder) Then<br />                 Directory.CreateDirectory(myDirectory + newFolder)<br />             End If<br />             For i As Integer = 0 To objOpenFileDialog.GetFilenames.Length - 1<br />                 Try<br />                     Dim Filename As String = objOpenFileDialog.GetFilenames(i)<br />                     Dim doc As Document = Application.DocumentManager.Open(Filename, False)<br />                     '执行命令，接受Document参数。<br />                     Dim doclock As DocumentLock = doc.LockDocument()<br />                     pRastIns(Filename)<br />                     doclock.Dispose()<br />                     '改文件名<br />                     Dim newFileName As String = myDirectory + newFolder + "\" + Path.GetFileName(Filename)<br />                     '存储的文件版本<br />                     doc.Database.SaveAs(newFileName, DwgVersion.Current)<br />                     '  ed.WriteMessage("newFileName:<" + newFileName + ">");<br />                     doc.CloseAndSave(newFileName)<br />                 Catch ex As Exception<br />                     ed.WriteMessage(ex.Message)<br />                 End Try<br />             Next<br />         End If<br />     End Sub<br />

运行有些文件没问题，有些有问题，不知道错在哪里
问题是这句Dim doc As Document = Application.DocumentManager.Open(Filename, False)
cad提示如下：
致命错误：Unhandled Access Violation Reading 0x7efc4134 Exception at 62066e4h

忘高手解决，在线等

long9841

cad 2006 有这个问题,俺也没解决