Odpowiedź:
Najpierw tworzona jest belka wynikowa podobnie jak w przypadku zwykłego pręta:
Model przyciemnienia Jak w RFEM5.modelUstaw model = GetObject(, "RFEM5.Model")model.GetApplication.LockLicense
On Error GoTo e
Dane Dim As IModelDataUstaw dane = model.GetModelData
Pręty Dim (0) As RFEM5.Member pręty (0) .Nr = 3pręty (0) .Linia nr = 12Members (0) .Type = ResultBeamType Members (0) .StartCrossSectionNo = 1pręty (0) .EndCrossSectionNo = 1 Members (0) .Comment = "belka wynikowa 1"
data.PrepareModificationdata.SetMembers Membersdata.FinishModification
Następnie należy pobrać interfejs IMember z odpowiedniego pręta i użyć metody GetExtraData, aby pobrać interfejs do IResultMember. Teraz za pomocą tego interfejsu można odczytywać lub zapisywać dane pręta wynikowego. Należy pamiętać, że blok Prepare-/Finishmodification jest wymagany podczas zapisywania:
Dim iMem As IMemberUstaw iMem = data.GetMember (3, AtNo) Dim iRMem As IResultBeamUstaw iRMem = iMem.GetExtraData Dim RMem jako belka wynikowaRMem = iRMem.GetData RMem.IncludeSurfaces = "1"RMem.IncludeSolids = "wszystkie" RMem.Integrate = InternalCuboidGeneral Dim params (0 do 3) As Double RMem.Parametry = parametryRMem.Parametry (0) = 0.5RMem.Parametry (1) = 0.5RMem.Parametry (2) = 0,1RMem.Parametry(3) = 0,1 data.PrepareModificationiRMem.SetData RMemdata.FinishModification
W załączniku znajduje się wypełnione makro EXCEL i odpowiedni plik testowy.