640x
005304
2022-08-26

Apoyos en nudos con no linealidad de acción parcial

¿Cómo se puede crear un apoyo nodal con una 'acción parcial' a través de la interfaz COM?


Respuesta:

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. code.en #

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
  2. apoyo (0) .No = 1
  3. soporte (0) .NodeList = "1"
  4. soporte (0) .SupportConstantX = -1
  5. support (0) .SupportNonlinearityX = PartialActivityNLType
  6. support (0) .SupportConstantY = -1
  7. soporte (0) .SupportConstantZ = -1
  8. soporte (0) .RestraintConstantX = -1
  9. soporte (0) .RestraintConstantY = -1
  10. 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)
  3. nlPA.PositiveZone = CompleteActivityType
  4. nlPA.PositiveSlippage = 0.005
  5. 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

  1. /#

Autor

Sra. von Bloh proporciona soporte técnico a nuestros clientes y es responsable del desarrollo del programa SHAPE-THIN, así como de las estructuras de acero y aluminio.