Description

This is the name of the entity in the logical model. DATATYPE: String.

Property type

Read-write property

Syntax

Example

Sets the entity name for each entity in the given collection
 
Dim MyDiagram As Diagram
Dim MyModel As Model
Dim MyEntity As Entity
Dim EntName As String
Dim Count As Integer
Set MyDiagram = DiagramManager.ActiveDiagram
Set MyModel = MyDiagram.ActiveModel
Count = 1
 
Iterates through the Entities collection to rename all entities
 
For Each MyEntity In MyModel.Entities
Uses CStr function to convert the Count variable to a string
 
EntName = "ShinyNewEntity" + CStr (Count)
MyEntity.EntityName = EntName
Count = Count + 1
Next MyEntity

See Also

Entity Object