In addition to our technical support (e.g. via chat), you’ll find resources on our website that may help you with your design using Dlubal Software.
Frequently Asked Questions (FAQ)
Search FAQ
Further Information
Customer Support 24/7
-
Answer
The following VBA macro shows the creation of two member eccentricities. The source code can be downloaded under Downloads.'------------------------------------------------- -------------------------------------------------Sub SetEccs ()'------------------------------------------------- -------------------------------------------------Dim model As RSTAB8.modelDim data As IModelDataDim ecc (1) As RSTAB8.MemberEccentricity'Get interface for modelSet model = GetObject (, "RSTAB8.Model")'Block COM license and program accessmodel.GetApplication.LockLicenseOn Error GoTo e'Get interface for model dataSet data = model.GetModelData'Define eccentricity 1ecc (0) .No = 1ecc (0) .ReferenceSystem = LocalSystemTypeecc (0) .Start.X = 0.01ecc (0) .Start.Y = 0.02ecc (0) .Start.Z = 0.03ecc (0) .End.X = -0.01ecc (0) .End.Y = -0.02ecc (0) .End.Z = -0.03ecc (0) .Comment = "eccentricity 1"'Define eccentricity 2ecc (1) .No = 2ecc (1) .ReferenceSystem = GlobalSystemTypeecc (1) .Start.X = -0.07ecc (1) .Start.Y = -0.08ecc (1) .Start.Z = -0.09ecc (1) .End.X = 0.07ecc (1) .End.Y = 0.08ecc (1) .End.Z = 0.09ecc (1) .Comment = "eccentricity 2"'Transfer member eccentricitiesdata.PrepareModificationdata.SetMemberEccentricities ecce: data.FinishModificationIf Err.Number <> 0 Then MsgBox Err.Description,, Err.Source'COM license is unlocked, program access possible againmodel.GetApplication.UnlockLicenseEnd Sub -
Answer
Yes, it is possible to exchange data between the LayPLAN software by Layher and RSTAB. The "LayPLAN TO RSTAB" tool allows you this.
You can easily transfer scaffolding structures to RSTAB. The "LayPLAN TO RSTAB" interface transfers geometry data as well as statically relevant information, such as cross-section and material data, member types, eccentricities, and nonlinear joint definitions according to the approval.
To operate this interface, an active license of RS‑COM to RSTAB is required.
A perpetual license or a rental license is available for RS‑COM. -
Answer
You can use the COM interface to define nonlinear support conditions. The attached video and code shows an example of the support failure. -
Answer
By initializing a variable of the Application (interface) type with "new", RFEM/RSTAB is started in the background. With this variable, you can also create a new model using the "CreateModel" method, or close the program using the "Close" command.
The following example shows how to start RSTAB, create a model with a node in the program, and close the program:
Sub RSTAB_open_close()Dim filename As Stringfilename = Application.ActiveSheet.Cells(7, 3)' start rfemDim iApp As RSTAB8.ApplicationSet iApp = New RSTAB8.ApplicationiApp.LockLicenseiApp.ShowOn Error GoTo E' create modelDim iMod As RSTAB8.IModel2Set iMod = iApp.CreateModel(filename)' add data to modelDim nd As RSTAB8.Nodend.no = 10nd.X = 1nd.Y = 2nd.Z = 3Dim iModdata As RSTAB8.iModelDataSet iModdata = iMod.GetModelDataiModdata.PrepareModificationiModdata.SetNode ndiModdata.FinishModificationiMod.Save filenameE: If Err.Number <> 0 Then MsgBox Err.description, , Err.SourceSet iModdata = NothingSet iMod = NothingiApp.UnlockLicenseiApp.CloseSet iApp = NothingEnd SubThe "iApp.Show" command is optional. This allows for displaying the program normally, not in the background.
Under Downloads, you can find an Excel macro with the subroutines for RFEM and RSTAB.
Please note that the folder, where the file is created, must exist.
-
Answer
The *.dll and *.tlb files were probably not updated correctly on your computer. Please proceed as follows:
1. Rename the following folders in Dlubal.bak:
C:\Program Files (x86)\Common Files\Dlubal
C:\Program Files\Common Files\Dlubal
2. Reinstall RFEM or RSTAB.
3. Move the files from the newly created Dlubal folders to the respective Dlubal.bak folders (overwrite all).
4. Rename the Dlubal.bak folder to Dlubal.
-
Answer
In order to only calculate specific load cases, load combinations, or result combinations in the same way as the "To Calculate..." command (see Figure 01), you can use the CalculateBatch method of the ICalculation interface. For the transfer, the method expects a field with the load type of Loading. This Loading includes the number of the load, and the type (for example, a load combination):
Sub batch_test()' get interface from the opened model and lock the licence/programDim iModel As RFEM5.IModel3Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicenseOn Error GoTo e' get interface for calculationDim iCalc As ICalculation2Set iCalc = iModel.GetCalculation' create array with loading typesDim loadings(3) As Loadingloadings(0).no = 1loadings(0).Type = LoadCaseTypeloadings(1).no = 4loadings(1).Type = LoadCaseTypeloadings(2).no = 4loadings(2).Type = LoadCombinationType' calculate all loadings from the array at onceiCalc.CalculateBatch loadingse: If Err.Number <> 0 Then MsgBox Err.description, , Err.SourceSet iModelData = NothingiModel.GetApplication.UnlockLicenseSet iModel = NothingEnd Sub -
Answer
An imperfection is considered as a load and is transferred via the interface of the load case. Provided that the interface to the model has already been imported, the interface to the loads (ILoads) followed by the interface to Load Case 1 (ILoadCase) will subsequently be imported, if it has already been created before:
' set loadcasesDim iLoads As iLoadsSet iLoads = model.GetLoads' get load caseDim iLc1 As ILoadCaseSet iLc1 = iLoads.GetLoadCase(1, AtNo)' define imperfectionDim imperf As Imperfectionimperf.Comment = "test"imperf.Direction = LocalZTypeimperf.Inclination = 200imperf.no = 1imperf.ObjectList = 1imperf.Precamber = 300imperf.PrecamberActivity = ActivityAccording_EN_1993_1_1' set imperfectioniLc1.PrepareModificationiLc1.SetImperfection imperfiLc1.FinishModificationThe data of the imperfection is then filled out first, here for Member 1, and then transferred within the Prepare-/FinishModification block of the Interfaces load case.
-
Answer
To modify an existing element, you have to get the interface to the corresponding element, in this case on an example of a member:
Dim iModel As RSTAB8.modelSet iModel = GetObject(, "RSTAB8.Model")iModel.GetApplication.LockLicenseDim iModData As IModelDataSet iModData = iModel.GetModelDataDim iMem As RSTAB8.IMemberSet iMem = iModData.GetMember(1, AtNo)Use this code to get the interface to Member 1, which should already be created. Then, you can use the .GetData () method of the interface to get the member data.
If you want to modify the data (such as the member rotation here), you can subsequently transfer it to the program within the Prepare-/FinishModification block with the method .SetData ().
Dim mem As RSTAB8.Membermem = iMem.GetDatamem.Rotation.Angle = 0.5mem.Rotation.Type = RSTAB8.AngleiModData.PrepareModificationiMem.SetData memiModData.FinishModification -
Answer
The following code shows how to get different calculation parameters via the COM interface. It also shows how to specify the setting for deactivating shear stiffness:' get model interfaceSet iApp = iModel.GetApplication()iApp.LockLicense' get calculation interfaceDim iCalc As RFEM5.ICalculation2Set iCalc = iModel.GetCalculation' get surface bending theoryDim calc_bend As RFEM5.BendingTheoryTypecalc_bend = iCalc.GetBendingTheory' get settings for nonlinearitiesDim calc_nl As RFEM5.CalculationNonlinearitiescalc_nl = iCalc.GetNonlinearities' get precision and tolerance settingsDim calc_prec As RFEM5.PrecisionAndTolerancecalc_prec = iCalc.GetPrecisionAndTolerance' get calculation settingsDim calc_sets As RFEM5.CalculationSettingscalc_sets = iCalc.GetSettings'get calculate optionsDim calc_opts As RFEM5.CalculationOptionscalc_opts = iCalc.GetOptions' set ShearStiffness to falsecalc_opts.ShearStiffness = FalseiCalc.SetOptions calc_optsUnder Downloads, you can find the EXCEL macro. -
Answer
Friction is a nonlinearity and can therefore only be modified via the interface to the member hinge.
For this, it is first necessary to create the member hinge, if not already available. Then, the IMemberHinge interface is brought to the member hinge and then to the nonlinearity (here IFriction). Then, you can use the methods GetData and SetData to modify the data (here Friction):
Sub SetMemberHingeFriction ()Dim model As RFEM5.modelSet model = GetObject(, "RFEM5.Model")model.GetApplication.LockLicenseOn Error GoTo eDim data As IModelDataSet data = model.GetModelDataDim hinge(0 To 0) As RFEM5.MemberHingehinge(0).No = 1hinge(0).RotationalConstantX = 1hinge(0).RotationalConstantY = 2hinge(0).RotationalConstantZ = 3hinge(0).TranslationalConstantX = 4hinge(0).TranslationalConstantY = 5hinge(0).TranslationalConstantZ = 6hinge(0).Comment = "Member Hinge 1"hinge(0).TranslationalNonlinearityX = FrictionATypedata.PrepareModificationdata.SetMemberHinges hingedata.FinishModification' get interface for member hingeDim imemhing As IMemberHingeSet imemhing = data.GetMemberHinge(1, AtNo)' get interface for nonlinearity 'friction'Dim iFric As IFrictionSet iFric = imemhing.GetNonlinearity(AlongAxisX)' get friction dataDim fric As Frictionfric = iFric.GetDatafric.Coefficient1 = 0.3' set friction datadata.PrepareModificationiFric.SetData fricdata.FinishModificatione: If Err.Number <> 0 Then MsgBox Err.Description, , Err.SourceSet data = Nothingmodel.GetApplication.UnlockLicenseSet model = NothingEnd SubIn the case of the friction Vy + Vz, the Coefficient2 is used to set the second coefficient. The spring constant in the Friction dialog box is controlled by the translational spring of the member hinge. In this particular case, this is TranslationalConstantX for the X‑direction (see Figure 01).
Contact us
Did you find your question?
If not, contact us via our free e-mail, chat, or forum support, or send us your question via the online form.
First Steps
We provide hints and tips to help you get started with the main programs RFEM and RSTAB.
Wind Simulation & Wind Load Generation
With the stand-alone program RWIND Simulation, wind flows around simple or complex structures can be simulated by means of a digital wind tunnel.
The generated wind loads acting on these objects can be imported to RFEM or RSTAB.
★
★
★
★
★
Your support is by far the best
“Thank you for the valuable information.
I would like to pay a compliment to your support team. I am always impressed how quickly and professionally the questions are answered. I have used a lot of software with a support contract in the field of structural analysis, but your support is by far the best. ”
Dipl. Bauingenieur FH/SIA Markus Lauber
27 November 2016
