Private Sub CountExample()
' This example demonstrates how to count the number of entities using

' the Count property.

     Dim ents As Object

     Dim ent As Entity

     Dim ct As Long

     Set ents = ActiveDocument.ModelSpace

     ct = ents.Count

     MsgBox "No. of entities = " & ct

End Sub

Documents Collection  | Documents Members