887x
004181
2019-11-25

问题

如何使用 COM 接口创建结果梁?


回复:
首先,与创建普通杆件一样创建结果梁:

Dim model As RFEM5.model
Set model = GetObject(, "RFEM5.Model")
模型.获取应用程序.锁定许可证

出错时转到 e

将数据调暗为 IModelData
设置数据 = 模型.GetModelData

Dim Members(0) 作为 RFEM5.Member
    
成员(0).No = 3
members(0).LineNo = 12
members(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 调暗为 ResultBeam
RMem = iRMem.GetData
    
RMem.IncludeSurfaces = "1"
RMem.IncludeSolids = "全部"
    
RMem.Integrate = InternalCuboidGeneral
    
Dim params(0 到 3) 为双精度
    
RMem.参数 = 参数
RMem.参数(0) = 0.5
RMem.参数(1) = 0.5
RMem.参数(2) = 0.1
RMem.参数(3) = 0.1
    
数据.准备修改
iRMem.SetData RMem
数据.完成修改

附上完成的EXCEL宏程序和相应的测试文件。