Page History
...
Example
Sub Main
Dim d As Diagram
Dim m As Model
Dim rel As Relationship
Set d = DiagramManager.ActiveDiagram
Set m = d.ActiveModel
'Force every Relationship to be Mandatory and One-To-One or More
For Each rel In m.Relationships
rel. = 1
rel.CardinalityNo = 1
Next rel
End Sub
| Info | ||
|---|---|---|
| ||