Description
This is the unit you want to use for the LOB size. The value may be empty, "K", "M", or "G". DATATYPE: String.
Property Type
- Read-write property
Syntax
Public Property LOBUnit() 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