Die Statiksoftware RFEM 6 ist die Basis einer modular aufgebauten Programmfamilie. Das Hauptprogramm RFEM 6 dient zur Definition der Struktur, Materialien und Einwirkungen ebener und räumlicher Platten-, Scheiben-, Schalen- und Stabtragwerke. Mischsysteme sind ebenso möglich wie die Behandlung von Volumen- und Kontaktelementen.
Mit RSTAB 9 steht dem anspruchsvollen Tragwerksplaner eine 3D-Stabwerkssoftware zur Verfügung, die den Anforderungen im modernen Ingenieurbau gerecht wird und die den aktuellen Stand der Technik widerspiegelt.
Sind Sie oft zu lange mit der Querschnittsberechnung beschäftigt? Dlubal-Software und das eigenständige RSECTION-Programm erleichtern Ihnen die Arbeit, indem sie Profilkennwerte für verschiedenste Querschnitte ermitteln und eine anschließende Spannungsanalyse durchführen.
Wissen Sie immer, woher der Wind weht? Aus Richtung Innovation natürlich! Mit RWIND 2 haben Sie ein Programm an Ihrer Seite, das einen digitalen Windkanal zur numerischen Simulation von Windströmungen nutzt. Diese Strömungen schickt das Programm um beliebige Gebäudegeometrien und ermittelt die Windlasten auf den Oberflächen.
Sie suchen nach einer Übersicht zu Schneelastzonen, Windzonen und Erdbebenzonen? Dann sind Sie hier richtig. Die Lastzonenkarten eignen sich zur schnellen und einfachen Ermittlung von Schneelastzonen, Windzonen und Erdbebenzonen nach Eurocode und weiteren internationalen Normen.
Möchtest du die Leistungsfähigkeit der Dlubal Software Programme ausprobieren? Du hast die Möglichkeit! Mit der kostenlosen 90-Tage-Vollversion kannst du alle unsere Programme vollständig testen.
Die Spannungen einer Fläche können über die COM-Schnittstelle ausgelesen werden. Zuerst braucht man das Interface zum Modell (IModel) und danach das Interface zur Berechnung (ICalculation2). Über dieses Interface kann dann das Interface für die Ergebnisse (IResults2) geholt werden:
Sub stresses_surfaces_example()Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.modelSet iModel = GetObject(, "RFEM5.Model")On Error GoTo EIf Not iModel Is Nothing Then ' get interface from model Set iApp = iModel.GetApplication iApp.LockLicense ' get interface from calculation Dim iCalc As RFEM5.ICalculation2 Set iCalc = iModel.GetCalculation ' get interface from results from loadcase 1 Dim iRes As RFEM5.IResults2 Set iRes = iCalc.GetResultsInFeNodes(LoadCaseType, 1) ' get equivalent stresses Dim str_equ() As RFEM5.SurfaceEquivalentStresses str_equ = iRes.GetSurfaceEquivalentStresses(1, AtNo, VonMisesHypothesis) End IfE:If Err.Number <> 0 Then MsgBox Err.Number & " " & Err.descriptionEnd IfIf Not iApp Is Nothing Then iApp.UnlockLicenseEnd If
Die Funktion GetSurfaceEquivalentStresses verlangt die Angabe der Berechnungshypothese. Im obigen Fall werden die Ergebnisse der von-Mises-Spannung ausgelesen. Zu beachten ist, dass die COM-Schnittstelle hier SI-Einheiten verwendet, sodass die Spannung in N/m² übergeben wird.
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.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.FinishModification
Für die Übergabe von mehreren Elementen müssen Sie in VBA zunächst ein Feld (array) anlegen:
Dim nodes(0 to 2) as RFEM5.Node
Danach können Sie das Feld (hier drei Elemente 0,1,2) mit der Methode IModelData.SetNodes() alle Knoten auf einmal übergeben.
Diese Methoden gibt es beispielsweise auch für folgende Strukturelemente:
IModelData.SetLines()
IModelData.SetMembers()
IModelData.SetSurfaces()