サンプル: シーケンス図の戻りメッセージの設定

APIでシーケンス図の戻りメッセージを作成する場合のサンプルコードです。(VBA)

Dim dgm as EA.Diagram
Dim fromElem as EA.Element, toElem as EA.Element
(これらの要素は適切に設定しておいてください。)

Dim msg as EA.Connector

Set msg = toElem.Connectors.AddNew("","Sequence")
msg.Name = "reply"
msg.ClientID = fromElem.ElementID
msg.SupplierID = toElem.ElementID
msg.SequenceNo = 2　'メッセージの順序の指定
msg.DiagramID = dgm.DiagramID
msg.Update

Dim prop

For Each prop In msg.Properties
If prop.Name = "IsReturn" Then '戻りメッセージ
prop.Value = True
msg.Update
End If
Next