771x
004564
2020-07-28

问题

如何在 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 许可证已解锁,可以再次访问程序
模型.获取应用程序.解锁许可证
设置模型 = 无

末端接头

作者

von Bloh 女士为我们的客户提供技术支持,负责 SHAPE-THIN 软件的开发,以及钢结构和铝合金结构的开发。