然后，给出一个简单程序的源代码。 您可以先为模型创建接口，然后使用模型打开程序。 保存后关闭程序。
使用错误处理程序来检测和显示可能出现的输入/输出问题总是非常有用的。 如果出现问题，许可证将再次解锁，因此您可以访问RFEM/RSTAB。 进一步的解释可以在源代码中找到。
子 CreateModel（）
'首先，'创建一个新模型。昏暗 iModel As RFEM5.model集 iModel = 新建 RFEM5.model
'这里定义了模型名称，
'表1中单元格B2的内容
'，如果为空，则为“ test.rf5”。
昏暗 modelName 作为字符串If IsEmpty（工作表（“表1”）.Range（“ B2”）。值） 然后 modelName = “ test01.rf5”Else modelName = CStr（工作表（“ Tabelle1”）.Range（“ B2”）。值）End If
'将模型名称传输到接口。iModel.SetName（modelName）
'在此可以指定模型描述。iModel.SetDescription（“说明”)
'错误处理程序。出现错误时转到 e
昏暗 iApp As RFEM5.Application'打开程序接口。
'（程序启动。）
集 iApp = iModel.GetApplication
'禁止COM许可证和程序访问。iApp.LockLicense
'程序显示在前台。iApp.Show
'模型保存在 “ C：\ temp” [SCHOOL.INSTITUTION]iModel.Save（“ C：\ temp \”＆modelName）
e: If 错误编号<> 0 然后 MsgBox Err.Description，，Err.Source
'COM许可证已解锁，可以再次访问程序。iModel.GetApplication.UnlockLicense'程序关闭。iApp.Close
结束子
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
