Архитектору и проектировщику|Тепло- и звукоизоляция URSA.RU
Показать сообщение отдельно
Непрочитано 07.11.2018, 12:02 #1
Обращение к коллекции вызывает краш автокада (VB.NET)
ramber
 
Регистрация: 18.04.2011
Сообщений: 33

Всем привет!
Начинаю медленный и плавный переход из VBA в VB.NET. Идет тяжело...
Написал программку, которая сохраняет все открытые файлы, которые возможно сохранить и закрывает автокад.

Вылетает в строке:
For Each Document In Document.Application.Documents

На VBA она была :
For Each Document In Documents
но так компилятор сильно ругался((

Код:
[Выделить все]
Namespace SaveAndExit

    Public Class Commands

        <CommandMethod("SNE")>
        Public Shared Sub SaveAndExit()

            Dim Document As AutoCAD.AcadDocument

            For Each Document In Document.Application.Documents

                On Error Resume Next

                Document.Save()

                If Err.Number <> 0 Then
                    Document.Close(False)
                Else
                    Document.Close(True)
                End If

                On Error GoTo 0

            Next
            Autodesk.AutoCAD.ApplicationServices.Core.Application.Quit()

        End Sub
    End Class
End Namespace
Просмотров: 4252
 
Размещение рекламы