Description
This is the name Name of the entity in the logical model. DATATYPE: String.
Property
...
Type
Syntax
...
| Code Block |
|---|
|
Public Property EntityName() As Variant |
Example
Sets the entity name for each entity in the given collection.anchor
...
...
...
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 |
...