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 <i>Geo-Zone</i> 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 rotación de un apoyo en nudo se define por medio de un sistema de coordenadas definido por el usuario. En el siguiente ejemplo, un apoyo en nudo se gira 45 ° sobre el eje z. No es necesario definir un nuevo sistema de coordenadas a través de nudos. En este caso, es suficiente usar la opción RotatedSystemType, que permite una rotación espacial del apoyo a través de tres giros sobre los ejes x, y, z. La rotación se introduce en radianes:
Sub test_nodal_support ()Dim iApp As RFEM5.ApplicationEstablecer iApp = GetObject (, "RFEM5.Application")iApp.LockLicenseDim iMod como RFEM5.IModel3Set iMod = iApp.GetActiveModelOn Error GoTo e' obtener la interfaz de datos del modeloDim iModData As RFEM5.IModelData2Set iModData = iMod.GetModelData' obtener interfaz de soporte en nudoDim iNs como RFEM5.INodalSupportEstablecer iNs = iModData.GetNodalSupport (1, AtNo)' obtener datos del apoyo en nudoDim ns como RFEM5.NodalSupportns = iNs.GetData' modificar datosns.ReferenceSystem = UserDefinedSystemTypens.UserDefinedReferenceSystem.Axis1 = AxisXns.UserDefinedReferenceSystem.Axis2 = AxisYns.UserDefinedReferenceSystem.Type = RotatedSystemTypens.UserDefinedReferenceSystem.RotationAngles.X = 0ns.UserDefinedReferenceSystem.RotationAngles.Y = 0ns.UserDefinedReferenceSystem.RotationAngles.Z = 45 * 3.14159265359/180' establecer datos del apoyo en nudoiModData.PrepareModificationiNs.SetData nsiModData.FinishModificatione:Si Err.Number <> 0, entonces MsgBox Err.description, vbCritical, Err.SourceiMod.GetApplication.UnlockLicenseEstablecer iMod = NadaEnd Sub
El programa toma el apoyo en nudo existente del modelo abierto actualmente y lo modifica. Dado que el sistema de coordenadas definido por el usuario no es una parte directa de la interfaz INodalSupport del apoyo en nudo, la rotación también se puede transferir al crear un apoyo en nudo, por supuesto.
Sí, es posible crear las liberaciones en nudo a través de la interfaz COM. Aquí hay un ejemplo:
Subnodal_release ()Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.model On Error GoTo e Establecer iApp = GetObject (, "RFEM5.Application")iApp.LockLicense test = iApp.GetModelCountEstablecer iModel = iApp.GetModel (0) Dim iModeldata As RFEM5.iModeldata Set iModeldata = iModel.GetModelData ' for setting a nodal release a member hinge is needed ' the object for the axis system could not be the same with the released one Dim nodRel As NodalRelease nodRel.Location = OriginalLocationType nodRel.AxisSystem = LocalFromLine nodRel.AxisSystemFromObjectNo = 2nodRel.Comment = "prueba de liberación del nudo" nodRel.MemberHingeNo = 1 nodRel.NodeNo = 1 nodRel.ReleasedMembers = 1 iModeldata.PrepareModification iModeldata.SetNodalRelease nodRel iModeldata.FinishModification e: If Err.Number <> 0 Then MsgBox Err.description`` Err.Source iApp.UnlockLicense
End Sub
Hay que tener en cuenta que el sistema de ejes local puede que no se refiera al mismo elemento que aquellos que se han liberado.