Odpowiedź:
Opcja "Połączyć linie/pręty" może być zaimplementowana za pomocą funkcji "ConnectLines ()" i "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.