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. © 2001- Menhirs NV - All rights reserved. |