LabelEdge Object

Краткое описание

физические свойства метки ребра, общие для всех типов задач.

Подробное описание

Объект LabelEdge представляет самый общий набор физических данных, который применим для любой метки ребра.

Чтобы изменить физические свойства метки ребра, необходимо сначала получить объект LabelEdge, используя свойство Content объекта Label, затем изменить объект LabelEdge, используя его свойства и методы, и вернуть его обратно объекту Label (задать свойству Content объекта Label значение LabelEdge). Смотрите пример использования объекта Label.

Точный тип объекта LabelEdge, который получается через Label.Content зависит от типа задачи:

Тип задачи	Тип объекта LabelBlock
Задача электростатики	LabelEdgeES
Задача нестационарного электрического поля	LabelEdgeTV
Задача электрического поля постоянных токов	LabelEdgeCF
Задача электрического поля переменных токов	LabelEdgeEC
Задача магнитостатики и нестационарного магнитного поля	LabelEdgeMS
Задача магнитного поля переменных токов	LabelEdgeHE
Задача теплопередачи (стационарной и нестационарной)	LabelEdgeHT
Задача теории упругости	LabelEdgeSA

Объект LabelEdge имеет только те свойства, которые есть у каждого из его специальных типов:

Свойство Type Тип qfEdge	Только для чтения	Возвращает величину типа qfEdge, показывающую, что данные относятся к метке ребра.
Свойство ProblemType Тип qfProblemTypes	Только для чтения	Возвращает тип задачи.
Свойство ConditionType Тип qfBoundaryConditionType	Только для чтения	Возвращает величину, указывающую на тип граничного условия (Дирихле, Нейман, или другое).
Свойство Dirichlet Тип Double	Чтение и установка	Читает и устанавливает величину потенциала на ребре. Тип Double.
Свойство DirichletLinear Тип LinFunc	Чтение и установка	Возвращает и устанавливает потенциал на ребре в форме линейной функции координат. Замечание: параметры линейной функции зависят от выбранных единиц длины. При работе с объектом LabelEdge и его производными для всех величин, зависящих от координат, координаты задаются в метрах, независимо от выбранных единиц длины. Во вновь разрабатываемых программах предпочтительно использовать свойство DirichletEx.
Свойство DirichletEx Тип Variant	Чтение и установка	Возвращает и устанавливает значение потенциала на ребре в виде числа или формулы, зависящей от координат и/или от времени. Тип Variant.
Свойство Neumann Тип Double	Чтение и установка	Устанавливает нормальную компоненту градиента потенциала.
Свойство NeumannEx Тип Variant	Чтение и установка	Возвращает и устанавливает значение нормальной компоненты градиента потенциала в виде числа или формулы, зависящей от координат и/или от времени. Тип Variant
Свойство Floating Тип Boolean	Чтение и установка	Если имеет значение True, означает, что ребро имеет постоянный, но заранее неизвестный потенциал.
Свойство Empty Тип Boolean	Только для чтения	Имеет значение True, если физические данные не указаны для этого объекта.
Метод SetEmpty	Метод	Удаляет физические данные, связанные с объектом LabelEdge.

Каждый специальный объект LabelEdge наследует все методы и свойства базового объекта LabelEdge.

Вобще говоря, на ребре нельзя задать более одного вида граничного условия. Различные виды граничных условий, возвращаемые свойством ConditonType, описаны ниже:

qfDirichlet - на ребре задан потенциал;
qfNeumann - на ребре задана нормальная составляющая производной потенциала;
qfFloating - ребро имеет постоянный, но заранее неизвестный потенциал.

Если присвоить ребру несколько граничных условий, то только последнее из условий будет сохранено.

Следующий пример перебирает метки рёбер в документе и для тех меток, у которых было задано условие Дирихле, устанавливает значение потенциала в виде линейной функции, а для остальных устанавливает нулевое условие Неймана:

dim lb As ELCUT.Label
   For Each lb In prb.DataDoc.Labels(qfEdge)
   Dim edgeData As EdgeEdge
   Set edgeData = lb.Content
   With edgeData
       If .ConditionType = qfDirichlet Then
           Dim lf as LinFunc
           lf.a = 0
           lf.b = 50
           lf.c = 30
            .DirichletLinear = lf
       ElseIf .ConditionType = qfNeumann Then
            .Neumann = 0
       End If
   End With
   lb.Content = edgeData
Next