El software de análisis de estructuras RFEM 6 es la base de un sistema de software modular. El programa principal RFEM 6 se usa para definir estructuras, materiales y cargas de sistemas estructurales planos y espaciales compuestos por placas, muros, láminas y barras. El programa también le permite crear estructuras mixtas, así como modelar elementos sólidos y de contacto.
RSTAB 9 es un software potente de análisis y dimensionamiento en 3D de estructuras de vigas, pórticos o cerchas, que refleja el estado de la técnica actual y ayuda a los ingenieros y consultores de estructuras a cumplir con los requisitos de la ingeniería de estructuras moderna.
¿Está a menudo ocupado con el cálculo de secciones durante demasiado tiempo? Dlubal Software y el programa independiente RSECTION facilitan su trabajo al determinar y realizar un análisis de tensiones para varias secciones.
¿Siempre sabe de dónde viene el viento? ¡Desde la dirección de la innovación, por supuesto! Con RWIND 2 a su lado tiene un programa que utiliza un túnel de viento digital para la simulación numérica de los flujos de viento. El programa simula estos flujos alrededor de cualquier geometría de construcción y determina las cargas de viento en las superficies.
¿Está buscando una vista general de las zonas de carga de nieve, zonas de viento y zonas de sísmicas? Entonces está en el lugar correcto. Utilice la herramienta Geo-Zone para la determinación rápida de las cargas de nieve, velocidades de viento y zonas sísmicas según el Eurocódigo, CTE, ASCE 7-16 y otras normas internacionales.
¿Le gustaría probar la potencia de los programas de Dlubal Software? ¡Es su oportunidad! Con la versión completa gratuita de 90 días, puede probar todos nuestros programas por completo.
La opción "Conectar líneas/barras" se puede implementar con las funciones "ConnectLines ()" y "ConnectMembers ()". Ambas funciones esperan una cadena con los números de las líneas o barras:
Sub test_connect ()Dim iMod como modelo RFEM5Establecer iMod = GetObject (, "RFEM5.Model")iMod.GetApplication.LockLicenseOn Error GoTo eDim iModData As RFEM5.IModelData2Establecer 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.UnlockLicenseEstablecer iMod = NadaEnd Sub
En este ejemplo, la línea 1 y la línea 2 están conectadas y se crea un nudo en el punto de intersección. Lo mismo se aplica a la barra 1 y a la barra 2, donde también se crea un nuevo nudo en el punto de intersección.
En este caso, hay un error en EXCEL VBA que no se puede solucionar por nuestra parte. Por esta razón, se ha creado un nuevo objeto RFEM.RfLine (en lugar de RFEM.Line) que puede usar para continuar su trabajo. Aquí hay un ejemplo corto:
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 Atenuar líneas () Como RFEM5.RfLinelíneas = iModelData.GetLines e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense iModel.GetApplication.UnlockLicense End Sub
Subprueba_sección ()' get interface from the opened model and lock the licence/program Dim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense En caso de error, vaya a E Dim iSecs como RFEM5.ISectionsEstablecer iSecs = iModel.GetSections ()
' primero elimina todas las seccionesiSecs.PrepareModification iSecs.DeleteObjects ("Todos")iSecs.FinishModification ' establecer sección en sólidoDim sec As RFEM5.Sectionsec.EdgePointA.X = 2sec.EdgePointA.Y = 5sec.EdgePointA.Z = 0sec.EdgePointB.X = 2sec.EdgePointB.Y = 8sec.EdgePointB.Z = 0 seg. = 1sec.Name = "sección sólida"sec.Plane = GlobalPlaneInPositiveXsec.ShowValuesInIsolines = Falsesec.Type = SectionOnSolidSectionLinesec.ObjectList = "1" iSecs.PrepareModificationiSecs.SetSection seciSecs.FinishModification
' establecer sección en la superficiesec.EdgePointA.X = 2sec.EdgePointA.Y = 0sec.EdgePointA.Z = 0sec.EdgePointB.X = 2sec.EdgePointB.Y = 3sec.EdgePointB.Z = 0 seg. = 2sec.Name = "sección de superficie"sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = Truesec.Type = SectionViaSurfacePlanesec.ObjectList = "1" sec.Vector.X = 0sec.Vector.Y = 0sec.Vector.Z = 1 iSecs.PrepareModificationiSecs.SetSection seciSecs.FinishModification
' obtener resultados Dim iCalc As ICalculation2 Set iCalc = iModel.GetCalculation Dim iRes como IResults2Establecer iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1) Dim secRes () como RFEM5.SectionResultsecRes = iRes.GetResultsInSection (2, AtNo,ShearForceVy, ContinuousDistributionWithinObjects, False)
Para transferir varios elementos, primero debe crear un campo (matriz) en VBA:
Atenuar nudos (0 a 2) como RFEM5.Node
Luego, puede usar el método IModelData.SetNodes () para transferir todos los nodos al campo (aquí, tres elementos 0,1,2) a la vez.
Estos métodos también están disponibles para los siguientes elementos estructurales, por ejemplo:
IModelData.SetLines ()
IModelData.SetMembers ()
IModelData.SetSurfaces ()