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

Следующий макрос 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
3. support(0).No = 1
4. поддержка (0) .NodeList = "1"
5. support (0) .SupportConstantX = -1
6. support (0) .SupportNonlinearityX = PartialActivityNLType
7. support(0).SupportConstantY = -1
8. support(0).SupportConstantZ = -1
9. support(0).RestraintConstantX = -1
10. support(0).RestraintConstantY = -1
11. 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)
4. nlPA.PositiveZone = CompleteActivityType
5. nlPA.PositiveSlippage = 0,005
6. 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. /код#

FAQ

FAQ 005304 | Как может узловая опора с нелинейностью 'Частичная W ...

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