Description
Returns the number of entities in the collection.
Property type
Read-only property
Syntax
Visual Basic |
---|
Public Property Count As Long |
Example
Private Sub CountExample()
' This example demonstrates how to count the number of entities using
' the Count property.
Dim ents As Object
Dim ent As Object
Dim ct As Long
Set ents = ActiveDocument.ModelSpace
ct = ents.Count - 1
MsgBox "No. of entities = " & ct
Set ent = ents.Item(ct - 1)
MsgBox "Color of this entity is now: " & ent.Color
ent.Color = 3
MsgBox "Color of this entity has been changed to: " & ent.Color
ent.Update
End Sub