Rotación del apoyo en nudo utilizando la interfaz COM

Preguntas y respuestas útiles

  • Preguntas más frecuentes (FAQ)

Este artículo fue traducido por el Traductor de Google

Ver texto original

¿Cómo puedo girar un apoyo en nudo usando la interfaz COM?

Respuesta

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.Application
Establecer iApp = GetObject (, "RFEM5.Application")

iApp.LockLicense

Dim iMod como RFEM5.IModel3
Set iMod = iApp.GetActiveModel

On Error GoTo e

' obtener la interfaz de datos del modelo
Dim iModData As RFEM5.IModelData2
Set iModData = iMod.GetModelData

' obtener interfaz de soporte en nudo
Dim iNs como RFEM5.INodalSupport
Establecer iNs = iModData.GetNodalSupport (1, AtNo)

' obtener datos del apoyo en nudo
Dim ns como RFEM5.NodalSupport
ns = iNs.GetData

' modificar datos
ns.ReferenceSystem = UserDefinedSystemType
ns.UserDefinedReferenceSystem.Axis1 = AxisX
ns.UserDefinedReferenceSystem.Axis2 = AxisY
ns.UserDefinedReferenceSystem.Type = RotatedSystemType
ns.UserDefinedReferenceSystem.RotationAngles.X = 0
ns.UserDefinedReferenceSystem.RotationAngles.Y = 0
ns.UserDefinedReferenceSystem.RotationAngles.Z = 45 * 3.14159265359/180

' establecer datos del apoyo en nudo
iModData.PrepareModification
iNs.SetData ns
iModData.FinishModification

e:

Si Err.Number <> 0, entonces MsgBox Err.description, vbCritical, Err.Source

iMod.GetApplication.UnlockLicense
Establecer iMod = Nada

End 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.

Palabras clave

Apoyos en nudos Definido por el usuario sistema de coordenadas Giro

Escribir un comentario...

Escribir un comentario...

  • Vistas 45x
  • Actualizado 17. septiembre 2021

Contacte con nosotros

Contacta con Dlubal

¿Ha encontrado su pregunta?
Si no es así, contacte con nosotros a través de nuestro servicio de asistencia gratuito por correo electrónico, chat o fórum, o envíenos su pregunta mediante el formulario en línea.

+34 911 438 160

info@dlubal.com

Curso de formación en línea | Español

Eurocódigo 5 | Estructuras de madera según EN 1995-1-1

Curso de formación en línea 28. octubre 2021 15:00 - 19:00 CEST

Invitación al evento

International Mass Timber Conference

Conferencia 12. abril 2022 - 14. abril 2022

Invitación al evento

Congreso de estructuras 2022

Conferencia 21. abril 2022 - 22. abril 2022

Diseño de vidrio con Dlubal Software

Diseño de vidrio con Dlubal Software

Webinar 8. junio 2021 14:00 - 14:45 CEST

Los errores más comunes del usuario con RFEM y RSTAB

Los errores más comunes del usuario con RFEM y RSTAB

Webinar 13. mayo 2021 16:00 - 17:00 CEST

Introducción al programa RFEM

Introducción al programa RFEM

Webinar 22. abril 2021 16:00 - 17:00 CEST

CSA S16: 19 Diseño de acero en RFEM

CSA S16: 19 Diseño de acero en RFEM

Webinar 10. marzo 2021 14:00 - 15:00 EDT

Los errores de usuario más comunes con RFEM y RSTAB

Los errores más comunes del usuario con RFEM y RSTAB

Webinar 4. febrero 2021 14:00 - 15:00 BST

Diseño de barras de aluminio según ADM 2020 en RFEM

Diseño de barras de aluminio según ADM 2020 en RFEM

Webinar 19. enero 2021 14:00 - 15:00 EDT

Cómo ser más productivos usando RFEM

Cómo ser más productivos usando RFEM

Webinar 10. diciembre 2020 16:00 - 17:00 BST