Apoyos en nudos con no linealidad de acción parcial

La siguiente macro de VBA muestra la creación de un soporte nodal con la no linealidad de "Actividad Parcial". El código fuente se puede encontrar en Descargas.

1. código.vba#

Opción explícita

' --------------------------
Soporte secundario ()
' --------------------------

1. Dim model As RFEM5.model
2. Dim data As IModelData

Soporte de atenuación (0) Como RFEM5.NodalSupport
Atenuar ISup como RFEM5.INodalSupport
Atenuar ISupPA como RFEM5.IPartialActivity
Dim nlPA como actividad parcial

1. Establecer modelo = GetObject (, "RFEM5.Model")
2. model.GetApplication.LockLicense

1. On Error GoTo e

1. Set data = model.GetModelData
3. apoyo (0) .No = 1
4. soporte (0) .NodeList = "1"
5. soporte (0) .SupportConstantX = -1
6. support (0) .SupportNonlinearityX = PartialActivityNLType
7. support (0) .SupportConstantY = -1
8. soporte (0) .SupportConstantZ = -1
9. soporte (0) .RestraintConstantX = -1
10. soporte (0) .RestraintConstantY = -1
11. soporte (0) .RestraintConstantZ = -1

1. data.PrepareModification
2. Soporte de data.SetNodalSupports
3. data.FinishModification

1. Establecer ISup = data.GetNodalSupport (1, AtNo)
2. Establecer ISupPA = ISup.GetNonlinearity (AlongAxisX)
4. nlPA.PositiveZone = CompleteActivityType
5. nlPA.PositiveSlippage = 0.005
6. nlPA.NegativeZone = FailureActivityType

1. data.PrepareModification
2. ISupPA.SetData nlPA
3. data.FinishModification

e: Si Err.Number <> 0 Entonces MsgBox Err.Description`` Err.Source

1. Set data = Nothing
2. model.GetApplication.UnlockLicense
3. Set model = Nothing

End Sub
#/code#

FAQ

Preguntas frecuentes 005304 | ¿Cómo puede un apoyo nodal con no linealidad 'Partial W ...

Apoyos en nudos con "actividad parcial" no lineal