Description
InterModelID of the object, as assigned by ER/Studio. DATATYPE: Integer.
Property Type
- Read-only property
Syntax
Public Property InterModelID() As Variant
Example
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
See Also