¿Cómo se establece la fricción en una articulación en el extremo de la barra mediante la interfaz COM?

Respuesta

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

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

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

    Dim hinge(0 To 0) As RFEM5.MemberHinge

    hinge(0).No = 1
    hinge(0).RotationalConstantX = 1
    hinge(0).RotationalConstantY = 2
    hinge(0).RotationalConstantZ = 3
    hinge(0).TranslationalConstantX = 4
    hinge(0).TranslationalConstantY = 5
    hinge(0).TranslationalConstantZ = 6
    hinge(0).Comment = "Member Hinge 1"
    
    hinge(0).TranslationalNonlinearityX = FrictionAType

    data.PrepareModification
    data.SetMemberHinges hinge
    data.FinishModification
    
    ' get interface for member hinge
    Dim imemhing As IMemberHinge
    Set imemhing = data.GetMemberHinge(1, AtNo)
    
    ' get interface for nonlinearity "friction"
    Dim iFric As IFriction
    Set iFric = imemhing.GetNonlinearity(AlongAxisX)
    
    ' get friction data
    Dim fric As Friction
    fric = iFric.GetData
    
    fric.Coefficient1 = 0.3
    
    ' set friction data
    data.PrepareModification
    iFric.SetData fric
    data.FinishModification
    
    
e:  If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source

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

End Sub


En el caso de la fricción Vy + Vz, se usa el "Coefficient2" para establecer el segundo coeficiente. La constante elástica en el cuadro de diálogo "Fricción" está controlada 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 Rozamiento No linealidad GetData SetData

Descargas

Contacte con nosotros

¿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