回复:
首先,与创建普通杆件一样创建结果梁:
Dim model As RFEM5.modelSet model = GetObject(, "RFEM5.Model")模型.获取应用程序.锁定许可证
出错时转到 e
将数据调暗为 IModelData设置数据 = 模型.GetModelData
Dim Members(0) 作为 RFEM5.Member 成员(0).No = 3members(0).LineNo = 12members(0).Type = ResultBeamType members(0).StartCrossSectionNo = 1杆件(0).EndCrossSectionNo = 1 members(0).Comment = "结果梁 1"
数据.准备修改data.SetMembers 成员数据.完成修改
然后,需要从相应的杆件中取出IMember接口,通过GetExtraData方法得到IResultMember的接口。 现在,可以使用该接口读取或写入 ResultMember 数据。 请注意,编写时需要准备/完成修改块:
将 iMem 调暗为 IMember设置 iMem = data.GetMember(3, AtNo) 将 iRMem 调暗为 IResultBeam设置 iRMem = iMem.GetExtraData 将 RMem 调暗为 ResultBeamRMem = iRMem.GetData RMem.IncludeSurfaces = "1"RMem.IncludeSolids = "全部" RMem.Integrate = InternalCuboidGeneral Dim params(0 到 3) 为双精度 RMem.参数 = 参数RMem.参数(0) = 0.5RMem.参数(1) = 0.5RMem.参数(2) = 0.1RMem.参数(3) = 0.1 数据.准备修改iRMem.SetData RMem数据.完成修改
附上完成的EXCEL宏程序和相应的测试文件。