Puis, ajoutez le code source pour un programme simple. Vous pouvez d'abord créer l'interface pour le modèle, puis ouvrir le programme à l'aide du modèle. Le programme est fermé après la sauvegarde.
Il est toujours bon d'utiliser le gestionnaire d'erreur afin de détecter et d'afficher les éventuels problèmes d'entrée/de sortie. En cas de problème, la licence est de nouveau déverrouillée afin que vous puissiez accéder à RFEM/RSTAB. Vous trouverez d'autres explications dans le code source.
Sub CreateModel()
' Tout d'abord, une interface' est créée au nouveau modèle.Dim iModel As RFEM5.model Set iModel = New RFEM5.model
' Le nom du modèle est défini ici, avec
' soit le contenu de la cellule B2 de la feuille du Tableau 1
' soit "test.rf5" si celui-ci est vide.
Dim modelName As StringIf IsEmpty(Worksheets( "Table1").Range( "B2").Value) Then modelName = "test01.rf5"Else modelName = CStr(Worksheets( "Table1").Range( "B2").Value) End If
' Transfert du nom du modèle à l'interface.iModel.SetName(modelName)
' Il est possible d'ajouter une description du modèle ici.iModel.SetDescription( "description")
' Routine de la gestion d'erreur.On Error GoTo e
Dim iApp As RFEM5.Application ' L'interface est ouverte dans le programme.
' (Le programme a démarré.)
Set iApp = iModel.GetApplication
' L'accès à la licence COM et au programme est bloqué.iApp.LockLicense
' Le programme est affiché en arrière-plan.iApp.Show
' Le modèle est sauvegardé dans"C:\temp" .iModel.Save("C:\temp\" & modelName)
e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
' La licence COM est débloquée, le programme est de nouveau accessible.iModel.GetApplication.UnlockLicense' Le programme est fermé.iApp.Close
End Sub
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
