问题：
如何在 RS‑COM 中创建杆件偏心？
答案：
以下 VBA 宏显示了创建两根杆件的偏心。 源代码位于“下载”下。
'-------------------------------- ——————————————————————————————— ——
子 SetEccs()
'-------------------------------- ——————————————————————————————— ——
Dim 模型 As RSTAB8.model
将数据调暗为 IModelData
Dim ecc(1) As RSTAB8.MemberEccentricity
'获取模型接口
Set model = GetObject(, "RSTAB8.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 许可证已解锁，可以再次访问程序
模型.获取应用程序.解锁许可证
设置模型 = 无
末端接头