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 |