RFEM 6 jest programem głównym pakietu oprogramowania, który służy do analizy konstrukcji przy użyciu MES. Dalsze analizy oraz wymiarowanie przeprowadzane jest w odpowiednich rozszerzeniach. Program główny RFEM 6 służy do definiowania konstrukcji, materiałów i obciążeń płaskich i przestrzennych układów konstrukcyjnych składających się z płyt, ścian, powłok i prętów. Program umożliwia również tworzenie konstrukcji mieszanych oraz modelowanie elementów bryłowych i kontaktowych.
RSTAB 9 to wydajne oprogramowanie do obliczeń konstrukcji szkieletowych 3D, odzwierciedlające aktualny stan wiedzy i pomagające inżynierom sprostać wymaganiom współczesnej inżynierii lądowej.
Często zbyt długo zajmujesz się obliczaniem przekrojów? Oprogramowanie firmy Dlubal i program samodzielny RSECTION ułatwiają pracę, określając i przeprowadzając analizę naprężeń dla różnych przekrojów.
Czy zawsze wiesz, skąd wieje wiatr? Oczywiście od strony innowacji! RWIND 2 to program, który wykorzystuje cyfrowy tunel aerodynamiczny do numerycznej symulacji przepływu wiatru. Program symuluje przepływ wokół dowolnej geometrii budynku i określa obciążenia wiatrem na powierzchnie.
Szukasz narzędzia do przeglądu stref obciążenia śniegiem, wiatrem i trzęsieniem ziemi? Dobrze trafiłeś! Skorzystaj z narzędzia do geolokalizacji do szybkiego i skutecznego definiowania obciążenia śniegiem, prędkości wiatru, obciążenia trzęsieniem ziemi, zgodnie z Eurokodem i innymi międzynarodowymi normami.
Chcesz wypróbować możliwości programów Dlubal Software? To Twoja szansa! Dzięki 90-dniowej pełnej wersji, możesz w pełni przetestować wszystkie nasze programy.
Sub test_section ()' pobierz interfejs z otwartego modelu i zablokuj licencję/programDim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense W przypadku błędu Idź do E Dim iSecs As RFEM5.ISectionsUstaw iSec = iModel.GetSections ()
' najpierw usuń wszystkie sekcjeiSecs.PrepareModification iSecs.DeleteObjects („Wszystkie”)iSecs.FinishModification ' ustawić przekrój na bryleDim s Jak w RFEM5.Sectionsek.EdgePointA.X = 2sek.EdgePointA.Y = 5sek.Punkt krawędzi A.Z = 0sek.EdgePointB.X = 2sek.EdgePoint BY = 8sek.Punkt krawędzi B.Z = 0 sek.no = 1sec.Name = "przekrój bryły"sec.Plane = GlobalPlaneInPositiveXsec.ShowValuesInIsolines = Falsesec.Type = SectionOnSolidSectionLinesek.ObjectList = "1" iSecs.PrepareModificationiSecs.SetSection sekiSecs.FinishModification
' ustawić przekrój na powierzchnisek.EdgePointA.X = 2sek.EdgePointA.Y = 0sek.Punkt krawędzi A.Z = 0sek.EdgePointB.X = 2sek.EdgePoint BY = 3sek.Punkt krawędzi B.Z = 0 sek.no = 2sec.Name = "przekrój powierzchni"sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = Truesek.Typ = przekrój przez płaszczyznę powierzchniowąsek.ObjectList = "1" Wektor.s.X = 0sek.Wektor.Y = 0sek.Wektor.Z = 1 iSecs.PrepareModificationiSecs.SetSection sekiSecs.FinishModification
' uzyskaj wyniki Dim iCalc As ICalculation2 Set iCalc = iModel.GetCalculation Dim iRes As IResults2Ustaw iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1) Dim secRes () As RFEM5.SectionResultsecRes = iRes.GetResultsInSection (2, AtNo,Siła ścinania, Ciągły rozkład wewnątrz obiektów, Fałsz)
' pobierz interfejs modeluUstaw iApp = iModel.GetApplication ()iApp.LockLicense ' pobierz interfejs obliczeniowyDim iCalc As RFEM5.ICalculation2 Set iCalc = iModel.GetCalculation ' - zdobądź teorię zginania powierzchniowegoDim calc_bend As RFEM5.BendingTheoryTypecalc_bend = iCalc.GetBending Theory ' pobierz ustawienia dla nieliniowościDim calc_nl As RFEM5.Nieliniowości obliczeńcalc_nl = iCalc.GetNonlinearities ' uzyskać ustawienia dokładności i tolerancjiDim calc_prec As RFEM5.PrecisionAndTolerancecalc_prec = iCalc.GetPrecisionAndTolerance ' pobierz ustawienia obliczeńDim calc_sets As RFEM5.CalculationSettingscalc_sets = iCalc.GetSettings ' uzyskaj opcje obliczeńDim calc_opts As RFEM5.CalculationOptionscalc_opts = iCalc.GetOptions ' ustawiono Sztywność na ścinanie na fałszcalc_opts.ShearStiffness = FalseiCalc.SetOptions calc_opts