Odpowiedź:
Parametry obliczeniowe przypadku obciążenia nie mogą być początkowo ustawione podczas jego tworzenia, ale dopiero później, za pomocą interfejsu istniejącego przypadku obciążenia. Aby uzyskać interfejs przypadku obciążenia, należy najpierw pobrać interfejsy 'IModel' i 'ILoads':
Sub test_analysis_parameters ()
Dim iApp As RFEM5.ApplicationUstaw iApp = GetObject (, "RFEM5.Application")
iApp.LockLicense
Dim iMod As RFEM5.IModel3Set iMod = iApp.GetActiveModel
On Error GoTo e
'pobierz interfejs obciążeńDim iLds As RFEM5.iLoadsUstaw iLds = iMod.GetLoads
'pobierz interfejs przypadku obciążeniaDim iLc Jak w RFEM5.ILoadCaseUstaw iLc = iLds.GetLoadCase (1, AtNo)
'uzyskać parametry analizyDim param_analy As RFEM5.AnalysisParametersparam_analy = iLc.GetAnalysisParameters
'zmienić parametry analizyparam_analy.Method = Postkrytycznyparam_analy.ModifyLoadingByFactor = Trueparam_analy.LoadingFactor = 1.5'...
'ustawić nowe parametry analizyiLd.PrepareModyfikacjaiLc.SetAnalysisParameters param_analyiLds.FinishModification
e:
Jeżeli Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicenseUstaw iMod = Nic
Koniec podrzędnyUżyj 'ILoads.GetLoadcase', aby uzyskać interfejs dla określonego przypadku obciążenia. Interfejs ten zawiera funkcje „GetAnalysisParameters” i „SetAnalysisparameters”, których można użyć do odczytywania i zapisywania parametrów.
Ta sama procedura dotyczy również kombinacji obciążeń.
.png?mw=350&hash=1c031608c18b5a867799b52552d26586745de8ac)
