Interfaz COM en VBA | 4.2 Optimización de estructuras

Proceso de optimización

El objetivo es transferir sólo las barras de una determinada sección al cálculo de RF-/STEEL EC3. En el siguiente ejemplo, se deberían optimizar todas las barras con la sección "IPE 300". Se supone que se conocen los números de miembros.

• Visor 3D | Google
• Visor 3D | Babylon
• Realidad virtual

Sistema

La optimización en RF-STEEL EC3 se realiza sobre la base de las fuerzas internas calculadas previamente en RFEM. Esto significa que no se tienen en cuenta las rigideces modificadas debido a los cambios de sección en el módulo. Esto tiene la ventaja de que la optimización se realiza sin volver a calcular la estructura; por lo tanto, se puede hacer muy rápidamente. La desventaja es que debido a la rigidez modificada, puede ocurrir una redistribución, lo que también puede conducir a esfuerzos internos significativamente modificados. Por lo tanto, la sección optimizada se puede sobrecargar.

Para una optimización eficiente, siempre es útil optimizar sólo algunas secciones en el módulo y luego transferir las nuevas secciones a RFEM y comprobar el resultado de nuevo en el módulo.

Activación de la optimización en RF-STEEL EC3

Para optimizar una sección en el módulo, es necesario activar esta opción para la sección individual. A diferencia de la operación manual del programa, es imposible seleccionar cómo realizar la optimización; sólo es posible seleccionar si se va a realizar la optimización. Para activar esta opción, se deben buscar las secciones según la descripción. Como alternativa, también puede buscar el número de la sección. Si se encuentra una coincidencia, la sección correspondiente se modifica y se transfiere al módulo. Luego, se interrumpe el bucle, ya que en este caso sólo se examina una sección.

'Establezca la optimización para la sección deseada

Dim iStec3_cs Is STEEL_EC3.CROSS_SECTION
cuenta = iStec3Case.moGetCrossSectionsCount
Dim crsc_ec3_idx Tan largo
crsc_ec3_idx = -1

Para i = 0To cuenta - 1
iStec3_cs = iStec3Case.moGetCrossSection (i, AT_INDEX)
If InStr (LCase (iStec3_cs.Description), LCase (crsc_desc))> 0 Then
iStec3_cs.Optimization = Verdadero
iStec3Case.moSetCrossSection i, AT_INDEX, iStec3_cs
crsc_ec3_idx = i
Salir por
End If
Siguiente i

'Establezca la optimización para la sección deseada
iStec3Case.moCalculate

Después de activar la optimización, comienza el cálculo de la caja del módulo.

Transferencia de secciones a RFEM

La sección se transfiere utilizando el número de la sección. Para esto, debe obtener la interfaz de la sección de RFEM y luego introducir un nuevo TextID o un nuevo identificador de sección. RFEM reconoce el identificador y obtiene la sección correspondiente de la biblioteca después de la transferencia.

'Transfiera la sección a RFEM
'Obtenga una nueva descripción de la sección de RF-STEEL EC3
iStec3_cs = iStec3Case.moGetCrossSection (crsc_ec3_idx, AT_INDEX)

'Obtenga la interfaz de sección y las propiedades de RFEM
Dim iCrsc Is RFEM5.ICrossSection
Conjunto iCrsc = iModelData.GetCrossSection (crsc_no, AtNo)
Dim crsc Is RFEM5.CrossSection
crsc = iCrsc.GetData

'Modificación de la sección a una nueva sección de RF-STEEL EC3
crsc.Description = ""
crsc.TextID = iStec3_cs.Description

'Transferir propiedades de la sección
iModelData.PrepareModification
iCrsc.SetData crsc
iModelData.FinishModification

Resumen

En el caso de estructuras recurrentes en particular, la opción de optimización en RF-/STEEL EC3 proporciona una excelente facilitación del trabajo. Es importante verificar la estructura con las secciones optimizadas volviendo a calcularla en RFEM. Un proceso iterativo sería factible fácilmente utilizando la interfaz COM. De esta manera, la optimización automatizada puede facilitar y acelerar significativamente el flujo de trabajo.