问题
如何在 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 许可证已解锁,可以再次访问程序
模型.获取应用程序.解锁许可证
设置模型 = 无
末端接头
常见问题和解答 (FAQ)
作者
von Bloh 女士为我们的客户提供技术支持,负责 SHAPE-THIN 软件的开发,以及钢结构和铝合金结构的开发。
您有什么问题想问的吗?
Wenn man über die COM-Schnittstelle die Ergebnisse einer Fläche ausliest, so erhält man ein eindimensionales Feld mit allen Ergebnissen an den FE-Knoten oder Rasterpunkten. Um die Ergebnisse am Rand einer Fläche oder entlang einer Linie innerhalb der Flächen zu erhalten, müssen die Ergebnisse im Bereich der Linie herausgefiltert werden. Im Folgenden wird eine Funktion vorgestellt, welche diese Aufgabe übernehmen kann.
RF-COM/RS-COM 是一种可以由用户自编程的软件接口,使用此接口用户可以根据实际需要在主程序 RFEM/RSTAB 中添加建模输入的方法或者导出计算结果的后续处理分析等。 本文将阐述如何在 RFEM 中编写用于已选定辅助线的复制和平移工具。 辅助线也可以在其他的工作平面中进行复制和平移操作。 使用此接口需要安装 Excel 使用 VBA 编程。
本文将向您展示如何在 RFEM 6 和 RSTAB 9 中对索结构进行建模和设计。
本文阐述并解释了索的抗弯刚度对其内力的影响。 本文还介绍了如何减少这种影响的方法。
为您推荐产品