サンプル: 複合フラグメントの追加

複合フラグメントをダイアグラム内に追加する場合のサンプルです。(VBA)

Dim dgm As EA.Diagram
(この値は事前に適切に設定してください)

Dim elemFragment As EA.Element
Dim dgmObj As EA.DiagramObject
Dim pkg As EA.Package

'要素は親パッケージに対して追加する必要がある
Set pkg = Repository.GetPackageByID(dgm.PackageID)
Set elemFragment = pkg.Elements.AddNew("","InteractionFragment")

'条件部分の設定
Dim part
Set part = elemFragment.Partitions.AddNew("<名前なし>","")
part.Size = 50
Set part = elemFragment.Partitions.AddNew("cond","")
elemFragment.Update

'作成した要素をダイアグラム内に配置
Set dgmObj = dgm.DiagramObjects.AddNew("","")
dgmObj.ElementID = elemFragment.ElementID
dgmObj.left = 20
dgmObj.right = 230
dgmObj.top = -110
dgmObj.bottom = -300
dgmObj.Update