Page History

Public Property LogicalRoleName() As Variant

Sub Main 

Dim MyDiagram As Diagram 
Dim m As Model 
Dim e As Entities 
Dim ent As Entity 
Dim atr As AttributeObj 

Set MyDiagram = DiagramManager.ActiveDiagram 
Set m = MyDiagram.ActiveModel 
Set e = m.Entities 

For Each ent In e 
For Each atr In ent.Attributes 
atr.LogicalRoleName = ent.EntityName + "_" + atr.AttributeName + "_Role" 
Next atr 
Next ent 

For Each ent In e 
For Each atr In ent.Attributes 

If atr.HasLogicalRoleName then 
MsgBox("ENT: " + ent.EntityName + vbCrLf + _ 
"ATTR: " + atr.AttributeName + vbCrLf + _ 
"LogicalRoleName: " + atr.LogicalRoleName) 
End If 

Next atr 
Next ent 

End Sub