FirstPointAutoCpSelect: Boolean;
Свойство FirstPointAutoCpSelect определяет признак использования автоматического выбора точки при соединении начала соединяющего объекта с другой фигурой.
Если значение данного свойства True, то связь будет привязана к одной из точек соединения "по периметру" в зависимости от места положения объекта, то есть фактически для соединения используется точка соединения "по центру".
Если значение данного свойства False, то связь будет всегда привязана к одной точке соединения объекта вне зависимости от места расположения объекта.
По умолчанию свойство имеет значение False.
Для выполнения примера в репозитории предполагается наличие рабочего пространства с идентификатором «WSP», содержащее две фигуры и связь между ними.
Добавьте ссылки на системные сборки: Andy, Drawing, Metabase.
Sub UserProc;
Var
mb: IMetabase;
ws: IWxWorkspace;
Link: IWxLink;
Shapes: IWxShapes;
Begin
// Получаем рабочее пространство для редактирования
mb := MetabaseClass.Active;
ws := mb.ItemById("WSP").Edit As IWxWorkspace;
Shapes := ws.Shapes;
Link := ws.Shapes.Item(2) As IWxLink;
Link.FirstPointAutoCpSelect := True;
Link.LastPointAutoCpSelect := True;
(ws As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера для связи будет использоваться автоматический выбор точек.
См. также: