640x
005304
2022-08-26

Узловые опоры с частичной нелинейностью действия

Как можно создать узловую опору с нелинейным 'частичным действием' через интерфейс COM?


Ответ:

Следующий макрос VBA показывает создание узловой опоры с нелинейностью «Частичная активность». Исходный код затем находится в разделе Загрузки.

  1. code.en #

Option Explicit

' --------------------------
Sub SetNSupports()
' --------------------------
Dim model As RFEM5.model
Dim data As IModelData
Dim support(0) As RFEM5.NodalSupport
Dim ISup As RFEM5.INodalSupport
Dim ISupPA как RFEM5.IPartialActivity
Dim nlPA как частичная активность

  1. Set model = GetObject(, "RFEM5.Model")
  2. model.GetApplication.LockLicense
  1. On Error GoTo e
  1. Set data = model.GetModelData
  2. support(0).No = 1
  3. поддержка (0) .NodeList = "1"
  4. support (0) .SupportConstantX = -1
  5. support (0) .SupportNonlinearityX = PartialActivityNLType
  6. support(0).SupportConstantY = -1
  7. support(0).SupportConstantZ = -1
  8. support(0).RestraintConstantX = -1
  9. support(0).RestraintConstantY = -1
  10. support(0).RestraintConstantZ = -1
  1. data.PrepareModification
  2. data.SetNodalSupports support
  3. data.FinishModification
  1. Set ISup = data.GetNodalSupport(1, AtNo)
  2. Установите 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: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source

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

End Sub

  1. /#

Автор

Г-жа фон Бло оказывает техническую поддержку нашим клиентам и отвечает за разработку программы SHAPE‑THIN, а также стальных и алюминиевых конструкций.