回复:
“连接线/杆件”选项可以通过“连接线/杆件”和“连接件”功能实现。 这两个函数都需要一个包含线编号或杆件编号的字符串:
子 test_connect()
Dim iMod As RFEM5.modelSet iMod = GetObject(, "RFEM5.Model")
iMod.GetApplication.LockLicense
出错时转到 e
Dim iModData as RFEM5.IModelData2设置 iModData = iMod.GetModelData()
iModData.PrepareModificationiModData.ConnectLines("3,4")iModData.ConnectMembers("1,2")iModData.FinishModification
e:
如果 Err.Number <> 0 那么 MsgBox Err.description, vbCritical, Err.SourceiMod.GetApplication.UnlockLicense设置 iMod = 无
末端接头
在本示例中,线 1 和线 2 相连接,并在交点处创建一个节点。 这同样适用于杆件 1 和杆件 2,在交点处也创建一个新节点。
常见问题和解答 (FAQ)