Antwort:
Die Berechnungsparameter eines Lastfalls können zunächst nicht beim Anlegen eingestellt werden, sondern nur danach über das Interface eines bestehenden Lastfalls. Um das Interface eines Lastfalls zu erhalten, müssen zunächst die Interfaces 'IModel' und 'ILoads' geholt werden:
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 SubÜber 'ILoads.GetLoadcase' kann das Interface zu einem bestimmten Lastfall geholt werden. Dieses Interface stellt die Funktionen 'GetAnalysisParameters' und 'SetAnalysisparameters' zur Verfügung, mit denen dann die Parameter ausgelesen und geschrieben werden können.
Die Vorgehensweise ist auch analog für Lastkombinationen verwendbar.
.png?mw=512&hash=5b2501fba22d5f99af87ea7d1a63dc6fb4158794)
.png?mw=350&hash=e3f5898d72f463e9b3e774659aabcb220466c522)
.jpg?mw=350&hash=196d91410dd36f58fcc8b0194f4577bb70cf53c3)
