Versions Compared

Old Version 2

changes.mady.by.user Nadja Pollard

Saved on

compared with

New Version Current

changes.mady.by.user Nadja Pollard

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
languagevb
Sub Main 

Dim diag As Diagram 
Dim dict As Dictionary 
Dim mdl As Model 
Dim ent As Entity 
Dim attr As AttributeObj 
Dim udt As UserDatatype 

Set diag = DiagramManager.NewDiagram 

Set dict = diag.Dictionary 
Set mdl = diag.ActiveModel 

Set udt = dict.UserDatatypes.Add(“MyUDT”) 
udt.Datatype = “INTEGER” 

Set ent = mdl.Entities.Add(100,100) 
ent.EntityName = “MyEntity” 
Set attr = ent.Attributes.Add(“NewAttr”, False) 
attr.UserDatatypeId = udt.ID 

End Sub
Info
titleSee Also