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.
Sub test_comment()' get interface from the opened model and lock the licence/program Dim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicenseOn Error GoTo e Dim iModelData As RFEM5.IModelData2 Set iModelData = iModel.GetModelData Dim iGuiObj As RFEM5.IGuideObjects Set iGuiObj = iModel.GetGuideObjects Dim comm As RFEM5.Comment ' set frame type comm.Frame = CircularFrameType ' set reference object type comm.ObjectType = GeneralObjectType comm.ObjectNo = 1 ' set point if GeneralObjectType is choosen comm.Point.X = 2 comm.Point.Y = 4 comm.Point.Z = 6 ' set offset from reference object comm.Offset.X = 0.5 comm.Offset.Y = 1 comm.Offset.Z = 1.5 comm.Rotation = 1 ' set text of comment comm.Text = "testcomment" ' transfer object to program iGuiObj.PrepareModification iGuiObj.SetComment comm iGuiObj.FinishModification e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense Set iModel = NothingEnd Sub