Application property example

Sub ApplicationProp_Example()
'The following example demonstrates how to return the Application property.
    Dim myObject As AcadApplication
    Set myObject = ThisDrawing.Application
    MsgBox ("Application is: " & myObject.Name)
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.