Description

Name of the entity in the logical model. DATATYPE: String.

Property Type

  • Read-write property

Syntax

Public Property EntityName() As Variant


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

  • No labels