Полезные вопросы и ответы

  • Часто задаваемые вопросы

Как с помощью интерфейса COM изменить список параметров?

Ответ

Параметры модели можно легко изменить посредством интерфейса IModel (начиная с версии IModel3):

Sub test_parameter()

Dim iApp As RFEM5.Application
Set iApp = GetObject(, "RFEM5.Application")

iApp.LockLicense

Dim j As Integer
j = iApp.GetModelCount

Dim iMod As RFEM5.IModel3
Set iMod = iApp.GetActiveModel

On Error GoTo e

Dim formParams() As RFEM5.FormulaParameter

'   get all formula parameters
formParams = iMod.GetFormulaParameters

'   delete all formula parameters
iMod.CleanFormulaParameters

'   set list of formula parameters
ReDim Preserve formParams(0 To UBound(formParams, 1) + 1)
formParams(UBound(formParams, 1)).Name = "p"
formParams(UBound(formParams, 1)).Unit = "m"
formParams(UBound(formParams, 1)).UnitType = LengthUnitType
formParams(UBound(formParams, 1)).Value = 0
formParams(UBound(formParams, 1)).ValueType = DoubleType
formParams(UBound(formParams, 1)).Comment = "new parameter"
formParams(UBound(formParams, 1)).Formula = "b/3"
formParams(UBound(formParams, 1)).RangeOfValues = "(3;5.5>"

iMod.SetFormulaParameters formParams

e:

If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicense
Set iMod = Nothing

End Sub


Однако прочитать все параметры можно только с помощью функции GetFormulaParameters(). Благодаря функции SetFormulaParameters(), затем можно повторно передавать как измененные, так и новые параметры, но только в виде списка. Это значит, что изменение и считывание отдельных параметров невозможно.

Следует также отметить, что «Значение», связанное с определенным типом (ValueTyp) и единицей измерения (Unit), должно быть всегда в заданных пределах (RangeOfValues), иначе появится сообщение об ошибке. Но если значение рассчитывается так, как показано в примере, тогда оно не имеет значения. В таком случае потом важно, чтобы в пределах, если они заданы, находилось значение, рассчитанное по заданной формуле (Formula).


Ключевые слова

Параметры Параметризация Список параметров FormulaParameter

Загрузки

Ссылки

Добавить комментарий...

Добавить комментарий...

  • Просмотры 130x
  • Обновления 26. февраля 2021

Контакты

Вы нашли ответ на свой вопрос? Если нет, свяжитесь с нами через бесплатную поддержку по электронной почте, в чате или на форуме или отправьте нам свой вопрос с помощью онлайн-формы.

+49 9673 9203 0

info@dlubal.com

Онлайн обучение | На английском

Еврокод 5 | Деревянные конструкции по норме EN 1995-1-1

Онлайн-обучение 17. марта 2021 8:30 - 12:30 CET

Онлайн обучение | На английском

Еврокод 3 | Стальные конструкции по норме DIN EN 1993-1-1

Онлайн-обучение 18. марта 2021 8:30 - 12:30 CET

Онлайн обучение | На английском

RFEM | Динамические расчеты | США

Онлайн-обучение 23. марта 2021 13:00 - 16:00 EST

Программа RFEM для студентов | США

Онлайн-обучение 21. апреля 2021 13:00 - 16:00 EST

RFEM | Древесина | США

Онлайн-обучение 5. мая 2021 13:00 - 16:00 EST

Онлайн обучение | Английский

RFEM | Основные функции | США

Онлайн-обучение 17. июня 2021 9:00 - 13:00 EST

RFEM Основная программа
RFEM 5.xx

Основная программа

Программное обеспечение для расчета конструкций методом конечных элементов (МКЭ) плоских и пространственных конструктивных систем, состоящих из плит, стен, оболочек, стержней (балок), тел и контактных элементов

Цена первой лицензии
3 540,00 USD
RSTAB Основная программа
RSTAB 8.xx

Основная программа

Программное обеспечение для расчета конструкций рам, балок и ферм, выполняющее линейные и неьинейные расчеты внутренних сил, деформаций и опорных реакций

Цена первой лицензии
2 550,00 USD
RFEM Прочие
RF-COM 5.xx

Дополнительный модуль

Программируемый интерфейс (API), основанный на технологии COM

Цена первой лицензии
580,00 USD
RSTAB Прочие
RS-COM 8.xx

Дополнительный модуль

Программируемый интерфейс (API), основанный на технологии COM

Цена первой лицензии
580,00 USD