Program RFEM 6 pro statické výpočty tvoří základ modulárního softwarového systému. Hlavní program RFEM 6 slouží k zadávání konstrukcí, materiálů a zatížení u rovinných i prostorových konstrukčních systémů, které se skládají z desek, stěn, skořepin a prutů. Program umožňuje vytvářet smíšené konstrukce, stejně jako modelovat tělesa a kontaktní prvky.
RSTAB 9 je výkonný program pro analýzu 3D prutových konstrukcí, který statikům pomáhá vyhovět požadavkům moderního stavebního inženýrství a odráží nejnovější trendy v oboru.
Jste často příliš dlouho zaměstnáni výpočtem průřezů? Software Dlubal a samostatný program RSECTION vám usnadní práci stanovením a analýzou napětí pro různé průřezy.
Víte vždy, odkud vítr vane? Ve směru inovace, samozřejmě! S RWIND 2 máte k dispozici program, který využívá digitální větrný tunel pro numerickou simulaci proudění větru. Program toto proudění aplikuje na libovolné geometrie budov a stanoví zatížení větrem působící na jejich povrch.
Hledáte přehled oblastí zatížení sněhem, větrem a zemětřesením? Pak jste zde správně. Mapy oblastí zatížení umožňují rychle a snadno stanovit oblasti zatížení sněhem, větrem a zemětřesením podle Eurokódu a dalších mezinárodních norem.
Chcete si vyzkoušet sílu programů Dlubal? Je to vaše příležitost! S bezplatnou 90denní plnou verzí si můžete všechny naše programy plně otestovat.
V případě tohoto chybového hlášení se program RFEM/RSTAB nemůže připojit k serveru, který spravuje cloudové výpočty.
Požádejte prosím svého IT pracovníka o kontrolu komunikace s naším serverem. V pravidlech brány firewall i v síti je nutné povolit následující přístup:
Pokud připojení ani poté nefunguje, musí vaše IT oddělení zkontrolovat, zda dochází k výměně SSL certifikátu na základě vašich interních postupů (např. prostřednictvím proxy). To by mělo být možné zkontrolovat pomocí softwaru (např. OpenSSL) v příkazovém řádku:
Spoj s příložkami užívající čelních desek lze snadno vytvořit pomocí šablony „Plech na plech“ z databáze komponent (obrázek 1).
U spoje s příložkami bez čelních desek lze konfiguraci vytvořit ručně přidáním jednotlivých komponent (obrázek 2).
Konfigurace obsahuje následující komponenty. Každou komponentu lze jednoduše smazat nebo zkopírovat kliknutím pravým tlačítkem myši na komponentu.
Pomocí „Ořezu prutu“ a „Pomocné roviny“ je třeba vytvořit malou mezeru. Mezera se rozdělí mezi dva pruty (tj. mezera 1/16” se použije jako posun 1/32” na každý prut).
Případně si můžete stáhnout vzorový model „AISC Splice Connection“ a uložit ho jako uživatelskou šablonu (obrázek 3).
Pokud se zobrazí tato chybová zpráva, nemůžete se připojit k našemu licenčnímu serveru a ověřit svou licenci.
Možnost "Spojit linie/pruty" je možné realizovat pomocí funkcí "ConnectLines()" a "ConnectMembers()". Obě funkce očekávají string s čísly linií nebo prutů:
Sub test_connect()Dim iMod As RFEM5.modelSet iMod = GetObject(, "RFEM5.Model")iMod.GetApplication.LockLicenseOn Error GoTo eDim iModData As RFEM5.IModelData2Set iModData = iMod.GetModelData()iModData.PrepareModificationiModData.ConnectLines ("3,4")iModData.ConnectMembers ("1,2")iModData.FinishModificatione:If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.SourceiMod.GetApplication.UnlockLicenseSet iMod = NothingEnd Sub
V tomto příkladu se tak spojí linie 1 a 2 a v průsečíku se vytvoří uzel. Totéž platí pro pruty 1 a 2, u kterých se také vytvoří nový uzel v průsečíku.
Pro výběr objektů je k dispozici v rozhraní IModelData (resp. také v IModeldata2 apod.) funkce "SelectObjects". Funkce očekává typ objektu a čísla objektů jako řetězec. Zde je krátký příklad:
Sub select_objects()Dim model As RFEM5.modelSet model = GetObject(, "RFEM5.Model")model.GetApplication.LockLicenseOn Error GoTo e Dim iModdata As IModelData2 Set iModdata = model.GetModelData ' enable Selections iModdata.EnableSelections True ' select nodes 2-3 and lines 1 and 3 iModdata.SelectObjects ModelObjectType.NodeObject, "2-3" iModdata.SelectObjects ModelObjectType.LineObject, "1,3" ' deselect nodes and lines iModdata.SelectObjects ModelObjectType.NodeObject, "" iModdata.SelectObjects ModelObjectType.LineObject, "" e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Sourcemodel.GetApplication.UnlockLicenseSet iModdata = NothingSet model = NothingEnd Sub
V horní části se aktivují výběry a poté se vyberou uzly 2 až 3 a linie 1 a 3. Poté se linie a uzly odznačí pomocí prázdného řetězce.
Pokud chcete číst nebo upravovat vybrané objekty, potřebujete funkci "IModelData.EnableSelections" (nachází se také v kódu výše). Pokud je funkce označena jako "True", načtou se pouze vybrané uzly například pomocí funkce "IModelData.GetNodes()".
V EXCEL VBA je zde chyba, kterou z naší strany nemůžeme opravit. Z tohoto důvodu byl vytvořen nový objekt RFEM.RfLine (místo RFEM.Line), se kterým můžete pokračovat v práci. Zde je krátký příklad:
Sub test_RfLine() Dim iModel As RFEM5.IModel2 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense On Error GoTo e Dim iModelData As RFEM5.IModelData2 Set iModelData = iModel.GetModelData Dim lines() As RFEM5.RfLine lines = iModelData.GetLines e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense Set iModel = Nothing End Sub
Sub test_section()' get interface from the opened model and lock the licence/program Dim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense On Error GoTo E Dim iSecs As RFEM5.ISections Set iSecs = iModel.GetSections()
' first delete all sections iSecs.PrepareModification iSecs.DeleteObjects ("All") iSecs.FinishModification ' set section on solid Dim sec As RFEM5.Section sec.EdgePointA.X = 2 sec.EdgePointA.Y = 5 sec.EdgePointA.Z = 0 sec.EdgePointB.X = 2 sec.EdgePointB.Y = 8 sec.EdgePointB.Z = 0 sec.no = 1 sec.Name = "solid section" sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = False sec.Type = SectionOnSolidSectionLine sec.ObjectList = "1" iSecs.PrepareModification iSecs.SetSection sec iSecs.FinishModification
' set section on surface sec.EdgePointA.X = 2 sec.EdgePointA.Y = 0 sec.EdgePointA.Z = 0 sec.EdgePointB.X = 2 sec.EdgePointB.Y = 3 sec.EdgePointB.Z = 0 sec.no = 2 sec.Name = "surface section" sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = True sec.Type = SectionViaSurfacePlane sec.ObjectList = "1" sec.Vector.X = 0 sec.Vector.Y = 0 sec.Vector.Z = 1 iSecs.PrepareModification iSecs.SetSection sec iSecs.FinishModification
' get results Dim iCalc As ICalculation2 Set iCalc = iModel.GetCalculation Dim iRes As IResults2 Set iRes = iCalc.GetResultsInFeNodes(LoadCaseType, 1) Dim secRes() As RFEM5.SectionResult secRes = iRes.GetResultsInSection(2, AtNo, ShearForceVy,ContinuousDistributionWithinObjects, False)
Pro přenos několika prvků musíte ve VBA nejdříve vytvořit pole (array):
Dim nodes(0 to 2) as RFEM5.Node
Poté můžete pole (zde tři prvky 0, 1, 2) přenést pomocí metody IModelData.SetNodes () všechny uzly najednou.
Tyto metody jsou k dispozici také pro následující konstrukční prvky:
IModelData.SetLines()
IModelData.SetMembers()
IModelData.SetSurfaces()