Então, o código fonte para um programa simples. Pode criar primeiro a interface para o modelo e depois abrir o programa utilizando o modelo. Após guardar, o programa é fechado.
É sempre bom utilizar o manipulador de erros para detectar e exibir os possíveis problemas de entrada / saída. Se ocorrer um problema, a licença será novamente desbloqueada para poder aceder ao RFEM. Mais explicações podem ser encontradas no código-fonte.
Sub CreateModel()
' Firstly, an interface
' to a new model is created.
Dim iModel As RFEM5.model
Definir iModel = Novo 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 StringIf 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 e
Dim iApp As RFEM5.Application
' Interface to the program is opened.
' (Program is started.)
Definir 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