IWxShape.ConnectionPoints

Синтаксис

ConnectionPoints(Index: Integer): IGxPointF;

ConnectionPoints[Index: integer]: Prognoz.Platform.Interop.Drawing.IGxPointF;

Параметры

Index. Индекс точки соединения объекта.

Описание

Свойство ConnectionPoints возвращает координаты точек соединения объекта.

Пример

Для выполнения примера в репозитории предполагается наличие рабочего пространства с идентификатором «WSP», содержащего несколько соединенных фигур.

Добавьте ссылки на системные сборки: Andy, Drawing, Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    ws: IWxWorkspace;
    i: Integer;
    X, Y: Double;
    Shape: IWxShape;
Begin
    MB := MetabaseClass.Active;
    // Получаем рабочее пространство
    ws := MB.ItemById("WSP").Edit As IWxWorkspace;
    Shape := ws.Shapes.Item(0);
    For i := 0 To Shape.ConnectionPointsCount - 1 Do
        X := Shape.ConnectionPoints(i).X;
        Y := Shape.ConnectionPoints(i).Y;
        Debug.WriteLine("X " + X.ToString + #10 + #13 + "Y " + Y.ToString);
    End For;
    // Сохраняем изменения
    (ws As IMetabaseObject).Save;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Drawing;
 
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    ws: IWxWorkspace;
    i: Integer;
    X, Y: Double;
    Shape: IWxShape;
Begin
    MB := Params.Metabase;
    // Получаем рабочее пространство
    ws := MB.ItemById["WSP"].Edit() As IWxWorkspace;
    Shape := ws.Shapes.Item[0];
    For i := 0 To Shape.ConnectionPointsCount - 1 Do
        X := Shape.ConnectionPoints[i].X;
        Y := Shape.ConnectionPoints[i].Y;
        System.Diagnostics.Debug.WriteLine("X " + X.ToString() + char.ConvertFromUtf32(10) + char.ConvertFromUtf32(13) + "Y " + Y.ToString());
    End For;
    // Сохраняем изменения
    (ws As IMetabaseObject).Save();
End Sub;

В процессе выполнения примера будут поэтапно выдаваться сообщения, содержащие координаты точек соединения объекта.

См. также:

IWxShape