回复:
下面的 VBA 宏显示了如何创建具有“部分作用”非线性的节点支座。 源代码可以在下载目录下找到。
- code.en#
Option Explicit
'--------------
子集N支座()
'--------------
尺寸标注模型 As RFEM5.model
将数据变暗为 IModelData
尺寸标注支座(0) As RFEM5.NodalSupport
将 ISup 变暗为 RFEM5.INodalSupport
将 ISupPA 变暗为 RFEM5.IPartialActivity
将 nlPA 调暗为部分作用
- 设置 model = GetObject(, "RFEM5.Model")
- model.GetApplication.LockLicense
- 出错时转到 e
- 设置数据 = model.GetModelData
- 支座(0).编号 = 1
- 支座(0).NodeList = "1"
- 支座(0).SupportConstantX = -1
- 支座(0).SupportNonlinearityX = PartialActivityNLType
- 支座(0).SupportConstantY = -1
- 支座(0).SupportConstantZ = -1
- 支座(0).RestraintConstantX = -1
- 支座(0).RestraintConstantY = -1
- 支座(0).RestraintConstantZ = -1
- data.PrepareModification
- data.SetNodalSupports 支座
- data.FinishModification
- 设 ISup = data.GetNodalSupport(1, AtNo)
- 设 ISupPA = ISup.GetNonlinearity(AlongAxisX)
- nlPA.PositiveZone = CompleteActivityType
- nlPA.PositiveSlippage = 0.005
- nlPA.NegativeZone = FailureActivityType
- data.PrepareModification
- ISupPA.SetData nlPA
- data.FinishModification
e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source
- 设置数据 = 无
- model.GetApplication.UnlockLicense
- 设置模型 = 无
末端接头
- /代码#
常见问题和解答 (FAQ)
