具有部分作用非线性的节点支座

下面的 VBA 宏显示了如何创建具有“部分作用”非线性的节点支座。 源代码可以在下载目录下找到。

1. code.zh #

Option Explicit

'--------------
子集N支座()
'--------------
尺寸标注模型 As RFEM5.model
将数据变暗为 IModelData
尺寸标注支座(0) As RFEM5.NodalSupport
将 ISup 变暗为 RFEM5.INodalSupport
将 ISupPA 变暗为 RFEM5.IPartialActivity
将 nlPA 调暗为部分作用

1. 设置 model = GetObject(, "RFEM5.Model")
2. model.GetApplication.LockLicense

1. 出错时转到 e

1. 设置数据 = model.GetModelData
3. 支座(0).编号 = 1
4. 支座(0).NodeList = "1"
5. 支座(0).SupportConstantX = -1
6. 支座(0).SupportNonlinearityX = PartialActivityNLType
7. 支座(0).SupportConstantY = -1
8. 支座(0).SupportConstantZ = -1
9. 支座(0).RestraintConstantX = -1
10. 支座(0).RestraintConstantY = -1
11. 支座(0).RestraintConstantZ = -1

1. data.PrepareModification
2. data.SetNodalSupports 支座
3. data.FinishModification

1. 设 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. 设置数据 = 无
2. model.GetApplication.UnlockLicense
3. 设置模型 = 无

末端接头

1. /#

常见问题和解答 (FAQ)

FAQ 005304 | 节点如何支座非线性“部分W ...

非线性“部分作用”的节点支座