Este artículo fue traducido por el Traductor de Google Ver texto original

Nuevo

FAQ 004133 ES

10. octubre 2019

Thomas Günthel Modelado | Estructura RFEM RSTAB RF-COM RS-COM

¿Cómo se establece la fricción en el extremo de una barra a través de la interfaz COM?

Respuesta

La fricción representa una no linealidad y, por lo tanto, sólo se puede modificar a través de la interfaz con la articulación de liberación de la barra.

Para este propósito, primero se debe crear la liberación del extremo de la barra, si aún no está disponible. Luego, la interfaz IMemberHinge se lleva a la liberación del extremo de la barra y luego a la no linealidad (aquí IFricción ). A continuación, puede utilizar los métodos GetDataSetData para modificar los datos (aquí fricción):

Sub SetMemberHingeFriction ()

    Dim model As RFEM5.model
    Set model = GetObject(, "RFEM5.Model")
    model.GetApplication.LockLicense

    On Error GoTo e

    Dim data As IModelData
    Set data = model.GetModelData

Bisagra oscura (0 a 0) como RFEM5.Manda

articulación (0) .No = 1
articulación (0) .RotationalConstantX = 1
articulación (0) .Constante rotativoY = 2
articulación (0) .Constant angular = 3
articulación (0) .TranslationalConstantX = 4
articulación (0) .ConstantTranslationalY = 5
articulación (0) .ContrasteTranslacionalZ = 6
articulación (0) .Comment = "Articulación de barra 1"
    
articulación (0) .TranslationalNonlinearityX = FrictionAType

    data.PrepareModification
Hing de datos
data.FinishModification
    
"Obtener interfaz para la barra"
Dim Imemhing As IMemberHinge
Establecer imemhing = data.GetMemberHinge (1, AtNo)
    
"Obtener interfaz para la no linealidad"
Dim iFric As IFriction
Establecer iFric = imemhing.GetNonlinearity (AlongAxisX)
    
"Obtener datos de fricción"
Dim fric Como fricción
fric = iFric.GetData
    
coeficiente fric.Cefficient1 = 0,3
    
'establecer los datos de fricción
    data.PrepareModification
iFric.SetData fric
data.FinishModification
    
    
e: si es Err.Number <> 0 entonces MsgBox Err.Description ,, Err.Source

    Set data = Nothing
    model.GetApplication.UnlockLicense
    Set model = Nothing

End Sub


Para Coeficiente Vy + Vz, Coefficio2 se usa para establecer el segundo coeficiente. El muelle traslacional en el cuadro de diálogo Fricción está controlado por el muelle traslacional de la articulación en el extremo de la barra. En el caso concreto, esto es TranslationalConstantX para la dirección x (ver figura 01).

Palabras clave

COM Fricción No linealidad GetData SetData

Descargas

Contacte con nosotros

Contacte con Dlubal Software

¿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

RFEM Programa principal
RFEM 5.xx

Programa principal

Software de ingeniería estructural de análisis por elementos finitos (AEF) para sistemas estructurales planos o espaciales compuestos de barras, placas, muros, láminas, sólidos y elementos de contacto

Precio de la primera licencia
3.540,00 USD
RSTAB Programa principal
RSTAB 8.xx

Programa principal

El software de ingeniería estructural para el análisis y dimensionado de estructuras de barras, pórticos y entramados realizando cálculos lineales y no lineales de los esfuerzos internos, deformaciones y reacciones en los apoyos

Precio de la primera licencia
2.550,00 USD
RFEM Otros
RF-COM 5.xx

Módulo adicional

Interfaz programable (API) basada en tecnología COM

Precio de la primera licencia
580,00 USD
RSTAB Otros
RS-COM 8.xx

Módulo adicional

Interfaz programable (API) basada en tecnología COM

Precio de la primera licencia
580,00 USD