求助：vb.net设置当前的活动文档为新打开的Dwg文件
Dim docs As DocumentCollection = Application.DocumentManagerDim MyDir = "C:\新建文件夹"
Dim MyFilter = "*.dwg"
For Each MyFile In System.IO.Directory.GetFiles(MyDir, MyFilter)
Dim filename As String = MyFile
Dim doc As Document = docs.Open(filename, True)
'设置当前的活动文档为新打开的Dwg文件()
docs.MdiActiveDocument = doc'运行到这里就停了不能运行下面的语句请指教
' 关闭活动文档
doc.CloseAndDiscard()
Next 我也是不能执行，同问
你一定要把新打开的文档置为当前吗？如果不置为当前就没问题。。其实你要是做什么批量操作，也没必要置为当前啊。
你是编译的dll加载的吗？如果是这样的话，我理解，你加载的那个dll运行的时候就是在当前文档的范围下，当你把当前文档置为其他文档的时候，那个以后的语句就好像被挂起了一样，我也不知道是被终止了还是被挂起。CAD报的错是“图形忙”！
要不你就用windows窗体应用程序来做。
<CommandMethod("OpenDwg")> _
Public Sub OpenDwg()
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
'获取文档管理器对象以打开Dwg文件
Dim docs As DocumentCollection = Application.DocumentManager
Dim filename As String
filename = My.Application.Info.DirectoryPath & "\tsf.dwg"
'打开所选择的Dwg文件
Dim doc As Document = docs.Open(filename, True)
'设置当前的活动文档为新打开的Dwg文件
Application.DocumentManager.MdiActiveDocument = doc
End Sub
我在form中调用opendwg()时提示执行环境效，（已经导入相同的COM了),但是执行命令：opendwg又可以打开文件，这个是什么原因呢，又如何解决呢？
页:
[1]