Odpověď:
Nejdříve vytvoříme výsledkový prut přesně jako normální prut:
Dim model As RFEM5.model Set model = GetObject(, "RFEM5.Model") model.GetApplication.LockLicense
On Error GoTo e
Dim data As IModelData Set data = model.GetModelData
Dim members(0) As RFEM5.Member members(0).No = 3 members(0).LineNo = 12 members(0).Type = ResultBeamType members(0).StartCrossSectionNo = 1 members(0).EndCrossSectionNo = 1 members(0).Comment = "result beam 1"
data.PrepareModification data.SetMembers members data.FinishModificationPoté musí být rozhraní IMember načteno od příslušného prutu a pomocí metody GetExtraData se dostane rozhraní k IResultMember. Pomocí tohoto rozhraní lze nyní přečíst nebo zapsat údaje pro ResultMember. Je nutné mít na zřeteli, že pro psaní je vyžadován blok Prepare-/Finishmodification:
Dim iMem As IMember Set iMem = data.GetMember(3, AtNo) Dim iRMem As IResultBeam Set iRMem = iMem.GetExtraData Dim RMem As ResultBeam RMem = iRMem.GetData RMem.IncludeSurfaces = "1" RMem.IncludeSolids = "all" RMem.Integrate = WithinCuboidGeneral Dim params(0 To 3) As Double RMem.Parameters = params RMem.Parameters(0) = 0.5 RMem.Parameters(1) = 0.5 RMem.Parameters(2) = 0.1 RMem.Parameters(3) = 0.1 data.PrepareModification iRMem.SetData RMem data.FinishModificationV příloze najdete hotové makro v Excelu a příslušný zkušební soubor.
Dlubal_KohlA.png?mw=350&hash=6f6b192b31c8bbcb1c62aa6cf9fbfb1d9f859880)
