ObjectName property example

Sub ObjectName_example()
    Dim ent As AcadEntity
    For Each ent In ThisDrawing.ModelSpace
        MsgBox "The ObjectName is: " & ent.ObjectName
    Next
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.