changes in DocumentCollectionEventArgs in 2013

[Anonymous]

this code used to work in AutoCAD 2007-2012, but not in 2013

    xAcad = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication
    ThisDrawing = xAcad.ActiveDocument

    Public Sub AddDocumentToBeDestroyedEvent()
        Try
            AddHandler Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.DocumentToBeDestroyed, AddressOf subDocumentToBeDestroyed
        Catch
        End Try
    End Sub

    Public Sub subDocumentToBeDestroyed(ByVal senderObj As Object, ByVal docColDocActEvtArgs As DocumentCollectionEventArgs)
        '::::::::::::::::::::::::::::::::::::::::
        Try

            If ThisDrawing Is docColDocActEvtArgs.Document.AcadDocument Then
                

            Else

            End If
        Catch ex As System.Exception
            MsgBox("Error en docColDocAct: " & ex.Message)
        End Try
    End Sub

it sends the error 'AcadDocument' is not a member of 'Autodesk.AutoCAD.ApplicationServices.Document'

anybody knows the new way to check in both documents are equal?

[Alfred.NESWADBA · Accepted solution]

Hi,

>> it sends the error 'AcadDocument' is not a member of

>> 'Autodesk.AutoCAD.ApplicationServices.Document'

Use this code for 2013 the get the COM-object of the AutoCAD-document (im my snippet: AcadDoc)

Imports Autodesk.AutoCAD

...

CType(ApplicationServices.DocumentExtension.GetAcadDocument(AcadDoc), Interop.AcadDocument)

- alfred -

[Anonymous]

yep, this work

            If ThisDrawing Is CType(Autodesk.AutoCAD.ApplicationServices.DocumentExtension.GetAcadDocument(docColDocActEvtArgs.Document), Autodesk.AutoCAD.Interop.AcadDocument) Then

thanks a lot

regards