Объект Link представляет связь задач (объект Problem). Объект Problem хранит все свои связи (объекты Link) в коллекции Links. Коллекция доступна через свойство Links объекта Problem.
Объект Link имеет следующие методы и свойства:
|
Свойство LinkType. Тип qfLinkTypes,
|
Возвращает тип объекта Link. Тип связи определяется в момент создания связи (добавления объекта Link к коллекции). Нельзя изменить тип существующей связи. Для этого надо сначала удалить старую связь (метод Remove), а затем создать новую (метод Add). |
|
Свойство TargetName. Тип String
|
Возвращает и устанавливает имя файла задачи, с которой установлена связь. |
|
Свойство TargetType. Тип qfProblemTypes
|
Возвращает тип задачи, с которой установлена связь. |
|
Свойство Flags. Тип Integer (32-бит)
|
Возвращает и устанавливает поле двоичных флагов, конкретизирующих особенности
межзадачной связи. |
В следующем примере к задаче магнитного поля переменных токов добавляется связанная задача нелинейной магнитостатики. Из связанной задачи извлекается магнитное состояние вещества (поле магнитной проницаемости в каждой точке пространства), которое используется для расчета поля переменных токов. Устанавливается флаг qfIncrementalPermeability, означающий вычисление дифференциальной магнитной проницаемости. При отсутствии флага qfIncrementalPermeability вычислялась бы статическая магнитная проницаемость.
Dim pbm As ELCUT.Problem
Set pbm = ELC.Problems.Open("CoaxialHE.pbm")
' удаляем все старые связи
While pbm.Links.Count > 0
pbm.Links.Remove (1)
Wend
' добавляем новую связь задач для импорта магнитной проницаемости
Dim lnk As ELCUT.Link
Set lnk = pbm.Links.Add(qfMagneticState, "Coaxial.pbm")
' устанавливаем флаг дифференциальной магнитной проницаемости.
Dim myFlags As Integer
' чтобы не испортить значения других флагов применяем побитовое сложение
myFlags = lnk.Flags Or qfIncrementalPermeability
' присваиваем модифицированное значение флагов
lnk.Flags = myFlags
pbm.Save