回复:
是的,可以通过 COM 接口创建节点释放。 这里是一个例子:
子节点释放()
Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.model 出错时转到 e Set iApp = GetObject(, "RFEM5.Application")iApp.LockLicense 测试 = iApp.GetModelCount设置 iModel = iApp.GetModel(0) Dim iModeldata As RFEM5.iModeldata设置 iModeldata = iModel.GetModelData ' 设置节点释放需要一个杆件铰' 轴系的对象不能与释放的相同Dim nodRel As NodalReleasenodRel.Location = 原始位置类型nodRel.AxisSystem = LocalFromLinenodRel.AxisSystemFromObjectNo = 2nodRel.Comment = "测试节点版本"nodRel.MemberHingeNo = 1nodRel.NodeNo = 1nodRel.ReleasedMembers = 1 iModeldata.PrepareModificationiModeldata.SetNodalRelease nodReliModeldata.FinishModification e: 如果 Err.Number <> 0 那么 MsgBox Err.description, , Err.Source iApp.UnlockLicense
末端接头
请注意,局部坐标系可能与释放的单元不同。