Réponse:
Les paramètres de calcul d'un cas de charge ne peuvent pas être définis initialement lors de sa création, mais uniquement par la suite à l'aide de l'interface du cas de charge existant. Pour obtenir l'interface d'un cas de charge, vous devez d'abord avoir les interfaces « IModel » et « ILoads » :
Sub test_analysis_parameters()
Dim iApp As RFEM5.ApplicationSet iApp = GetObject(, "RFEM5.Application")
iApp.LockLicense
Dim iMod As RFEM5.IModel3Set iMod = iApp.GetActiveModel
On Error GoTo e
' get interface of loadsDim iLds As RFEM5.iLoadsSet iLds = iMod.GetLoads
' get interface of load caseDim iLc As RFEM5.ILoadCaseSet iLc = iLds.GetLoadCase(1, AtNo)
' get analysis parametersDim param_analy As RFEM5.AnalysisParametersparam_analy = iLc.GetAnalysisParameters
' change analysis parametersparam_analy.Method = Postcriticalparam_analy.ModifyLoadingByFactor = Trueparam_analy.LoadingFactor = 1.5' ...
' set new analysis parametersiLds.PrepareModificationiLc.SetAnalysisParameters param_analyiLds.FinishModification
e:
If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicenseSet iMod = Nothing
End SubUtilisez « ILoads.GetLoadcase » pour obtenir l'interface pour un cas de charge spécifique. Cette interface contient les fonctions « GetAnalysisParameters » et « SetAnalysisparameters », qui permettent de lire et d'écrire des paramètres.
La même procédure s'applique également aux combinaisons de charges.
.png?mw=350&hash=f16140ae43d28213fcc316f52e0fd6e4e724b734)
.png?mw=350&hash=e3f5898d72f463e9b3e774659aabcb220466c522)
.jpg?mw=350&hash=196d91410dd36f58fcc8b0194f4577bb70cf53c3)
