问题：
如何通过 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，在交点处也创建一个新节点。