COM-интерфейс в VBA | 1. Открытие RFEM, создание и сохранение модели, закрытие RFEM

Советы и рекомендации

Первая часть поста об интерфейсе COM описывает открытие и закрытие RFEM. Язык программирования VBA используется в Excel, однако последовательность программ такая же, как и для программирования на C #. Во-первых, необходимо добавить соответствующую ссылку в VBA, чтобы распознать команды для интерфейса. На рисунке слева показан пример RFEM 5.

Затем исходный код для простой программы. Вы можете сначала создать интерфейс для модели, а затем открыть программу, используя модель. После сохранения программа закрывается.

Всегда полезно использовать обработчик ошибок, чтобы обнаруживать и отображать возможные проблемы ввода / вывода. Если есть проблема, лицензия снова разблокируется, так что вы можете получить доступ к RFEM / RSTAB. Дальнейшее объяснение можно найти в исходном коде.

Sub CreateModel()
' Firstly, an interface
' to a new model is created.
Dim iModel As RFEM5.model
Set iModel = New RFEM5.model

' Here, the model name is defined,
' either the content of cell B2 of sheet Table1
' or, if empty, "test.rf5".
Dim modelName As String
If IsEmpty(Worksheets( "Table1" ).Range( "B2" ).Value) Then
modelName = "test01.rf5"
Else
modelName = CStr (Worksheets( "Tabelle1" ).Range( "B2" ).Value)
End If

' Transfer of the model name to the interface.
iModel.SetName(modelName)

' It is possible to specify a model description here.
iModel.SetDescription( "description" )

' Error handling routine.
On Error GoTo

Dim iApp As RFEM5.Application
' Interface to the program is opened.
' (Program is started.)
Set iApp = iModel.GetApplication

' COM license and program access are blocked.
iApp.LockLicense

' Program is displayed in the foreground.
iApp.Show

' Model is saved at "C:\temp" .
iModel.Save("C:\temp\" & modelName)

e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source

' COM license is unblocked, program access possible again.
iModel.GetApplication.UnlockLicense
' Program is closed.
iApp.Close

End Sub

Ссылки

Контакты

Свяжитесь с Dlubal

У вас есть какие-либо вопросы или необходим совет?
Свяжитесь с нами через бесплатную поддержку по электронной почте, в чате или на форуме или найдите различные предлагаемые решения и полезные советы на страницах часто задаваемых вопросов.

+49 9673 9203 0

info@dlubal.com

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

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

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

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

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

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

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