[ZH] 常见问题 004563 | 如何在 RF-COM 中创建杆件偏心？

问题：
如何在 RF-COM 中创建杆件偏心？

答案：
以下 VBA 宏显示了创建两根杆件的偏心。 源代码位于“下载”下。

'-------------------------------- ——————————————————————————————— ——
子 SetEccs()
'-------------------------------- ——————————————————————————————— ——
Dim model As RFEM5.model
将数据调暗为 IModelData
Dim ecc(1) As RFEM5.MemberEcreinforcedity

    '获取模型接口
    Set model = GetObject(, "RFEM5.Model")

    ' 阻止 COM 许可证和程序访问
    模型.获取应用程序.锁定许可证

    出错时转到 e
    ' 获取模型数据接口
    设置数据 = 模型.GetModelData

   '定义偏心 1
    ecc(0).No = 1
    ecc(0).ReferenceSystem = LocalSystemType
    ecc(0).Start.X = 0.01
    ecc(0).Start.Y = 0.02
    ecc(0).起始.Z = 0.03
    ecc(0).End.X = -0.01
    ecc(0).End.Y = -0.02
    ecc(0).End.Z = -0.03
    ecc(0).Comment = "偏心 1"

   '定义偏心 2
    ecc(1).No = 2
    ecc(1).ReferenceSystem = GlobalSystemType
    ecc(1).Start.X = -0.07
    ecc(1).Start.Y = -0.08
    ecc(1).Start.Z = -0.09
    ecc(1).end.X = 0.07
    ecc(1).end.Y = 0.08
    ecc(1).端部.Z = 0.09
    ecc(1).Comment = "偏心 2"

    '传递杆件偏心
    数据.准备修改
    data.SetMemberEccentricities ecc

e:  数据.完成修改
    如果 Err.Number 0 那么 MsgBox Err.Description, , Err.Source
    设置数据 = 无
    ' COM 许可证已解锁，可以再次访问程序
    模型.获取应用程序.解锁许可证
    设置模型 = 无

末端接头