1017x
004888
2020-12-28

问题

如何通过 COM 接口使用“连接线或杆件”功能?


回复:

“连接线/杆件”选项可以通过“连接线/杆件”和“连接件”功能实现。 这两个函数都需要一个包含线编号或杆件编号的字符串:

子 test_connect()

Dim iMod As RFEM5.model
Set iMod = GetObject(, "RFEM5.Model")

iMod.GetApplication.LockLicense

出错时转到 e

Dim iModData as RFEM5.IModelData2
设置 iModData = iMod.GetModelData()

iModData.PrepareModification
iModData.ConnectLines("3,4")
iModData.ConnectMembers("1,2")
iModData.FinishModification


e:

如果 Err.Number <> 0 那么 MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicense
设置 iMod = 无

末端接头


在本示例中,线 1 和线 2 相连接,并在交点处创建一个节点。 这同样适用于杆件 1 和杆件 2,在交点处也创建一个新节点。