サンプル: シーケンス図のメッセージの位置

シーケンス図のメッセージの位置を指定するためのサンプルです。(VBA)

なお、APIが直接対応していないので、未公開・未サポートの
APIを利用しています。

参考情報としてご活用ください。

'メッセージの位置の指定(EAの場合は、前のメッセージとの差で位置を管理しています。この部分は現在APIが未対応なので、直接データベースを書き換える必要があります。)

Dim msg As EA.Connector '対象のメッセージ
Dim sql As String

sql = "Update t_connector SET PDATA5 = 'SX=0;SY=-50;' WHERE Connector_ID = " + CStr(msg.ConnectorID) +";"
Repository.Execute(sql)

→前のメッセージから下に50ピクセル下げて配置する