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?
Solved! Go to Solution.
Solved by Alfred.NESWADBA. Go to 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 -
yep, this work
If ThisDrawing Is CType(Autodesk.AutoCAD.ApplicationServices.DocumentExtension.GetAcadDocument(docColDocActEvtArgs.Document), Autodesk.AutoCAD.Interop.AcadDocument) Then
thanks a lot
regards