通过 COM 接口实现“连接线/杆件”

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

回复:

使用 "ConnectLines()" 和 "ConnectMembers()" 函数可以实现 "连接线/杆件" 选项。 Beide Funktionen erwarten eine Zeichenkette mit den Nummern der Linien oder Stäbe:

Sub test_connect()

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

iMod.GetApplication.LockLicense

On Error GoTo e

Dim iModData As RFEM5.IModelData2
Set iModData = iMod.GetModelData()

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


e:

If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicense
Set iMod = Nothing

End Sub

Im Beispiel werden somit die Linien 1 und 2 verbunden und ein Knoten am Schnittpunkt erzeugt. Gleiches gilt für die Stäbe 1 und 2, bei denen ebenfalls ein neuer Knoten im Schnittpunkt angelegt wird.