ActiveDocument property example

Sub ActiveDocProp_Example()
'This example shows how to return the name of the active document.
    Dim activeDoc As AcadDocument
    Set activeDoc = ThisDrawing.Application.ActiveDocument
    MsgBox "The active document is: " & activeDoc.Name, vbInformation, "ActiveDocument Example "
End Sub
Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. Copyright © 2001- Menhirs NV - All rights reserved.