Private Sub EntityNameExample()

' This example returns the EntityName property for drawing entities.

     Dim ents As Object

     Dim ent As Object

     Set ents = ActiveDocument.ModelSpace

     MsgBox "No. of entities = " & ents.Count

     Set ent = ents.Item(ents.Count - 1)

     MsgBox "The EntityName property for the last entity is: " & ent.EntityName

End Sub

Hatch Object  | Hatch Members